Popup wenn ein Datum in Spalte überschritten
30.10.2015 11:24:02
Andreas
leider konnte die Google Suche mein Problem nicht lösen, wobei ich denke, dass dies ganz einfach ist.
Ich möchte beim Öffnen der Datei prüfen, ob mindestens ein Datum auf Blatt "Info" in Spalte B in der Vergangenheit liegt.
Wenn ja, dann Popup mit "Achtung, usw..."
Hatte es so versucht, nur funktioniert nicht.
Private Sub Workbook_Open()
If Date > CDate(Sheets("Info").Range("B:B")) Then
MsgBox "Achtung, Datum überschritten"
End If
End Sub