Farbe bei worksheet change
07.05.2004 10:40:48
Florian
Habe mir ein Beispiel von Hans (gepriesen sei ER ;-) umgebastelt, was auch gut funktioniert. Dabei wird je nach Eintrag in eine bestimmte Spalte die Zellfarbe geändert.
Allerdings will ich nun auch dass sich die ganze Zeile bzw die 30 Zellen links von der Eingabe sich auch mitändern.
Wäre toll wenn mir jemmand auf die Sprünge helfen könnte, wie man die entirerow bzw die Range offset(0,30) definiert, damit keine Fehlermeldung "Objekt erforderlich" mehr kommt !!!
Private Sub Worksheet_Change( _
ByVal Target As Excel.Range)
If Intersect(Target, Range("Af13:AF65536")) _
Is Nothing Then Exit Sub
Select Case Target.Value
Case "o"
Target.Interior.ColorIndex = 2
Case "a"
Target.Interior.ColorIndex = 4
End Select
End Sub
Bedingte Formatierung geht leider nicht (zuviele Farben benötigt).
Schöne Grüße,
Florian
Anzeige