Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Datum vergleichen und Zellen färben | Herbers Excel-Forum

Forumthread: Datum vergleichen und Zellen färben

Datum vergleichen und Zellen färben
02.02.2010 18:02:22
Frank

Hallo zusammen,
ich habe ein Problem,
ich würde gerne in einer Spalte das Datum mit dem heutigen Datum vergleichen, und falls dieses in 20 Tagen das aktuelle werden wird, dass die entsprechende Zelle einen roten hintergrund bekommt.
Also so in der Art:

Sub pruef()
Dzeile = 2
Izeile = 2
datum = Date
Do While ActiveSheet.Cells(Dzeile, "D") <> ""
If datumzelle = datum - 20Tage Then
Sheets("CheckRTW").Cells(Dzeile, 4).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Else
Dzeile = Dzeile + 1
End If
Loop

Ich weiss nicht, wie ich das Datumsformat miteinander vergleichen kann.
Das Makro sollte evtl. bei jedem öffnen der Datei selbstständig starten, was kann man da programmieren?
Danke im Voraus.
Gruß Frank

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum vergleichen und Zellen färben
02.02.2010 21:03:29
Michel2010
Warum löst du das nicht mit "Bedingter Formatierung" ? Da muss man doch nichts programmieren.
AW: Datum vergleichen und Zellen färben
03.02.2010 16:26:14
Frank
naja ich habe das schon ausprobiert, aber da kann ich keine Zahlenangabe machen wie:
Färbe Zelle rot, wenn Zukunftdatum in 20Tagen ab HeuteDatum erreicht ist.
Oder geht das doch irgendwie?
AW: Datum vergleichen und Zellen färben
03.02.2010 16:27:31
Hajo_Zi
Hallo Frank,
Zellwert Ist größer als Heute()+20

Anzeige
AW: Datum vergleichen und Zellen färben
03.02.2010 17:30:38
Frank
ok danke funktioniert.
Gruß frank
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Datum vergleichen und Zellen einfärben in Excel


Schritt-für-Schritt-Anleitung

Um in Excel das Datum zu vergleichen und die Zellen farbig zu markieren, kannst du die bedingte Formatierung nutzen. Hier ist eine einfache Anleitung:

  1. Zellen auswählen: Markiere die Zellen, die du nach Datum einfärben möchtest.
  2. Bedingte Formatierung öffnen: Gehe zu „Start“ > „Bedingte Formatierung“ > „Neue Regel“.
  3. Regeltyp wählen: Wähle „Formel zur Ermittlung der zu formatierenden Zellen verwenden“.
  4. Formel eingeben: Gib folgende Formel ein, um zu prüfen, ob das Datum in den nächsten 20 Tagen liegt:
    =UND(A1>HEUTE(), A1<=HEUTE()+20)

    (Ersetze A1 mit der ersten Zelle deiner Auswahl.)

  5. Format festlegen: Klicke auf „Formatieren“ und wähle die gewünschte Hintergrundfarbe (z.B. Rot).
  6. Regel anwenden: Bestätige mit „OK“.

Jetzt werden die Zellen, die ein Datum innerhalb der nächsten 20 Tage haben, rot hinterlegt.


Häufige Fehler und Lösungen

  • Fehler: Zellen färben sich nicht.

    • Lösung: Überprüfe, ob die Formel korrekt eingegeben wurde und die Zellen tatsächlich Datumswerte enthalten.
  • Fehler: Zelle färbt sich bei falschem Datum.

    • Lösung: Stelle sicher, dass du die richtigen Zellen ausgewählt hast und die Formel korrekt auf die erste Zelle angewendet wurde.

Alternative Methoden

Falls du keine bedingte Formatierung nutzen möchtest, kannst du auch ein Makro verwenden. Hier ist ein einfaches Beispiel:

Sub FärbeZellen()
    Dim Dzeile As Integer
    Dzeile = 2
    Do While Cells(Dzeile, 1) <> ""
        If Cells(Dzeile, 1).Value >= Date And Cells(Dzeile, 1).Value <= Date + 20 Then
            Cells(Dzeile, 1).Interior.Color = RGB(255, 0, 0)
        End If
        Dzeile = Dzeile + 1
    Loop
End Sub

Dieses Makro färbt die Zellen in der ersten Spalte rot, wenn das Datum in den nächsten 20 Tagen liegt.


Praktische Beispiele

  1. Beispiel mit Bedingter Formatierung: Du hast eine Liste von Fälligkeiten in Spalte A. Nutze die bedingte Formatierung, um fällige Aufgaben, die innerhalb der nächsten 20 Tage liegen, rot zu markieren.

  2. Zweifarbige Zellen: Um eine Excel-Zelle zweifarbig zu gestalten, kannst du mehrere Bedingungen in der bedingten Formatierung anwenden. Zum Beispiel:

    • Färbe die Zelle rot, wenn das Datum in den nächsten 20 Tagen liegt.
    • Färbe die Zelle gelb, wenn das Datum in den nächsten 10 Tagen liegt.

Tipps für Profis

  • Nutze die Funktion HEUTE() in Kombination mit der bedingten Formatierung, um dynamische Datumsvergleiche zu erstellen.
  • Experimentiere mit verschiedenen Formatierungen, um die Übersichtlichkeit deiner Daten zu erhöhen.
  • Erstelle ein Dashboard, das wichtige Termine farblich hervorhebt, um sofortige visuelle Hinweise zu erhalten.

FAQ: Häufige Fragen

1. Kann ich mehrere Regeln für verschiedene Farben anwenden?
Ja, du kannst mehrere Regeln in der bedingten Formatierung erstellen, um unterschiedliche Bedingungen und Farben festzulegen.

2. Funktioniert das auch in älteren Excel-Versionen?
Ja, die beschriebenen Schritte zur bedingten Formatierung sind in den meisten Excel-Versionen verfügbar, allerdings können die Menüpunkte leicht variieren.

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