Spalte Doppelt Sortieren
21.01.2021 11:41:24
Mathias
ich möchte euch gerne um Hilfe bitten.
Ich muss meine Spalte(A) doppelt sortieren. Sie enthält immer Einträge nach dem Schema:
AV 0043-21
AV 5463-21
AV 0752-20
..
Das heißt die Buchstaben AV, dann eine Vierstellige Zahl und dann die letzten beiden Zahlen des Jahres.
Wie kann ich meine Zeilen zuerst nach den Jahreszahlen sortieren und dann erst nach den vierstelligen Nummern? Sodass alle Zeilen die eine -20 enthalten oben stehen und nach ihrer Vierstelligen Zahl sortiert sind und erst danach alle Zahlen denen eine -21 nachgestellt ist?
Bisher sortiere ich mit diesem Makro, aber das sortiert halt alles nach der vierstelligen Nummer und die Jahreszahl ist ihm dabei herzlich Wurst.
Vielen Dank im Voraus für eure Mühen. Auch für Erklärungen zu euren Lösungen bin ich immer dankbar einfach um noch dazuzulernen.
Viele Grüße
Mathias
Sub sortierennachAVNummer()
Dim s, S1 As Range
Dim LetzZ, LetzS As Long
LetzZ = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
LetzS = ActiveSheet.Cells(2, Columns.Count).End(xlToLeft).Column
Set s = ActiveSheet.Range(Cells(3, 1), Cells(LetzZ, LetzS))
'MsgBox s.Address
s.Sort key1:=Range("A2"), _
order1:=xlAscending
End Sub
Anzeige