Terminerinnerung Rot-Weiss
15.01.2005 10:55:05
Egon
Hab fast das gleiche Problemchen wie weiter unten:
Ich möchte 10 Tage vor Terminende die Zellen auch rot machen, soll dann rot bleiben bis ein neuer Termin eingetragen wird, der dann natürlich länger als die 10 Tage in der Zukunft liegt.(Soll dann wieder weiss werden)
Danke im Voraus
Egon
Bezieht sich auf diese Nachricht:
Hi,
mir ist noch was eingefallen. Du hattest davon gesprochen, dass Du es mit "bedingter Formatierung" versucht hast. Daraus schließe ich, dass sich die Datumswerte in den Zellen vielleicht ändern - also in dem rot gefärbten Bereich vielleicht Datumswerte > Heute eingetragen werden sollen oder könnten. Dann sollen die ja wieder weiß werden.
das ginge so:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim zelle As Range, Bereich As Range
Set Bereich = ActiveSheet.Range("A1:C500")
For Each zelle In Bereich
If zelle < Date Then
zelle.Interior.ColorIndex = 3
Else
zelle.Interior.ColorIndex = xlColorIndexNone
End If
Next zelle
End Sub
Wer kann mir helfen- Probire schon Tagelang.
Gruß
Egon