Gruppe
Allgemein
Problem
Wie kann ich eine Namenstabelle nach Geburtstagen, also ohne Berücksichtigung des Jahres sortieren?
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