HERBERS Excel-Forum - das Archiv
Thema: Popup wenn ein Datum in Spalte überschritten
-
Application.WorksheetFunction.MinMatthias
Popup wenn ein Datum in Spalte überschritten
Andreas
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
Application.WorksheetFunction.Min
Matthias
Hallo
If Date > Application.WorksheetFunction.Min(Worksheets("Info").Range("B:B")) Then
MsgBox "Achtung, Datum überschritten"
End If
AW: Application.WorksheetFunction.Min
Andreas
Bestens, Danke!
Popup wenn ein Datum in Spalte überschritten
Andreas
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
Application.WorksheetFunction.Min
Matthias
Hallo
If Date > Application.WorksheetFunction.Min(Worksheets("Info").Range("B:B")) Then
MsgBox "Achtung, Datum überschritten"
End If
AW: Application.WorksheetFunction.Min
Andreas
Bestens, Danke!
Excel-Beispiele