AW: sortieren
10.03.2006 18:31:18
IngGi
Hallo Pia,
so etwa sieht ein aufgezeichnetes Makro aus, das den Bereich A1:A10 aufsteigend sortiert:
Sub Makro1()
Range("A1:A10").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Und so sortiert das Makro den Bereich von A1 bis zur letzten belegten Zelle in Spalte A:
Sub Makro2()
Range("A1:A" & Range("A65536").End(xlUp).Row).Sort Key1:=Range("A1"), _
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Gruß Ingolf