Range sortieren - Frage zu Sort Key
05.06.2008 10:29:48
Peter
Ich möchte verschiedene Bereiche im nacheinander sortieren. Die Bereiche beinhalten immer ganze Zeilenbereiche (z.B. 10:39)
In der Endvorstellung möchte ich in einer Tabelle "SortierParameter" in Spalte A ab Zeile 1 die Bereiche aufführen und in Spalte B ab Zeile 1 den Sortierschlüssel, jedoch nur den Spaltenbuchstabe erfassen.
Wie kann ich meinen
Sub BereicheSortieren mit der Tabelle "SortierParameter" verbinden?
Danke für eine Antwort.
Gruss, Peter
Tabelle "SortierParameter"
Eintrag Zelle A1: ZZ_AAA
Eintrag Zelle B1: AG
Eintrag Zelle A2: ZZ_BBB
Eintrag Zelle B2: AG
Sub BereicheSortieren()
With Range("ZZ_AAA")
.Sort Key1:=.Range("AG10"), Order1:=xlAscending, Header:=xlYes _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
With Range("ZZ_BBB")
.Sort Key1:=.Range("AG44"), Order1:=xlAscending, Header:=xlYes _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
End Sub