Gruppe
Allgemein
Bereich
Sortieren
Thema
Nach Geburtstag sortieren
Problem
Wie kann ich eine Namenstabelle nach Geburtstagen, also ohne Berücksichtigung des Jahres sortieren?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub Sortieren()
Dim iRow As Integer
Application.DisplayAlerts = False
iRow = Cells(Rows.Count, 1).End(xlUp).Row
Range("C1").FormulaR1C1 = "=TEXT(RC[-1],""MM.TT"")"
Range("C1:C" & iRow).FillDown
Range("A1").CurrentRegion.Sort _
key1:=Range("C1"), order1:=xlAscending, _
key2:=Range("A1"), order2:=xlAscending, _
header:=xlNo
Columns("C").Delete
Application.DisplayAlerts = True
End Sub