AW: 2. Versuch / Zelle markieren
23.12.2003 12:30:49
andre
hallo mina,
keine 5 minuten ...
'in DieseArbeitsmappe
Private Sub Workbook_Open()
For Each zellen In Sheets("tabelle2").Cells
If Date > zellen.Value + 60 Then
Sheets("tabelle1").Range(zellen.Address).Interior.ColorIndex = 3
End If
Next
End Sub
'in Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("tabelle2").Range(Target.Address) = Date
Target.Interior.ColorIndex = xlNone
End Sub
frag aber bitte nicht, wie lange die makros laufen - hab ich nicht getestet.
beim öffnen kontrolliert das erste makro alle !! zellen auf tabelle1, ob das zugehörige datum in tabelle2 älter als 60 tage ist. wenn ja, wird die entsprechende zelle rot gefärbt.
das zweite makro trägt bei änderung einer zelle in tabelle 1 das aktuelle datum in tabelle2 ein.
wer hat da eigentlich meine mail-adresse angegeben?
gruss andre