Sorry, aber ich versuche es noch einmal, nachdem ich eine Datei hochgeladen habe und die ursprüngliche Anfrage noch offen ist.
https://www.herber.de/bbs/user/134560.xlsm
Ich habe eine Musterdatei erstellt, die soweit funktioniert. Anstelle der TextBox möchte ich eine ListBox, damit ich in der ListBox eine Zeile anklicken kann und zB das betreffende Datum in der Tabelle1 suchen kann um weitere Infos zu generieren.
Ändern müsste man also vermutlich lediglich den Code am Ende der Sub, aber das kriege ich ohne Fehlermeldungen nicht hin.
'Meldetext für Geburtstage nächste 360 Tage
If intI > 0 Then<br>
sMldg = "Alle " & intI & " Geburtstage in zeitlicher Reihenfolge:" & vbLf<br>
For intI = 1 To intI<br>
sMldg = sMldg & vbLf & Mid(strGeb(intI), 12)<br><br>
Next<br>
With UserForm1<br>
.Show<br>
DoEvents<br>
End With<br>
Else
MsgBox "Keine Geburtstage in den nächsten Tagen", vbInformation, _
" GEBURTSTAGS-INFO"
End If
Vielen Dank und Gruss
Gregor