Automatische Zeilensortierung
20.12.2004 23:04:26
Markus
ich habe ein VBA-Tool für automatische Zeilen-Sortierung (aufsteigend).
Was muss ich hier ändern, wenn ich absteigend sortieren möchte?
Kann mir da jemand bitte helfen.
Danke
Gruß Markus
Private Sub Worksheet_Change(ByVal Target As Range)
'Beschränken der Makroausführung auf den Bereich A1 bis A100
If Not Application.Intersect(Target, Range("C6:C300")) Is Nothing Then
'Bereich, auf den sich die Sortierung auswirken soll
Range("A6:Z300").Select
'Sortierkriterien
Selection.Sort Key1:=Range("C6"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
'Zelle A1 auswählen
Range("C6").Select
End If
End Sub
Anzeige