MsgBox Problem
04.01.2006 18:03:16
Heribert
habe mir eine Geburtstagserinnerung "gebastelt".Kommt später ins Workbook_Open.
Code funktioniert prima.
Nun habe ich aber folgendes Problem: wenn mehrere Personen am selben Tag
Geb. haben, zeigt mir meine MsgBox diese nur ...nacheinander an.
Frage : Kann man diese Namen in einer einzigen MsgBoxausgabe anzeigen
und wenn ja bitte wie?
Private Sub CommandButton1_Click()
Dim sdat
Dim i As Long
sdat = (Format(Date, "dd.mm."))
For i = 4 To 16
If Cells(i, 8).Value = sdat Then
MsgBox "Geburtstagsliste vom :" & Date & vbCrLf & Cells(i, 2).Value
End If
Next i
End Sub
Dankeschön
Gruss Heribert