Sub GebAnzeige()
Datum = Format(Date, "dd.mm.")
iMax = Cells(Rows.Count, 1).End(xlUp).Offset(0, 1).Row + 1
For i = 2 To iMax
Vergleich = Left(Cells(i, 2).Value, 6)
If Datum = Vergleich Then
Name = Cells(i, 1).Value
GebDatum = Cells(i, 2).Value
MsgBox "Heute hat " & Name & " " & GebDatum & " Geburtstag"
'Sheets("Tabelle2").Cells(i, 1).Value = Name
'Sheets("Tabelle2").Cells(i, 2).Value = GebDatum
End If
Next
End Sub
Die Datei https://www.herber.de/bbs/user/1353.xls wurde aus Datenschutzgründen gelöscht