Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
424to428
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
424to428
424to428
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Farbe bei worksheet change

Farbe bei worksheet change
07.05.2004 10:40:48
Florian
Hi Forum!
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Farbe bei worksheet change
Daniel
Hallo Florian,
Range(Target.Offset(,-30),Target).Interior.Color=...
sollte klappen
Daniel
AW: Farbe bei worksheet change
Florian
Hi Daniel!
Saugut, danke Dir!
Ich musste nur statt Range(Target.Offset(,-30),Target).Interior.Color=...
Range(Target.Offset(,-30),Target).Interior.ColorINDEX=...
nehmen, dann lief`s!
Wünsche Dir ein schönes Wochenende,
Florian
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige