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

Beiträge aus den Excel-Beispielen zum Thema "Bedingte Formatierung"