Office: Wenn Datum innerhalb gewissen Bereich dann Zeile einfärben

Hi liebe Leute,

aus Zeitgründen habe ich eine letzte Bitte an euch, bevor ich mich dann intensiv mit den Grundlagen von VBA auseinandersetzen werden kann.

Es geht um Folgendes:
Ich habe in einem Worksheet ein Startdatum (Spalte E) und ein Enddatum (Spalte F). Dazu hab ich als weitere Spaltenköpfe die Monate ab dem aktuellen Monat (gerade noch Mai 2017 in Form von 01.05.2017).

Wenn ein Monat nun zwischen Start- und Enddatum liegt, soll die entsprechende Zelle in der Spalte des Monats per Makro eingefärbt werden. Das Ganze soll auf Monatsbasis passieren, d.h. es wenn ein Startdatum z.B. der 15.06.2017 wäre soll der Monat Juni 2017 trotzdem eingefärbt werden.

Wie ich die For-Schleifen aufbaue verstehe ich grundsätzlich (also eine äußere für die Spalten und eine innere für die Zeilen), aber wie ich den Vergleich anstellen soll, da bin ich überfragt *frown.gif*

Müsste ich die Daten aus Spalte E und F nochmal als Variablen zwischenspeichern? Oder gibt es da eine Möglichkeit das direkt zu vergleichen?

Vielen Dank für eure Mühen
mk_wue

:)

 

Hallo mk_wue,

den Vergleich (hier am Beispiel: Monat Suchdatum >= Monat Startdatum) könntest Du so aufbauen:
Code:

dStart - Day(dStart) + 1 errechnet den Monatsersten von dStart.

Grüße
EarlFred

 

Muß es VBA sein?

Ich mach sowas über Bedingte Formatierung

Zellen formatieren, die KLEINER SIND ALS: und dann Heute()

Ev. nochmal unter Regel verwalten aus ="Heute()" => =Heute() machen, damit Excel weiß, das es eine Formel und kein String ist.

Zellwert < Heute() färbt somit bei mir immer die alten Tage im Kalender rot.

Die ganze Sache läßt sich dort natürlich auch komplizierter nachbauen Wenn Monat(X) Dann usw. usf.

UPDATE: Geändert

 

Hola,

@marinsche: ohne () hinter Heute wird gar nichts gefärbt.

Gru,
steve1da

 

Stimmt, korrigiert. Danke

 

Hab da noch nicht so ganz durchgestiegen, aber danke trotzdem, habs inzwischen improvisiert und doch mit bedingter Formatierung hinbekommen.