Thema: Geburtstagsmeldung bei Öffnen der Arbeitsmappe

ClassModule: DieseArbeitsmappe

Private Sub Workbook_Open()
   Dim dat As Date
   Dim iRow As Integer
   Dim sTxt As String
   iRow = 2
   Do Until IsEmpty(Cells(iRow, 1))
      dat = Cells(iRow, 4).Value
      If Month(dat) = Month(Date) And _
         Day(dat) = Day(Date) Then
         sTxt = sTxt & Cells(iRow, 2).Value & " " & _
            Cells(iRow, 1).Value & " wird " & _
            Cells(iRow, 3).Value & vbLf
      End If
      iRow = iRow + 1
   Loop
   If sTxt <> "" Then
      MsgBox "Geburtstage:" & vbLf & sTxt
   Else
      MsgBox "Es liegt kein Geburtstag an!"
   End If
End Sub

Beiträge aus dem Excel-Forum zu den Themen Ereignis und Open