geburtstag - nochmal frage zum makro
30.03.2007 14:19:29
ralf
hallo forum
habe folgendes makro im forum gefunden und ein bißchen durch ausprobieren umgmodelt.aber
habe jetzt folgendes problem habe zwei geburtstage an einem tag ,aber das makro zeigt mir
immer nur einen an . geht das überhaubt damit das er mir alle geburtstage in einer msgbox anzeigt ?
wenn ja - wie ?
Sub Suchen()
On Error GoTo Fail
Dim x As Date
Dim sTxT As String
Dim TxT As String
x = Format(Date, "DD/MM")
sTxT = Worksheets("Tabelle1").Cells.Find(What:=x).Offset(0, -5) + " " + Cells.Find(What:=x). _
Offset(0, -4)
TxT = sTxT & " hat Geburtstag !!! "
end sub
MsgBox TxT
Fail:
End Sub
schon mal danke für die mühe
gruß ralf