Liebe User,

da ich hier nicht mehr weiterweiss wende ich mich an euch mit der bitte um hilfe


Ich Sortiere in excel zuerst nach : Spalte A (Datum) aufsteigend

                                                  Spalte H (Buchstaben) benutzerdefinierte Liste

                                                  Spalte G (Datum) absteigend


Das Sortieren der Spalten wird nicht Korrekt ausgewiesen.

Sub test()
    Dim AnzahlDaten As String
    Dim strSpA, strSpG, strSpH, strBer As String
    'BasisAusw?hlen
    Sheets("Basis").Select
   
    'AnzahlErmitteln
    AnzahlDaten = Range("A65535").End(xlUp).Row
   
    'BereichMarkieren
    Sheets("Basis").Range(Cells(2, 1), Cells(AnzahlDaten, 8)).Name = "Daten"
   
    'BereichZuweisen
    strBer = "Daten"
   
    'SpaltenParameter
    strSpA = "A"
    strSpG = "G"
    strSpH = "H"
    Application.AddCustomList ListArray:=Array("H", "A", "B")
    'Sortieren
    With Basis
   
    Range(strBer).Sort Key1:=Range(strSpA & 1 & AnzahlDaten), Order1:=xlAscending, _
    key2:=Range(strSpH & 1 & AnzahlDaten), OrderCustom:=Application.CustomListCount + 1, _
    key3:=Range(strSpG & 1 & AnzahlDaten), Order3:=xlDescending, Header:=xlYes
    End With
   
    Application.DeleteCustomList Application.CustomListCount
End Sub

Was mache ich Falsch,

Mitder Hoffnung mit zu Helfen Beste Grüße