Supportnet / Forum / Windows2000

Wie kann man eine Excel Tabelle nach drei verschiedenen Kriterien (Uhrzeit, Datum, Location) imjmer wieder neu zu sortieren bzw. zu filtern ohne sie durcheinander zu bringen?

MAcro aufzeichnen machts möglich und leicht ^^ etwas ändern kannst dann noch.
A1 = Uhrzeit
A2 = Datum
A3 = Location
Erste Zeile enthält überschriften, die Tabelle wird in den ersten 600 Zeilen und bis Spalte ZZ sortiert.

Sub Makro2()
    ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("B2:B600") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("A2:A600") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("C2:C600") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Tabelle1").Sort
        .SetRange Range("A1:ZZ600")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

• Excel Sortierung nach den letzten Stellen
• Sortierung trotz geschützter Zellen
• Sortierung - Formelveränderung
• Probblem mit Excel_sortieren
• Bei gesetztem Excel Autofilter Probleme mit geänderten Feldern bei Sortierung