Mit folgendem Code befülle ich eine ListBox.
Sheets("Adressen").Activate
With frmGeburtstage
.ListBox1.Clear
For lng = 3 To 1000
If Month(Cells(lng, 5).Value) = Month(CDate(TextBox1)) Then
.ListBox1.AddItem Cells(lng, 3).Text
.ListBox1.Column(1, i) = Cells(lng, 4).Text
.ListBox1.Column(2, i) = Cells(lng, 5).Text
.ListBox1.Column(3, i) = Cells(lng, 6).Text
i = i + 1
End If
Next lng
End With
Die fettgedruckte Zeile enthält immer das Geburtsdatum aus einem Monat. Nun würde ich gern die ListBox - Einträge nach dem Tag sortieren lassen. Kann mir da jemand helfen? Für Hilfe schon jetzt dankbar!!!
Gruß Frank H.