VBA: automatisches Sortieren mit zwei Schlüsseln
04.10.2013 15:30:02
Wolfango
ich benutze nachstehenden VBA-Code.
Der Code macht auch das was er soll, nämlich ein vollautomatisches Sortieren nach Spalte A.
Nun benötige ich innerhalb des Codes einen zweiten Sortierschlüssel nach Spalte B (enthält Text). Wie muss ich den Code verändern, damit nach wie vor automatisch nach Spalte A und bei identischen Einträgen als 2. Kriterium nach Spalte C sortiert wird?
Gruß, Wo
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("a2:g1000")
For Each RaZelle In Range(Target.Address)
If Not Intersect(Target, RaBereich) Is Nothing Then
Range("a1:g1000").Sort Key1:=Range("a2"), Order1:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Exit For
End If
Next RaZelle
Set RaBereich = Nothing
End Sub