[ 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.
Zitat: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.
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!
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
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: