Hallo, guten Morgen,
OK - folgendes:
Es geht darum, dass ich eine Geburtstagsliste erstellen möchte
In der Tabelle befinden sich:
A = Name
B = Vorname
C = Geburtsdatum
Ich möchte nun die Zellen A - C mit einer Hintergrundfarbe füllen,
wenn folgende Bedingungen zutreffen:
1. Geburtsdatum ( C ) liegt vor dem aktuellen Datum, dann Füllfarbe
entfernen
2. Geburtsdatum ( C )liegt bis 21 Tage nach dem aktuellen
Datum, dann Füllfarbe rot
3. Geburtsdatum ( C ) heute, dann Füllfarbe grün
zu 2.
Das heißt, dass z. B. heute alle Personen markiert werden sollen,
die bis zum 25. April Geburtstag haben.
Und genau da liegt mein Problem, sage ich z. B. ... + 21 > Date ...
so passiert gar nichts
Der komplette Code sieht so aus:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 3 Then
' wenn Datum nach dem aktuellen Datum oder mehr als 10 Tage
vor dem aktuellen Datum, liegt Füllfarbe zurücksetzen
If CDate(Day(Target) & "." & Month(Target) & "." & Year(Date)) + 10
< Date Or _
CDate(Day(Target) & "." & Month(Target) & "." & Year(Date)) >
Date Then
Range(Target, Target.Offset(0, -2)).Interior.ColorIndex = xlNone
Else
If CDate(Day(Target) & "." & Month(Target) & "." & Year(Date)) =
Date Then
'bei Übereinstimmung mit dem aktuellen Datum Füllfarbe Grün
Range(Target, Target.Offset(0, -2)).Interior.ColorIndex = 4
End If
End If
End If
End Sub