Re: bediingte Formatierung
22.10.2002 15:30:23
Matthias
Moin, probiere mal folgenden Code:Sub Private Sub Worksheet_Activate()
a = Date
b = Tabelle1.Range("d3").Value
c = a - b
If c < 0 Then
Tabelle1.Range("d3").Select
With Selection.Interior
.ColorIndex = 9
End With
ElseIf c <= 2 Then
Tabelle1.Range("d3").Select
With Selection.Interior
.ColorIndex = 6
End With
End If
End Sub
Erklärung:
Die Terminzelle ist d3
Die Zelle befindet sich in der Tabelle 1
Häng den Code am besten an das Ereignis Worksheet_Activate,
dann werden die Prüfungen schon beim öffnen der Tabelle vorgenommen.
viele Grüsse