ich habe folgenden Code, der auch wunderbar funktioniert hat:
Private Sub Workbook_Open()
Dim rngZelle As Range
Dim wks As Worksheet
Set wks = ThisWorkbook.Worksheets("Tuncel")
For Each rngZelle In wks.Range("H3:H40")
If Month(rngZelle.Value) = Month(Date) And Day(rngZelle.Value) = Day(Date) Then
MsgBox rngZelle.Offset(, -5).Value & " hat heute Geburtstag!", vbInformation, " _
Geburtstag!"
End If
Next rngZelle
Set wks = Nothing
End Sub
Seit kurzem erhalte ich jedoch immer einen Laufzeitfehler 13. Ich habe festgestellt, dass der Fehler immer dann kommt, wenn in dem Bereich H3:H40 eine leere Zelle vorhanden ist. Ist mir bisher nicht aufgefallen, da ich keine leere Zelle hatte. Nun ist das jedoch der Fall.Kann mir jemand helfen, um bei dieser "Abfrage" die leeren Zellen zu ignorieren, damit ich diesen Fehler nicht mehr bekomme?
Vielen Dank im Voraus.
Lg