Office: Datum älter als

Hallo.

In Excel kann man vom heutigen Tag eine Anzahl Tage abziehen lassen (=HEUTE()-180).

Ich möchte mittels VBA alle Zellen farblich hervorheben, die gleich oder älter -180 Tage sind. Mein Code sähe aktuell so aus.

Code:

Mit diesem Code werden jedoch leider alle Zellen in Rot (ColorIndex = 3) eingefärbt.

Der Ansatz mit Application.WorksheetFunction in Verbindung mit Today ist gescheitert. Wie muss das formuliert werden? Danke für Eure Tipps.

:)

 

warum VBA? Benutze bedingte Formatierung.

Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.





Meine Homepage Homeseite - Hajo's Excelseiten

 

Unglaublich, aber wahr! Ich muss Hajo recht geben...

 

Steht der Mund noch offen, MisterBurns? *biggrin.gif*

 

Code:

ich kenn mich da nicht so aus, aber müsste da nicht der zu prüfende Zellwert noch irgendwo und irgendwie mit rein?

Oder soll wirklich geprüft werden, ob das aktuelle Datum >= 180 ist (was für alle Tage ab dem 28.06.1900 zutreffen sollte)?

 

Die Bedingte Formatierung scheidet aus, da das Makro nur damit nicht fertig ist.

 

Aha. Ja. Spitzenbegründung, die bedingte Formatierung auszuschließen.
Lösung kam ja schon von EarlFred.

 

Wieso so aggressiv? Wenn Dir meine Frage zu banal oder unsinnig erscheint, musst Du ja nicht darauf antworten. Habt ihr Antworten mit solch spitzen Bemerkungen wie auch die von Mase nötig? Es ist schon klar, dass ihr als Excel und/oder VBA-Experten geboren wurdet. Da kann man natürlich von seinem hohen Podest auf die anderen herunter schauen und sich lustig machen.

Meine Frage hatte durchaus einen Sinn. Wenn jemandem nicht klar ist, weshalb das anstelle einer bedingten Formatierung mit VBA gelöst werden soll, kann man ja normal und höflich nachfragen. Dann hätte ich auch normal und höflich geantwortet. Welchen Sinn hat ein Hilfe-Forum, wenn man nicht helfen will?

So. Entweder Ihr sperrt/löscht meinen Account oder ignoriert mich. Oder Ihr denkt mal darüber nach, ob da ein Fünkchen Wahrheit dran ist.

Also gut. Klare Frage. Wie ermittele in VBA das Datum, das X Tage vor dem heutigen liegt? Wer nicht antworten möchte, lässt es bitte. Antworten, die keinen sinnvollen und hilfreichen Bezug auf die Frage haben, bitte unterlassen.

 

Spitz inwiefern? Mein Post tangierte Dich in keinster Weise.

zum Datum - benutze die Suchfunktion!

 

kein Feedback geben und rumpampen, wenn du mit hinweisen nichts anfangen kannst? Sonst alles frisch?

Du weißt, dass du anstelle heutet() Date nehme musst und kriegst die Formel immer noch nicht analog umgesetzt? Grundlagenschulung brauchst du hier nicht erwarten, die beschaffst du dir bitte selbst

 

Spiel mal nicht die beleidigte Leberwurst. Ich bin schon lange über den Punkt hinweg, einfach blindlings Lösungen anzubieten, nur weil der Frager der Meinung ist, auf diese oder jene Weise kann es sowieso nicht umgesetzt werden. Bis jetzt hast du nicht erläutert, wieso bedingte Formatierung für dich inakzeptabel ist. Gut, sei so.

 

Dann wollen wir mal schauen, wie gut man VBA für diese Aufgabe können muss:


Du hast ein gegebenes Datum (das in einer Zelle steht).
Du hast das aktuelle Datum (Date)
Du hast eine vorgegebene Differenz, die zwischen diesen beiden Daten liegen soll.


Deinem Sitznachbarn würdest Du die Bedingung wohl so erklären:
"Ich will wissen, ob ein gegebenes Datum mehr als x Tage vor dem heutigen Tag liegt.
Das heißt: Das gegebene Datum muss vor (Heute - x [Tage]) liegen.
Das heißt: Das Datum muss < (Heute - x) sein
Das heißt: Mein Code muss prüfen, ob Datum < (Heute - x) ist."
(*)

Gemerkt? Bis hierhin brauchtest Du überhaupt keine VBA- oder Programmierkenntnise. Dennoch steht die Bedingung mathematisch sauber formuliert da.
Anders herum: Ohne das Problem zuerst so sauber zu formulieren, brauchst Du überhaupt nicht anzufangen, es programmieren zu wollen.
Das Ergebnis dieses vorangehenden Denkprozesses jetzt in VBA umzusetzen ist hoffentlich auch für dich Kinderkram.

(*)
(bzw. ergänzt um "gleich"
Das heißt: Das Datum muss

 

Moin,

Mit der gleichen Begründung kannst du auch auf Zellen, Formeln, Rahmen, Excelblätter und Exceldateien im gesamten verzichten.

Du hast nun von drei Spezialisten und mir als Semispezialist zu lesen bekommen, dass es seit Excel 2007 nicht sehr sinnvoll ist, die bedingte Formatierung nachzubasteln.
Vielleicht möchtest du aber auch eigentlich gar nicht die Zellen farblich markieren, sondern alle Datumswerte die älter als 180 Tage sind weiterverarbeiten. In dem Fall sparst du dir einfach den Schritt der Färbung und setzt den Autofilter ein.

Viele Grüße
derHöpp