Sortieren mit Variablen
11.01.2007 11:35:45
Anton
ich muss öfter bestimmte Bereiche sortieren.
kann ich die Key1-Angabe:"Range("B5")" gegen eine Variable tauschen?
Hier mein bisgeriger Code:
Sub Sortieren()
Dim L_Zeile As Long
Dim sort_ab As Long
L_Zeile = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
sort_ab = 2
Range(Cells(sort_ab, 1), Cells(L_Zeile, 6)).Select
Selection.Sort Key1:=Range("B5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Mein Dank geht schon jetzt in Eure Richtung.
Servus,
Anton
Anzeige