Geburtstag erinnerung leere Zellen überspringen

[schwarzeteufel]

Hallo zusammen,

Ich habe eine Geburtstag Makro von hier funktioniert auch. Aber zeig mir als Erinnerung auch die leere Zellen.
Ich habe von F4:F53 ´da zwischen 10 leere Zellen nach Familien eingestellt damit man erkennt.
Kann man diese Code ändern? bei dem leere Zellen keine Erinnerung gibt.


Sub Geburtstageanzeigen()
 
 Dim rngZelle As Range
 Dim wks As Worksheet
 
 Set wks = ThisWorkbook.Worksheets("Geburtstage")
 For Each rngZelle In wks.Range("F4:F53")
If Month(rngZelle.Value) = Month(Date) And Day(rngZelle.Value) = Day(Date) Then
 MsgBox rngZelle.Offset(, -4).Value & " " & rngZelle.Offset(, -3).Value & " " & " hat heute Geburtstag und wird " & rngZelle.Offset(, 3).Value & " Jahre alt!", vbInformation, "Geburtstag!"
 End If
 
 Next rngZelle
 Set wks = Nothing
 End Sub


Danke

[Kuwer]

Hallo,

Sub Geburtstageanzeigen()
 
  Dim rngZelle As Range
  Dim wks As Worksheet
  
  Set wks = ThisWorkbook.Worksheets("Geburtstage")
  For Each rngZelle In wks.Range("F4:F53")
    If IsDate(rngZelle.Value) Then
      If Month(rngZelle.Value) = Month(Date) And Day(rngZelle.Value) = Day(Date) Then
        MsgBox rngZelle.Offset(, -4).Value & " " & rngZelle.Offset(, -3).Value & " " & " hat heute Geburtstag und wird " & rngZelle.Offset(, 3).Value & " Jahre alt!", vbInformation, "Geburtstag!"
      End If
    End If
  Next rngZelle
  Set wks = Nothing
End Sub

Gruß Uwe

[RPP63]

Moin!
Als Spässeken für ein aktuelles Excel:

	A	B	C	D
1	GebDat	Name		Heute haben Geburtstag: G und W
2	31.12.1991	A
3	29.12.1977	B
4	28.12.1988	D
5	30.12.1959	G
6	29.12.2018	I
7	31.12.2015	P
8	28.12.2001	T
9	30.12.1999	W

Zelle	Format	Wert
D1	;;;"Heute haben Geburtstag: "@	G und W

Zelle	Formel
D1	=TEXTVERKETTEN(" und ";1;FILTER(B2:B9;TEXT(A2:A9;"MMTT")=TEXT(HEUTE();"MMTT")))

Gruß Ralf

---

Wenn man meine Formel betrachtet, geht der Geburtstagsvergleich einfacher als in obigem Code:

Statt
If Month(rngZelle.Value) = Month(Date) And Day(rngZelle.Value) = Day(Date) Then

kann man nehmen
If Format(rngZelle, "mmdd") = Format(Date, "mmdd") Then

[schwarzeteufel]

Ich Danke euch allen.
Es funktioniert wunderbar:

Danke