AW: Ist die Funktion Sortiern erweiterbar?
10.07.2009 23:11:48
Josef
Hallo Lemmi,
das geht vom Prinzip her so.
Sub sortMulti()
Dim rng As Range
Set rng = ActiveCell.CurrentRegion
'sortiert den Bereich der aktiven Zelle zuerst nach den Spalten 4 5 und 6,
'und anschliessend nach den Spalten 1 2 und 3 (Spalten bezogen auf den Bereich)
With rng
.Sort Key1:=.Cells(1, 4), Order1:=xlAscending, _
Key2:=.Cells(1, 5), Order2:=xlAscending, _
Key3:=.Cells(1, 6), Order3:=xlAscending, _
Header:=xlYes
.Sort Key1:=.Cells(1, 1), Order1:=xlAscending, _
Key2:=.Cells(1, 2), Order2:=xlAscending, _
Key3:=.Cells(1, 3), Order3:=xlAscending, _
Header:=xlYes
End With
Set rng = Nothing
End Sub
Gruß Sepp