MsgBox - Abbrechen
Frank
Folgendes Makro habe ich im Einsatz!
Private Sub Workbook_Open()
Dim lZeile As Long
With Worksheets("Geburtstage")
For lZeile = 2 To .Range("D5545").End(xlUp).Row
If Day(.Range("D" & lZeile).Value) = Day(Date) And _
Month(.Range("D" & lZeile).Value) = Month(Date) Then
MsgBox .Range("E" & lZeile).Value & " hat heute Geburtstag", _
64, " Hinweis für " & Application.UserName
End If
Next lZeile
End With
End Sub
Denn in der Vergangenheit kam es vor, das sich die MsgBox mit Klick auf Ok nicht schließen ließ, so dass ich dann den Rechner neustarten musste!!! Wer kann helfen, im Vorraus Danke?!
Gruß Frank H.!!!