geburtstag makro die zweite
31.03.2007 11:11:09
ralf
hallo forum
habe von euch ein makro bekommen was nicht lief , habe es durch probieren umgemodelt
bis es mir keine fehlermeldung mehr gab , dafür zeigt es mir aber auch nicht die msgbox
an . weiss einer wo der fehler liegt
Sub Suchen()
On Error GoTo Fail
Dim x As Date
Dim sTxT As Range, z As Integer, firstAddress As Range
Dim TxT As String
x = Format(Date, "DD/MM")
z = 0
Set sTxT = Worksheets("Tabelle1").Cells.Find(What:=x).Offset(0, -5) + " " + Worksheets(" _
Tabelle1").Cells.Find(What:=x).Offset(0, -4)
If Not sTxT Is Nothing Then
firstAddress = sTxT.Address
Do
TxT = TxT & ", " & sTxT
Set sTxT = sTxT.FindNext(sTxT)
z = z + 1
Loop While Not sTxT Is Nothing And sTxT.Address <> firstAddress
End If
If z = 1 Then
TxT = Left(TxT, Len(TxT) - 2) & " hat Geburtstag !!! "
Else
TxT = TxT & " haben Geburtstag !!! "
End If
MsgBox TxT
Fail:
End Sub
wäre für hilfe dankbargruss ralf