Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1452to1456
1452to1456
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Popup wenn ein Datum in Spalte überschritten

Forumthread: Popup wenn ein Datum in Spalte überschritten

Popup wenn ein Datum in Spalte überschritten
30.10.2015 11:24:02
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
Danke für eure Hilfe!

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Application.WorksheetFunction.Min
30.10.2015 11:33:54
Matthias
Hallo
If Date > Application.WorksheetFunction.Min(Worksheets("Info").Range("B:B")) Then
MsgBox "Achtung, Datum überschritten"
End If
Gruß Matthias

AW: Application.WorksheetFunction.Min
30.10.2015 11:50:30
Andreas
Bestens, Danke!
Anzeige

Forumthreads zu verwandten Themen

Tabelle leeren wenn Tagesdatum erreicht
WolfgangHB


Hallo, liebe Excel-/VBA-Experten !
Ich möchte in einer Exceltabelle von variabler Länge die Werksferien unserer Kunden überwachen:
Vereinfachte Darstellung:
Spalte A Name Spalte B Ort Spalte C Kunden-Nr Spalte D hat von von: (Datum) Spalte E hat zu bis: (Datum)
Frage:
...
14.01.2012 01:09:37
Thread-ID: 1246056
3 Beiträge
alle Makros deaktivieren wenn Datum erreicht
Ron

Hallo,
Guten Tag, ichbrauche wieder mal Eure Hilfe.
Ich habe eine umfangreiche Datei, die makrogesteuert aus diversen Dateien Daten sammelt und zu einer statistischen Auswertung zusammen fasst. Da das Layout der Quelldaten Anfang eines Quartals "gerne" mal geändert wird, wurde ich den A...
09.08.2016 11:30:06
Thread-ID: 1508461
5 Beiträge
Zeile verschieben wenn Datum erreicht
Julie

Hallo
Ich bräuchte bitte Hilfe :)
Ich arbeite in der Personalabteilung und habe eine Tabelle mit allen Mitarbeitern erstellt also auch das Anfangsdatum und das Enddatum. Nun wäre es toll wenn die ganze Zeile mit der Person die die Firma verlässt zum gegebenen Datum in ein anderes Blatt...
09.03.2018 20:43:05
Thread-ID: 1613407
5 Beiträge
Zeilen sperren wenn ein Datum erreicht ist
Frank

Hallo Zusammen,
ich habe in A4 das aktuelle Datum mit Uhrzeit stehen (=Jetzt()).
In der Spalte A6 bis A17 habe ich ein Datum mit Uhrzeit stehen (Bsp.: A6: 01.04.18 12:00 .... A17: 11.04.18 17:00).
Nun sollen die Zellen / Zeile (B6 bis AZ6) neben dem Datum von A6 ab dem Datum (A4) f...
04.04.2018 20:36:20
Thread-ID: 1618092
7 Beiträge
Zelle leeren, wenn bestimmtest Datum erreicht ist
Timo

Hallo zusammen, 😊
ich bin überfragt, liegt wohl daran, dass ich Neuling mit VBA bin.
Vielleicht könnt ihr mir ja helfen.
Ich habe eine Datei mit folgenden Daten:
Spalte U = Datum(Bsp. 31.07.2019)
Spalte K bis P = Private Daten
Ich möchte gerne, wenn das Datum in U7 der...
25.01.2019 09:22:48
Thread-ID: 1670793
15 Beiträge
Umwandeln wenn Datum erreicht
Malte

Hallo,
Ich habe eine Exceltabelle mit Kosten und Einnahmen, so wie überweisung zwischen mehreren Realen Konten erstellt. In der Tabelle sind alle Zellen abhängig von anderen Zellen.
Mein Problem besteht jetzt darin, dass diese Tabelle eine jetzt Darstellung ist, d.h. wenn die Tabelle je...
08.03.2019 17:09:40
Thread-ID: 1680157
2 Beiträge
PopUp wenn Zeit in Zelle erreicht wurde
Norbert Schonebeck

Hallo,
ich habe ein Problem:In z. B. Spalte A habe ich die Zellen mit Zeiten vorbelegt (A1 = "07:33", A3 = "08:50" usw.).Nun möchte ich, wenn eine dieser Zeiten in der Systemzeit erreicht ist, dass ein PopUp mit jeweils verschiedenen Hinweisen erscheint (z.B. Achtung, nun ist Zeit für ....)....
24.11.2002 09:55:30
Thread-ID: 184864
5 Beiträge
Anzeige
meldung, wenn ein bestimmtes Datum errreicht ist
Matthias

Hi,
ich habe eine Tabelle entworfen, diese Tabelle hat mehrere Blaetter.
Einmal im Monat muss ich an meinen Chef berichten.
Ueber ein Makro soll mir angezeigt werden, wann ich wieder berichten muss.
Das geht doch,oder?
Schon mal Danke
Matthias
01.01.1970 00:00:00
Thread-ID: 405888
4 Beiträge
Anzeige
Popup mit Excel wenn Datum erreicht
Thomas

Hallo,
ich habe eine Tabelle mit vielen verschiedenen Datumangaben (ca. 60 Stück). Ich habe bisher schon eine Formel eingegeben wenn der gewünschte Termin ansteht, dass in einer Zelle dann vermerkt wird wieviele Tage es noch bis zu diesem Termin sind. Dies zählt ab 14 Tagen vor dem Termin r...
02.07.2007 17:09:00
Thread-ID: 883252
2 Beiträge
Anzeige
Fortlaufende Werte, wenn Datum erreicht
haxefett

Hallo, ich habe mal eine Frage.
Und zwar stehe ich vor folgendem Problem:
Ich möchte, dass Werte aus einer Werteliste gelesen und fortlaufend ausgegeben werden, sobald ein anderer bestimmter Wert (hier: Datum) erreicht wurde.
Also im Prinzip:
wenn: Datum erreicht
dann: fortl...
16.04.2021 12:12:20
Thread-ID: 1826219
13 Beiträge
Zelle A auslesen, wenn Datum in Zelle B erreicht und Wert
Tobias T
Hallo zusammen,

ich arbeite gerade an meiner Excel Tabelle um meine Finanzen übersichtlich darzustellen. Dabei habe ich eine Zelle (G9) in der sich ein Wert befindet der sich ständig
verändert. Es werden also Daten bezogen und aktualisiert. Nun habe ich darunter eine Tabelle mit den ei...
10.09.2023 15:55:28
Thread-ID: 1945609
2 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Popup bei überschrittenem Datum in Excel

Schritt-für-Schritt-Anleitung

  1. Öffne die Excel-Datei, in der du das Popup implementieren möchtest.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Im Projektfenster, doppelklicke auf DieseArbeitsmappe.

  4. Füge den folgenden Code in das Codefenster ein:

    Private Sub Workbook_Open()
   If Date > Application.WorksheetFunction.Min(Worksheets("Info").Range("B:B")) Then
       MsgBox "Achtung, Datum überschritten"
   End If
End Sub

  5. Schließe den VBA-Editor und speichere deine Datei als .xlsm (Makro-aktivierte Arbeitsmappe).

  6. Schließe Excel und öffne die Datei erneut, um zu testen, ob das Popup erscheint, wenn ein Datum in der Vergangenheit liegt.

Häufige Fehler und Lösungen

  • Popup erscheint nicht: Stelle sicher, dass die Datei als Makro-aktivierte Arbeitsmappe (.xlsm) gespeichert ist.
  • Fehlermeldungen im VBA-Code: Achte darauf, dass du den Code genau kopierst. Eine falsche Zeichenkodierung kann zu Fehlern führen.
  • Das Datum wird nicht erkannt: Überprüfe, ob die Datumswerte in Spalte B korrekt formatiert sind (als Datum und nicht als Text).

Alternative Methoden

Wenn du eine Meldung erhalten möchtest, ohne VBA zu verwenden, kannst du die bedingte Formatierung nutzen:

  1. Markiere die Zellen in Spalte B.
  2. Gehe zu Start > Bedingte Formatierung > Neue Regel.
  3. Wähle Formel zur Ermittlung der zu formatierenden Zellen verwenden und gib die Formel ein: 
    =B1<HEUTE()
  4. Wähle ein Format aus, um die Zellen hervorzuheben, wenn das Datum überschritten ist.

Praktische Beispiele

Angenommen, in der Spalte B deiner Tabelle stehen folgende Daten:

B
01.01.2023
15.05.2023
30.09.2023

Wenn das heutige Datum der 01.10.2023 ist, wird das Popup erscheinen, da das Datum 01.01.2023 in der Vergangenheit liegt.

Tipps für Profis

  • Anpassung des Popup-Textes: Du kannst den Text des Popups leicht anpassen, indem du die MsgBox-Zeile im Code änderst. Zum Beispiel: 
    MsgBox "Achtung! Das folgende Datum wurde überschritten: " & Application.WorksheetFunction.Min(Worksheets("Info").Range("B:B"))
  • Erweiterte Bedingungen: Du kannst mehrere Bedingungen hinzufügen, um spezifischere Meldungen anzuzeigen, z.B. für unterschiedliche Spalten oder unterschiedliche Arten von Daten.

FAQ: Häufige Fragen

1. Wie aktiviere ich Makros in Excel?
Du kannst Makros aktivieren, indem du zu Datei > Optionen > Sicherheitscenter > Einstellungen für das Sicherheitscenter > Einstellungen für Makros gehst und die gewünschte Option auswählst.

2. Funktioniert dies in allen Excel-Versionen?
Der oben beschriebene VBA-Code funktioniert in den meisten modernen Excel-Versionen (Excel 2010 und später). Bei älteren Versionen kann es zu Abweichungen kommen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige