Markieren Sie Fälligkeitstermine - Excel-Tipps

Inhaltsverzeichnis

Ed stellte diese Woche die Excel-Frage.

Ich benötige ein einfaches Excel-Makro, das beispielsweise Spalte C durchsucht und die Zellen mit dem heutigen Datum (aktuelles Datum) rot hervorhebt und jede andere Zelle in der Spalte, die ab dem heutigen Datum 15 Tage in der Zukunft liegt, gelb hervorhebt.

Benutzer von Excel 97 oder Excel 2000 können die neue Option "Bedingte Formatierung" nutzen. Lassen Sie uns zunächst erläutern, wie dies manuell ohne Makro erfolgt.

  • Gehen Sie zu Zelle C1.
  • Wählen Sie im Menü Format, Bedingtes Format
  • Ändern Sie auf der linken Seite des Dialogfelds die Dropdown-Liste in "Formel ist".
  • Geben Sie auf der rechten Seite des Dialogfelds Folgendes ein: =INT(C1)=TODAY()
Festlegen der bedingten Formatierung
  • Klicken Sie auf Format, klicken Sie auf Muster, wählen Sie Rot. OK klicken
  • Klicken Sie auf Hinzufügen…
  • Ändern Sie auf der linken Seite des Dialogfelds die Dropdown-Liste in "Formel ist".
  • Geben Sie auf der rechten Seite des Dialogfelds Folgendes ein: =AND(INT(C1)>TODAY(),(INT(C1)-TODAY())<16)
  • Klicken Sie auf Format, klicken Sie auf Muster, wählen Sie Gelb. OK klicken.
  • Klicken Sie auf OK, um die Zuweisung dieses bedingten Formats zur Zelle C1 abzuschließen.
Bedingtes Format Ergebnis

Wenn das Format korrekt eingegeben wurde, ändert sich Zelle C1 in Rot, wenn es das heutige Datum enthält, und in Gelb, wenn das Datum in den nächsten 15 Wochen liegt. Die Funktion TODAY () im Format stellt sicher, dass beim Öffnen der Arbeitsmappe an einem anderen Tag die Zellen für diesen bestimmten Tag rot hervorgehoben werden.

Sie können jetzt Zelle C1 kopieren, alle Daten in Spalte C markieren und Bearbeiten> Spezial einfügen> Formate> OK ausführen, um dieses Format auf jede Zelle in Spalte C anzuwenden.

Das folgende Makro automatisiert die Zuweisung des bedingten Formats:

Sub Macro2() Range("C1").Select Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "=INT(C1)=TODAY()" Selection.FormatConditions(1).Interior.ColorIndex = 3 Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "=AND(INT(C1)>TODAY(),(INT(C1)-TODAY())<16)" Selection.FormatConditions(2).Interior.ColorIndex = 6 Selection.Copy FinalRow = Range("C15000").End(xlUp).Row Range("C2:C" & FinalRow).Select Selection.PasteSpecial Paste:=xlPasteFormats End Sub

Für Excel 95-Benutzer haben Sie keine bedingte Formatierung, können jedoch ein Makro wie das folgende verwenden:

Sub Macro95() ThisDate = Date FinalRow = Range("C15000").End(xlUp).Row For x = 1 To FinalRow ThisCell = Int(Range("C" & x).Value) If ThisCell = ThisDate Then Range("C" & x).Interior.ColorIndex = 3 Else DaysFromNow = ThisCell - ThisDate If DaysFromNow> 0 And DaysFromNow < 16 Then Range("C" & x).Interior.ColorIndex = 6 End If End If Next x End Sub

Die Formelfunktion der Funktion für bedingte Formate ist sehr leistungsfähig und ermöglicht das Hervorheben von Zellen, die verschiedenen Kriterien entsprechen.

Interessante Beiträge...