Popup wenn ein Datum in Spalte überschritten

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Popup wenn ein Datum in Spalte überschritten
von: Andreas
Geschrieben am: 30.10.2015 11:24:02

Moin zusammen,
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
Danke für eure Hilfe!

Bild

Betrifft: Application.WorksheetFunction.Min
von: Matthias L
Geschrieben am: 30.10.2015 11:33:54
Hallo

If Date > Application.WorksheetFunction.Min(Worksheets("Info").Range("B:B")) Then
 MsgBox "Achtung, Datum überschritten"
End If
Gruß Matthias

Bild

Betrifft: AW: Application.WorksheetFunction.Min
von: Andreas
Geschrieben am: 30.10.2015 11:50:30
Bestens, Danke!

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Popup wenn ein Datum in Spalte überschritten"