ich möchte mit folgendem Makro checken, wer in Kürze Geburtstag hat. Irgendwie klappt das aber nicht.
Das Geburtsdatum steht in der Tabelle "Geburtstag" in der Spalte H (ab H4).
Wer kann mir helfen?
Danke und Grüsse, Ina
Private Sub CHECK_GEBURTSTAG()
ActiveSheet.Protect Password:=""
Beep
Dim Meldung1 As String, Meldung2 As String, i As Long, Differenz As Integer
i = 2
Do Until Cells(i, 1).Value = ""
Differenz = DateDiff("d", Date, DateSerial(Year(Date), Month(Cells(i, 3).Value), Day(Cells( _
i, 3).Value)))
If Differenz = 0 Then
Meldung1 = Meldung1 & Chr(10) & Cells(i, 3) & " " & Cells(i, 2) & " " & Cells(i, 1) & _
" wird heute " & Year(Date) - Year(Cells(i, 3).Value) & " Jahre alt!"
End If
If Differenz > 0 And Differenz "" Then
MsgBox "Geburtstage in den nächsten 10 Tagen:" & Chr(10) & Meldung2, , "Info"
Else
MsgBox "Keine Geburtstage in den nächsten 10 Tagen!", , "Info"
End If
End If
End Sub