MsgBox...
27.10.2015 16:56:14
Ina
ich habe ein Problem mit einer MsgBox.
Problem:
Mit diesem Code durchsuche ich Das Tabellenblatt nach Personen, die heute (und innerhalb der nächsten 10 Tage) Geburtstag haben.
Falls keine Person gefunden wird, die Geburtstag hat, soll folgende Meldung ausgegeben werden: "Heute kein Geburtstag!".
Und genau das klappt irgendwie nicht. Wo liegt der Fehler? Wer kann mir helfen?
Sub GEBURTSTAGS_INFO()
Dim sMldg1 As String, sMldg2 As String, lR As Long, iDiff As Long
Const iNn As Integer = 3 ' Spalte C - Nachnamen
Const iVn As Integer = 5 ' Spalte E - Vornamen
Const iG As Integer = 8 ' Spalte H - Geburtsdatum
Beep
sMldg1 = "Geburtstage heute:" & vbLf
lR = 4
Do Until IsEmpty(Cells(lR, iVn))
iDiff = DateSerial(Year(Date), Month(Cells(lR, iG)), Day(Cells(lR, iG))) - Date
If iDiff "" Then
MsgBox "Geburtstage in den nächsten 10 Tagen:" & vbLf & sMldg2, , " GEBURTSTAGS-INFO.." _
Else
MsgBox "Keine Geburtstage in den nächsten 10 Tagen!", , " GEBURTSTAGS-INFO..."
End If
End If
End Sub
Danke für eure Hilfe!
LG Ina