Private Sub Workbook_Open()
Dim daDatum As Date
Dim loZeile As Long
Dim strNamen As String
loZeile = ThisWorkbook.Worksheets("Tabelle1").UsedRange.Rows.Count
For loZeile = 10 To loZeile
daDatum = Cells(loZeile, 18)
With Range(Cells(loZeile, 2), Cells(loZeile, 18))
If CDate(Day(daDatum) & "." & Month(daDatum) & "." & Year(Date)) = Date Then
.Interior.ColorIndex = 22
strNamen = strNamen & Cells(loZeile, 7) & " " & Cells(loZeile, 6) & vbLf
End If
End With
loZeile = loZeile + 1
Next loZeile
If strNamen <> "" Then
MsgBox strNamen, vbInformation, "Heute haben Geburtstag:"
End If
End Sub