VBA: alle Spalten eines Blattes sortieren
16.04.2017 22:38:48
Max
ich habe ein Blatt mit 30 Spalten, die jeweils eine variable Zahl von Werten (Datumswerte) ab Zeile 3 enthalten.
Ich möchte gerne per VBA jeder dieser Spalten nach den Datumswerten aufsteigend sortieren und die Werte in Zeile 1 und 2 davon unberücksichtigt / unverändert lassen.
Meine Idee war ein Loop, aber die variablen Teile sind mir noch nicht ganz klar.
Bisher habe ich folgendes - kann mir jemand sagen, wie ich das noch korrigieren muss ?
Idealerweise würde ich die Zahl der Spalten auch gar nicht fest vorgeben, sondern einfach bis zur letzten Spalte mit Werten gehen:
Dim varColumn As Range
With Worksheets(6)
For Each varColumn In .Range("A3:AD100").Columns
varColumn.EntireColumn.Sort , key1:=Range("A3"), order1:=xlAscending, Header:=xlNo
Next varColumn
End With
Max