Mit folgendem Code (Auszug) eruiere ich die nächsten Geburtstage und übergebe den Inhalt in eine TextBox. Neu möchte ich den Inhalt (9 Spalten) in eine ListBox übergeben (zB in ListBox1, als UserForm vorhanden). Mit welchem Code ist das möglich?
Auszug Code in Modul
If intI > 0 Then
sMldg = "Alle " & intI & " Geburtstage in zeitlicher Reihenfolge:" & vbLf
For intI = 1 To intI
sMldg = sMldg & vbLf & Mid(strGeb(intI), 12)
Next
With UserForm1
.Show
DoEvents
End With
End If
Erase strGeb, strHeute
Und Code in UserForm
Private Sub UserForm_Initialize()
TextBox1.Value = sMldg
TextBox1.SelStart = 0
End Sub