Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Datumswerte mit heute vergleichen und Markieren

Datumswerte mit heute vergleichen und Markieren
15.01.2005 01:54:56
Stefan
Hallo Cracks,
ich habe ein Problem mit einer Datumsfunktion.
Ich habe eine Tabelle mit Ereignissen, die zu jeweils einem bestimmten Datum (Zelle A1) stattgefunden haben. Ich möchte nun 4x jeweils 186 Tage später eine bestimmte Prozedur ausführen. Um das entsprechende Datum herauszufinden, habe ich folgende Formel verwendet: B1 =A1+186. Dies funktioniert auch. nun möchte ich, wenn ich die Tabelle öffne, dass alle Datumswerte, die vor dem heutigen datum liegen, rot markiert werden.
Wie kann ich das anstellen? Ich habe es schon mit bedingter Formatierung versucht, aber beim Einsatz von "HEUTE()&gtB1" kommt nur eine Fehlermeldung...
Bitte um Hilfe.
Danke, Stefan
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datumswerte mit heute vergleichen und Markiere
15.01.2005 02:10:26
Fritz
Morgen,
ich hab es eben mal so gelöst.

Sub DatumVorHeuteRot()
Dim zelle As Range, Bereich As Range
Set Bereich = ActiveSheet.Range("a1:A500")
For Each zelle In Bereich
If zelle < Date Then zelle.Interior.ColorIndex = 3
Next zelle
End Sub

Grüsse, Fritz
Anzeige
AW: Datumswerte mit heute vergleichen und Markiere
15.01.2005 02:51:39
Stefan
Hallo und guten Morgen, Fritz,
"ich habe es eben mal so gelöst"...
Mööönsch, ich hätte alleine für die Zeile "If Zelle &lt Date Then Zelle.Interior.ColorIndex = 3" mindestens drei Tage gebraucht.
Wieso kann jemand das "eben mal so"?
nun habe ich nur noch ein Problem: Wo muß das hin? Ich habe den Code nach "Diese Arbeitsmappe" kopiert und es hat sich nix geändert. Liegt das vielleicht daran, dass ich den Bereich von A1:A500 in F3:I52 geändert habe?
Gruß und erst mal Danke!,
Stefan
Anzeige
AW: Datumswerte mit heute vergleichen und Markiere
15.01.2005 03:21:13
Fritz
Hallo Stefan.
im rechten Auswahlfeld in der vba-Umgebung Workbook_open anklicken. Dann den Code-Rumpf einfügen

Private Sub Workbook_open()
Dim zelle As Range, Bereich As Range
Set Bereich = ActiveSheet.Range("a1:A500")
For Each zelle In Bereich
If zelle < Date Then zelle.Interior.ColorIndex = 3
Next zelle
End sub

freut mich, wenn ich endlich auch mal helfen konnte. Ist das erste Mal :-))
Den Bereich kannst du benennen, wie Du möchtest, also z.B. auch A25:Y633. Dann wird nur in diesem Bereich gesucht. Es ist auch völlig schnuppe, ob die mDatumseinträge in Reihe oder durcheinander stehen. Was kleiner als heute ist, wird rot.
Grüße, Fritz
Anzeige
AW: Datumswerte mit heute vergleichen und Markiere
15.01.2005 03:35:34
Fritz
Hi,
mir ist noch was eingefallen. Du hattest davon gesprochen, dass Du es mit "bedingter Formatierung" versucht hast. Daraus schließe ich, dass sich die Datumswerte in den Zellen vielleicht ändern - also in dem rot gefärbten Bereich vielleicht Datumswerte > Heute eingetragen werden sollen oder könnten. Dann sollen die ja wieder weiß werden.
das ginge so:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim zelle As Range, Bereich As Range
Set Bereich = ActiveSheet.Range("A1:C500")
For Each zelle In Bereich
If zelle < Date Then
zelle.Interior.ColorIndex = 3
Else
zelle.Interior.ColorIndex = xlColorIndexNone
End If
Next zelle
End Sub

Gruss, Fritz
Anzeige
AW: Datumswerte mit heute vergleichen und Markiere
15.01.2005 09:39:49
Egon
Hallo Ihr beiden!
Darf ich mich da reinhängen?
Hab fast das gleiche Problemchen.
Ich möchte 10 Tage vor Terminende die Zellen auch rot machen, soll dann rot bleiben bis ein neuer Termin eingetragen wird, der dann natürlich länger als die 10 Tage in der Zukunft liegt.(Soll dann wieder weiss werden)
Danke im Voraus
Egon
Anzeige
AW: Datumswerte mit heute vergleichen und Markieren
PeterW
Hallo Stefan,
würde mich mal interessieren, was da für eine Fehlermeldung kommt. Hast du die Bedingung bei Formel ist eingegeben und mit einem Gleichheitszeichen begonnen?
Gruß
Peter
AW: Datumswerte mit heute vergleichen und Markiere
15.01.2005 13:40:18
Stefan
Hallo Fritz, Egon und Peter!
jetzt verstehe ich mal eben gar nix mehr. ich wollte für Peter einen Screenshot der Fehlermeldung anfertigen und stattdessen funktioniert die bedingte Formatierung auf einmal.
FRITZ:
Deine Version der Lösung funktioniert auch und ist mit sicherheit die elegantere! Danke für Deine Hilfe! Vielen Dank!
PETER & EGON:
Die bedingte Formatierung, die jetzt auf einmal funktioniert sieht folgendermaßen aus:
formel ist: =HEUTE()&gtF3
wobei hinzuzufügen ist, dass in meiner Tabelle im Bereich E3:E52 bereits durchgeführte Termine stehen; im Bereich F3:I3 habe ich mit "E3+186"... vier weitere Termine im Abstand von jeweils einem halben Jahr eingetragen und die bedingte Formatierung eben für F3 erstellt und dann über den ganzen Bereich F3:I52 aufgezogen.
Was mir halt jetzt noch fehlt ist, wie ich die Bedingte Formatierung wieder herausbekomme, wenn ich einen Termin durchgeführt habe.
Dies war's, ich verbleibe vorerst als halbwegs ratloser
Stefan.
Anzeige
AW: Datumswerte mit heute vergleichen und Markiere
PeterW
Hallo Stefan,
da Excel nicht wissen kann, wann du einen Termin durchgeführt hast kommen zwei Wege in Frage:
1. dokumentiere durch einen Eintrag in einer zusätzlichen Zelle die Erledigung und binde diese Zelle in die Bedingung ein: =UND(HEUTE()&gtF3;G3="") als Beispiel, wenn in G3 ein Eintrag bei Erledigung steht. Anbieten würde sich, in diese Zelle ein Datum zu schreiben, dann kannst du sogar nachvollziehen, wann die Erledigung stattgefunden hat.
2. Zelle markieren und die bedingte Formatierung löschen.
Gruß
Peter
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Datumswerte in Excel mit dem heutigen Datum vergleichen und markieren


Schritt-für-Schritt-Anleitung

  1. Öffne Excel und gehe zu der Tabelle, in der du die Datumswerte vergleichen möchtest.
  2. Wähle den Bereich aus, in dem sich deine Datumswerte befinden (z.B. A1:A500).
  3. Gehe zu "Bedingte Formatierung":
    • Wähle im Menü "Start" die Option "Bedingte Formatierung".
    • Klicke auf "Neue Regel".
  4. Wähle "Formel zur Ermittlung der zu formatierenden Zellen verwenden".
  5. Gib die folgende Formel ein:
    =A1<HEUTE()

    (Hier wird angenommen, dass die Datumswerte in der Spalte A stehen. Passe die Formel entsprechend an, wenn du in einer anderen Spalte arbeitest.)

  6. Klicke auf "Formatieren" und wähle eine rote Füllfarbe aus, um die Zellen hervorzuheben, die vor dem heutigen Datum liegen.
  7. Bestätige mit "OK", um die Regel anzuwenden.

Jetzt werden alle Datumswerte, die vor dem heutigen Datum liegen, rot markiert.


Häufige Fehler und Lösungen

  • Fehlermeldung bei der Formel: Achte darauf, dass du die Formel korrekt eingegeben hast. Der Vergleich sollte in der Form =A1<HEUTE() erfolgen.
  • Bedingte Formatierung funktioniert nicht: Überprüfe, ob du den richtigen Zellbereich ausgewählt hast und ob die Formel auf die erste Zelle des ausgewählten Bereichs verweist.
  • Farbe wird nicht entfernt: Um die Zellen wieder weiß zu machen, kannst du eine weitere Regel hinzufügen, die die Füllfarbe zurücksetzt, wenn das Datum in die Zukunft liegt.

Alternative Methoden

Falls du lieber VBA verwenden möchtest, kannst du den folgenden Code nutzen, um die Datumswerte automatisch zu markieren:

Private Sub Workbook_Open()
    Dim zelle As Range, Bereich As Range
    Set Bereich = ActiveSheet.Range("A1:A500")
    For Each zelle In Bereich
        If zelle < Date Then zelle.Interior.ColorIndex = 3
    Next zelle
End Sub

Dieser Code wird beim Öffnen der Arbeitsmappe ausgeführt und färbt alle Zellen rot, dessen Datumswerte kleiner als das aktuelle Datum sind.


Praktische Beispiele

  • Zellen mit zukünftigen Terminen: Wenn du mehrere Termine hast, die in regelmäßigen Abständen stattfinden, kannst du die Formel =E3+186 verwenden, um diese 186 Tage in die Zukunft zu planen. Setze dann die bedingte Formatierung, um alle relevanten Zellen zu überprüfen, ob sie in der Vergangenheit liegen.

  • Markieren von Zellen 10 Tage vor einem Termin: Du kannst die Formel =E3-10<HEUTE() verwenden, um Zellen rot zu markieren, die 10 Tage oder weniger vor dem aktuellen Datum liegen.


Tipps für Profis

  • Nutze die "Wenn-Funktion" in Verbindung mit der bedingten Formatierung, um unterschiedliche Farben für verschiedene Zeiträume zu verwenden, z.B. rot für überfällige Termine und gelb für Termine, die in den nächsten 7 Tagen fällig sind.
  • Überlege dir, eine Hilfsspalte zu nutzen, in der du den Status der Termine festhältst. Das macht die bedingte Formatierung flexibler.

FAQ: Häufige Fragen

1. Wie kann ich die bedingte Formatierung rückgängig machen?
Du kannst die bedingte Formatierung einfach entfernen, indem du den Bereich auswählst, zu "Bedingte Formatierung" gehst und "Regeln verwalten" wählst.

2. Wie kann ich mehrere Bedingungen kombinieren?
Du kannst mehrere Regeln für die bedingte Formatierung hinzufügen und die Priorität der Regeln festlegen, um gleichzeitige Bedingungen zu berücksichtigen.

3. Funktioniert das auch in älteren Excel-Versionen?
Ja, die oben genannten Schritte und VBA-Codes sollten in den meisten modernen Excel-Versionen funktionieren, einschließlich Excel 2010 und später.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige