Unabhängige Spalten aufsteigend sortieren

[Chrissie]

Guten Morgen zusammen,

ich habe sehr viele Tabellen mit jeweils sehr vielen Tabellenblättern, in denen überall Spalten sortiert werden müssen.
Ich habe ein solches Tabellenblatt mal als Beispiel angehangen.

Folgendes soll getan werden:
- Spalte D bis Y jeweils aufsteigend sortieren

-> die Spalten sind unabhängig voneinander
-> die erste Zeile ist eine Überschrift

Hat jemand eine Idee, ohnen das ich jede Spalte einzeln markieren und sortieren muss. Ein Makro wäre auch prima, leider bekomme ich das selber nicht hin.

Herzlichen Dank schon einmal für`s Lesen und Mitdenken!

Gruß,
Chrissie

[Klaus-Dieter]

Hallo,

es müssen doch auf jeden bei jedem Sortiervorgang auch die Spalten A und B mit sortiert werden, sonst geht der Bezug verloren.

[Chrissie]

Hallo Klaus-Dieter,

danke für den Hinweis, aber es geht wirklich nur um die Werte in den Spalten D bis Y. Die Spalte Tag ist eine Art Zähler die ich mir erstellt habe und die erste Spalte habe ich nur drin als Gedankenstütze für mich.

Für einen Sortier-Tipp wäre ich weiterhin dankbar.

Gruß,
Chrissie

[RPP63]

Mach mal so (in einer Sicherungskopie!)

Sub Sort_Einzel()
Dim s&
For s = 3 To 25
  Columns(s).Sort Cells(2, s), xlAscending, Header:=xlYes
Next
End Sub


Gruß Ralf

[Chrissie]

Danke, das funktioniert fantastisch!
Tausend Dank!