VBA-/Makroprogrammierung bis heutiges Datum

[Paklu001]

[
Bild bitte so als Datei hochladen: Klick mich!
] 

Hallo liebe Community,

bin relativ neu in der Makro-/VBA-Programmierung und würde gerne anhand dieses Beispiels wissen,
wie ich es schaffe eine Programmierung zu erstellen, die mir alle Daten bis zum heutigen Datum in der Spalte 1 rot angezeigen lässt.
habe schon mit bedingter Formatierung und Makros gearbeitet, allerdings ist das heutige Datum nächste Woche nicht mehr aktuell.

[
Bild bitte so als Datei hochladen: Klick mich!
]

habe es jetzt händisch kurz gefiltert und rot eingefärbt.

Hoffe es ist alles einigermaßen verständlich erklärt, sodass ihr mir schnell weiterhelfen könnt.

Vielen Dank schonmal!

[Käpt'n Blaubär]

Hallo,

Hoffe es ist alles einigermaßen verständlich erklärt, sodass ihr mir schnell weiterhelfen könnt.

Du schreibst doch ... weiterhelfen ... und nicht etwa bauen, oder lassen mich meine trüben Augen im Stich?
Wer glaubst Du, stellt die nötige Datei zur Verfügung?
Ganz klar, ich mit Sicherheit nicht.

[Kuwer]

Hallo,

für Spalte A (= Columns(1)) sowas:

Sub RotBisHeute()
 Dim rngZ As Range
 With Application.Intersect(ActiveSheet.UsedRange, ActiveSheet.Columns(1))
   .Font.ColorIndex = xlAutomatic
   For Each rngZ In .Cells
     If rngZ.Value <= Date Then
       rngZ.Font.Color = -16776961
     End If
   Next rngZ
 End With
End Sub

Gruß Uwe

[Paklu001]

Ich habe lediglich um Hilfe gebeten und nicht befohlen, dass mir es jemand fertig stellen soll.
Ich bin neu hier und habe mich hier angemeldet, um etwas zu lernen....nicht um mich zu streiten.
Die Datei hätte ich allerdings anfügen können....sorry vergessen :19:

[WillWissen]

Hi Paklu,

muss es wirklich ein Makro sein? Falls nicht - hier mein Vorschlag mit bedingter Formatierung:

Tabelle1

	A	B	C	D
1	Zieltermin	Lebensmittel	Menge	Käufer
2	14.11.2016	Bananen	120	Müller
3	15.10.2016	Äpfel	45	Schmidt
4	01.12.2016	Birnen	90	Meyer
5	01.01.2017	Kiwis	75	Rössler
6	15.06.2016	Mangos	80	Ulrich
7	01.03.2017	Kirschen	2000	Meister

Bedingte Formatierungen der Tabelle

Zelle Nr.: / Bedingung Format A2 1. / Formel ist =$A2<=HEUTE() Abc A3 1. / Formel ist =$A2<=HEUTE() Abc A4 1. / Formel ist =$A2<=HEUTE() Abc A5 1. / Formel ist =$A2<=HEUTE() Abc A6 1. / Formel ist =$A2<=HEUTE() Abc A7 1. / Formel ist =$A2<=HEUTE() Abc

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Weil das Tool die eingefärbten Daten nicht anzeigt, hier nochmals als ScrShot.

[
Bild bitte so als Datei hochladen: Klick mich!
]