Private Sub Workbook_Open()
Dim c As Range
Dim Namen As String
Dim GebTagGefunden As Boolean
With Tabelle15
For Each c In .Range("F1:F" & .Range("F65536").End(xlUp).Row)
If Month(c.Value) = Month(Date) And Day(c.Value) = Day(Date) Then
GebTagGefunden = True
Namen = Namen & Chr(13) & c.Offset(0, -4).Value
End If
Next c
End With
If GebTagGefunden = True Then MsgBox "Heutige Geburtstage:" & Namen
End Sub
Schönen Gruß,
Andi
Private Sub Workbook_Open()
Dim c As Range
Dim Namen As String
Dim GebTagGefunden As Boolean
With Tabelle1
For Each c In .Range("F1:F" & .Range("F65536").End(xlUp).Row)
If IsDate(c.Value) Then
If Month(c.Value) = Month(Date) And Day(c.Value) = Day(Date) Then
GebTagGefunden = True
Namen = Namen & Chr(13) & c.Offset(0, -4).Value
End If
End If
Next c
End With
If GebTagGefunden = True Then MsgBox "Heutige Geburtstage:" & Namen
End Sub
Schönen Gruß,
Andi
Private Sub Workbook_Open()
Dim c As Range
Dim Namen As String
Dim GebTagGefunden As Boolean
With Tabelle1
For Each c In .Range("F1:F" & .Range("F65536").End(xlUp).Row)
If IsDate(c.Value) Then
If DateSerial(Year(Date), Month(Date), Day(Date)) - DateSerial(Year(Date), Month(c.Value), _
Day(c.Value)) >= 0 And _
DateSerial(Year(Date), Month(Date), Day(Date)) - DateSerial(Year(Date), Month(c.Value), Day(c. _
Value))
Schönen Gruß,
Andi