|
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
|