Herbers Excel-Forum - das Archiv

Bedingte Formatierung

Bild

Betrifft: Bedingte Formatierung
von: zwingi

Geschrieben am: 27.03.2005 23:24:33
kann von euch mir jemand helfen
ich habe da ein problem mit der Formatierung (farbig)
die bedingte formatierung reicht da nicht meh aus da es 5 Farbunterschiede gibt
ich habe ein größeren bereich A1 bis F50
in der ersten zeile also "1" steht jeweils eine Zahl zwischen 1 und 5
jetzt soll in nächsten zeile "2" also eine tiefer sich die Zellfarbe dazu ändern
und in zeile "3" geht das ganze von vorme wieder los
hier ein Beispiel https://www.herber.de/bbs/user/20228.xls
wie kann ich das realisieren am besten ??
Bild

Betrifft: AW: Bedingte Formatierung
von: Josef Ehrensberger

Geschrieben am: 27.03.2005 23:31:13
Hallo zwingi!
Kopiere diesen Code in das Modul der Tablle!
(Rechtsklick auf Blattregister > Code anzeigen > in das rechte Fenster kopieren)
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:F50")) Is Nothing Then
If Target.Count = 1 Then
If Target > 0 And Target < 6 Then
Target.Offset(1, 0).Interior.ColorIndex = Target
Else
Target.Offset(1, 0).Interior.ColorIndex = xlNone
End If
End If
End If
End Sub


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!


Bild

Betrifft: und weil du ja....
von: Josef Ehrensberger

Geschrieben am: 27.03.2005 23:39:06
Hallo nochmal!
...nur jede zweite Zeile färben willst, solltest du diesen Code verwenden.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:F50")) Is Nothing Then
If Target.Count = 1 And Target.Row Mod 2 <> 0 Then
If Target > 0 And Target < 6 Then
Target.Offset(1, 0).Interior.ColorIndex = Target
Else
Target.Offset(1, 0).Interior.ColorIndex = xlNone
End If
End If
End If
End Sub


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!


Bild

Betrifft: AW: und weil du ja....
von: zwingi
Geschrieben am: 27.03.2005 23:45:38
was soll ich sagen
ertsml einfach nur DANKE
ging super schnell und funktioniert auch super
ich bin einfach begeistert von euch
 Bild
Excel-Beispiele zum Thema "Bedingte Formatierung"
Bedingter Mittelwert Jahreskalender und bedingte Formatierung
Bedingte Übergabe des Focus und Setzen der Schreibmarke im Dialog Bedingte Formatierung auslesen
Über die bedingte Formatierung den Minimalwert markieren Über bedingte Formatierung Hintergrundfarbe bei Zelleingabe ändern
Bedingte Formatierung in Abhängigkeit eines Zellkommentars Markierung von Formeln über bedingte Formatierung
Zeitabhängige Zellmarkierungen über bedingte Formatierung setzen Tabellenvergleich über die bedingte Formatierung