Private Sub Workbook_Open()
Dim daDatum As Date
Dim loZeile As Long
Dim strNamen As String
Dim Zeile As Long
loZeile = Tabelle1.UsedRange.Rows.Count
For Zeile = 10 To loZeile
<strong>daDatum = Cells(Zeile, 18)
</strong>
With Range(Cells(Zeile, 2), Cells(Zeile, 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
Next Zeile
If strNamen <> "" Then
MsgBox strNamen, vbInformation, "Heute haben Geburtstag:"
End If
End Sub
Gruß