Bedingte Formatierung mit mehr als 3

Question

Hallo Leute,

ich habe eine Exceltabelle wo Jahre berechnet werden.

Ich möchte nun, dass wenn in Spalte J der Wert 2 steht die Farbe gelb der jeweiligen Zeile von Spalte A bis I zugewiesen wird und wenn in J der Wert 5 steht die Farbe grün und so weiter bis zum Wert 40 (im 5- Jahres Schritt). Die Farben wären in dem Fall egal.

Kurz: Wenn in Spalte J der Wert 2 steht, soll die jeweilige Zeile von Spalte A bis I gelb markiert werden u.s.w.

Gruß
fet_inc.

Answer 1

Hallo fet_inc,

schau mal auf meiner HP in der Rubrik Beispieldateien und dort dann in dem Beispiel 2 nach. Dort stelle ich dazu eine Beispieldatei zur Verfügung, die Dir sicherlich helfen wird.

Bei Fragen melde Dich.

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 2

Hallo Nick,

und falls es Formel sind oder mehrere Zellen mi einmal gefüllt werden schaue auf diese Seite.
mehr als 3 bedingte Formatierungen Link zur Seite

Gruß Hajo

Answer 3

Hallo Leute,

ich war auf beiden HP. Echt super was es alles so gibt!!! Das mit dem markieren klappt perfekt!! Ich habe die Bezugszeile auf Spalte L verschoben.

Mein einziges Problem noch:

Die Spalte L wird anhand von Formeln berechnet. Wenn sich also die Jahreszahl ändert, bleibt die Zeile dennoch wie davor markiert.

Kurz: Wenn 5 steht soll gelb markiert werden, wenn 10 steht soll grün markiert werden. Die Zahlen ändern sich jedoch anhand einer Formel. Wenn ich den Wert manuell eintrage wird alles so markiert wie ich es haben möchte. Wenn der Wert jedoch über die Formel dann verändert wird, ändert sich die Markierung nicht????

Gruß

Fet_inc.

Answer 4

Hallo Nick,

mir scheint Du hast Dir das zweite Beispiel nicht angesehen.

Gruß Hajo

Answer 5

upps... die habe ich wohl total übersehen.

das funktioniert nur auf die Zelle. Wie kann man das mit dem ersten Beispiel "Tabelle2" kombinieren, d.h. das wenn L einen bestimmten Wert enthält die Spalte A bis G sich farblich markiert?? Sorry, vielleicht hätte ich selbst drauf kommen müssen, aber irgendwie funktioniert es nicht :-)

Gruß
fet_inc.

Answer 6

Hallo Nick,

falls Du Zellen hast wo Eingaben sind und Zellen mit Formeln mußt Du beide Code in Deine Datei kopieren.

Gruß Hajo

Answer 7

Hallo Hajo,

ich bin voll auf dem Schlauch.

Im Zellbezug (Spalte L) sind Formeln. Die Werte ändern sich anhand anderer Werte. Die Spalten A bis G sollen sich anhand dem Wert (Formel) in Spalte L formatieren. Z.b. wenn die Formel in Spalte L10 die Zahl 5 gibt, sollen die Zellen A10:G10 gelb markiert werden.

Gruß
fet_inc.

Answer 8

Hallo Nick,

ich auch, in Spalte G sind Formeln nach denen das formatiert werden soll. Was hat jetzt Spalte L damit zu tun? Ich sehe nicht Deine Datei:

Gruß Hajo

Answer 9

Hallo Hajo,

ich hoffe, ich habe da nicht was durcheinander gebracht. In Spalte L sind Formeln und Spalte A bis G soll nach dem Wert in Spalte L formatiert werden, d.h. wenn in Spalte L ein bestimmter Wert steht, der anhand einer Formel wiedergegeben wird, soll sich die Spalte A bis G farblich formatieren.

Gruß
fet_inc.

Answer 10

Halo Nick,

Option Explicit

Private Sub Worksheet_Calculate()
'**************************************************
'* H. Ziplies *
'* 29.07.09 *
'* http://Hajo-Excel.de/ *
'**************************************************
' diese Variante kostet natürlich Rechenleistung
' da bei jeder Eingabe der Bereich Formatiert wird
' Fülfarbe
' für Schrift RaZelle.Font.ColorIndex
Dim RaBereich As Range, RaZelle As Range
Dim LoLetzte As Long
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 7)), Cells(Rows.Count, 7).End(xlUp).Row, Rows.Count)
' Bereich der Wirksamkeit
Set RaBereich = Range("G1:G" & LoLetzte)
' ActiveSheet.Unprotect ' Tabellenschutz aufheben
For Each RaZelle In RaBereich
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
Select Case RaZelle.Value
Case 1
' grau
Range(Cells(RaZelle.Row, 1), Cells(RaZelle.Row, 12)).Interior.ColorIndex = 15
Case 2
' gelb
Range(Cells(RaZelle.Row, 1), Cells(RaZelle.Row, 12)).Interior.ColorIndex = 6
Case 3
' rot
Range(Cells(RaZelle.Row, 1), Cells(RaZelle.Row, 12)).Interior.ColorIndex = 3
Case 4
' grün
Range(Cells(RaZelle.Row, 1), Cells(RaZelle.Row, 12)).Interior.ColorIndex = 4
Case Else
' Keine
Range(Cells(RaZelle.Row, 1), Cells(RaZelle.Row, 12)).Interior.ColorIndex = xlNone
End Select
End If
Next RaZelle
' ActiveSheet.protect ' Tabellenschutz setzen
Set RaBereich = Nothing
End Sub

Gruß Hajo