AW: farbe ändern je nach zugriff
07.09.2005 10:15:10
ANdreas
Hallo Angel,
hier mein Vorschlag:
klicke mit der rechten Maustaste unten auf Tabelle1 und dann Code anzeigen. Dort kopierst du folgenden Code hinein:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, rngChange As Range
' Änderungen in Spalte F
Set rngChange = Application.Intersect(Target, Columns(6))
If Not rngChange Is Nothing Then
' Bei Mehrfachänderungen alle Zellen durchlaufen
For Each c In rngChange
' Setze Datum auf heute
c.Offset(0, 2).Value = Now
' Setze Farbe in Spalte B auf grün
c.Offset(0, -4).Font.ColorIndex = 10
Next c
End If
End Sub
Damit wird ab sofort bei einer Änderung in Spalte F in Spalte H das aktuelle Datum eingetragen und die Schrift vorn auf grün gesetzt.
In Spalte B füge beginnend bei Zelle B2 zu deiner bedingten Formatierung noch 2 weitere hinzu:
2. Bedingung, Formel ist =(HEUTE()-H2)>70 (Schriftfarbe blau auswählen)
3. Bedingung, Formel ist =(HEUTE()-H2)>28 (Schriftfarbe orange auswählen)
Hoffe das hilft weiter,
Andreas