Guten Abend allerseits.
Ziel ist eine farbliche Markierung der Felder in Spalte I , in denen das Datum zwischen heute und heute +3 liegt. Ja, ich weiß, man kann das auch in einer relativen Formatierung machen, aber da habe ich das Problem, dass das Feld erst farblich markiert wird, wenn ich per Doppelklick auf das Feld gegangen bin und dann in ein anderes Feld wechsel.
Das wiederum habe ich mit der Aufzeichnung eines Makros und der Aufzeichnung des Textkonvertierungs-Assistenten zu umgehen versucht. Leider läuft das wunderbar durch, aber auch dann werden die Felder nicht farblich hinterlegt.
Mein Code färbt nun jedoch alle leeren Zellen der Spalten farblich ein und ich weiss nicht, warum.
Vielen Dank für Eure Hilfe!
Sub Lieferdatum_markieren()
Lieferdatum_markieren Makro
'
Dim a As Long
Dim letzteZeile As Long
With Worksheets("Tabelle1")
letzteZeile = .Cells(.Rows.Count, 9).End(xlUp).Row
For a = 2 To letzteZeile
If .Cells(a, 9).Value < Date + 3 Then
.Cells(a, 9).Interior.ColorIndex = 45
End If
Next
End With
End Sub
|