AW: Msgbox Geburtstag
26.06.2015 22:34:41
Sepp
Hallo Sabrina,
in das Modul "DieseArbeitsmappe".
' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
Option Explicit
Private Sub Workbook_Open()
Dim rng As Range
Dim strMsg As String
On Error Resume Next
With Sheets("Privatkunden")
For Each rng In .Range("O2:O" & Application.Max(2, .Cells(.Rows.Count, 15).End(xlUp).Row))
If DateSerial(Year(Date), Month(rng), Day(rng)) = Date Then
strMsg = strMsg & Left(.Cells(rng.Row, 3).Text & " " & .Cells(rng.Row, 4).Text & String(35, " "), 35) & vbTab & "(" & Year(Date) - Year(rng) & ")" & vbLf
End If
Next
End With
If Len(strMsg) Then
strMsg = "Geburtstage am " & Format(Date, "dddd, dd.MM.yyyy") & vbLf & vbLf & strMsg
MsgBox strMsg
End If
On Error GoTo 0
End Sub
Gruß Sepp