Zeilen automatisch farbig machen wenn bestimmtes Kriterium erfüllt ist möglich?
Hallo zusammen!
Ich habe folgendes Problem / Idee:
In einer Excel-Tabelle werden verschiedene Dinge eingetragen.
Für einige Zellen in Spalten sind Gültigkeiten definiert, z.B. ja und nein oder hoch und niedrig.
Kann ich nun, in Abhängikeit der vordefinierten Werte, automatisch die gesamte Zeilen farbig markieren lassen?
Z.B. wenn in A1 "nein" steht, dann mache die Zeile rot oder
wenn in A1 "ja" und in B1 "hoch" steht, dann mache die Zeile blau!
Vielen Dank vorab.
Grüße
Svenny
Ich habe folgendes Problem / Idee:
In einer Excel-Tabelle werden verschiedene Dinge eingetragen.
Für einige Zellen in Spalten sind Gültigkeiten definiert, z.B. ja und nein oder hoch und niedrig.
Kann ich nun, in Abhängikeit der vordefinierten Werte, automatisch die gesamte Zeilen farbig markieren lassen?
Z.B. wenn in A1 "nein" steht, dann mache die Zeile rot oder
wenn in A1 "ja" und in B1 "hoch" steht, dann mache die Zeile blau!
Vielen Dank vorab.
Grüße
Svenny
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 53015
Url: https://administrator.de/forum/zeilen-automatisch-farbig-machen-wenn-bestimmtes-kriterium-erfuellt-ist-moeglich-53015.html
Ausgedruckt am: 23.12.2024 um 09:12 Uhr
14 Kommentare
Neuester Kommentar
BEi den älteren Versionen von Excel kannst du das über ein Makro lösen.
wird dann mit VBA programmiert.
bzw. du kannst auch direkt in der zelle/zeile programmieren und da auch "wenn"-Bedingungen usw. angeben. auch mit farbänderung String auslesen usw.
selbst kann ich dir leider nicht weiterhelfen aber falls interesse besteht leit ich das an meinen Bruder weiter der macht sowas berufsmäßig.
wird dann mit VBA programmiert.
bzw. du kannst auch direkt in der zelle/zeile programmieren und da auch "wenn"-Bedingungen usw. angeben. auch mit farbänderung String auslesen usw.
selbst kann ich dir leider nicht weiterhelfen aber falls interesse besteht leit ich das an meinen Bruder weiter der macht sowas berufsmäßig.
Ola,
Du kannst auch als Bedingung eine Formel angeben... z.B "=Oder(X1<>"";Y1<5)"
Damit lässt sich so ziemlich alles erschlagen... wir machen damit z.B. eine zeiterfassung, in der die Leute in einem Dropdownfeld Urlaub, Krankheit etc. auswählen. Die Zeile wird dann gelb, wenn sie nicht ein Samstag/Sonntag ist...
Du kannst auch als Bedingung eine Formel angeben... z.B "=Oder(X1<>"";Y1<5)"
Damit lässt sich so ziemlich alles erschlagen... wir machen damit z.B. eine zeiterfassung, in der die Leute in einem Dropdownfeld Urlaub, Krankheit etc. auswählen. Die Zeile wird dann gelb, wenn sie nicht ein Samstag/Sonntag ist...
Wie "y3k" und "SvennyW" schon schriben, geht es mit der bedingten Formatierung einwandfrei.
Zum besseren Verständnis schau Dir mal diese Workshops an
http://www.herber.de/xlfaq/workshop/weekend/weekend.html
Hauptseite die auch ein Forum hat http://www.xlfaq.herber.de/
und
http://www.online-excel.de/excel/singsel.php?f=74
hth
onegasee59
Zum besseren Verständnis schau Dir mal diese Workshops an
http://www.herber.de/xlfaq/workshop/weekend/weekend.html
Hauptseite die auch ein Forum hat http://www.xlfaq.herber.de/
und
http://www.online-excel.de/excel/singsel.php?f=74
hth
onegasee59
Guggst Du Google - gibst Du ein "bedingte Formatierung Excel" und Seiten auf Deutsch tadaaaaa
http://www.google.de/search?hl=de&q=bedingte+Formatierung+Excel& ...
z.Bsp ---> "Bedingte Formatierung mit mehr als 3 Bedingungen - www.Office ..."
hth
onegasee59
http://www.google.de/search?hl=de&q=bedingte+Formatierung+Excel& ...
z.Bsp ---> "Bedingte Formatierung mit mehr als 3 Bedingungen - www.Office ..."
hth
onegasee59
... und wenn's etwas gezielter sein soll, könnte man das gefundene Script etwa so abwandeln:
Jetzt reagiert das Script nur auf Änderungen in der Spalte "C" und färbt in der gleichen Zeile den Spaltenbereich von "A" bis "G" ein ...
Grüße
bastla
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Const Von As String = "A"
Const Bis As String = "G"
Select Case Cells(Target.Row, "C").Value
Case Is <= 1
Range(Cells(Target.Row, Von), Cells(Target.Row, Bis)).Interior.ColorIndex = 2
Case Is <= 2
Range(Cells(Target.Row, Von), Cells(Target.Row, Bis)).Interior.ColorIndex = 3
Case Is <= 5
Range(Cells(Target.Row, Von), Cells(Target.Row, Bis)).Interior.ColorIndex = 4
Case Is <= 10
Range(Cells(Target.Row, Von), Cells(Target.Row, Bis)).Interior.ColorIndex = 5
Case Is <= 20
Range(Cells(Target.Row, Von), Cells(Target.Row, Bis)).Interior.ColorIndex = 6
Case Is <= 50
Range(Cells(Target.Row, Von), Cells(Target.Row, Bis)).Interior.ColorIndex = 7
Case Else
Range(Cells(Target.Row, Von), Cells(Target.Row, Bis)).Interior.ColorIndex = xlColorIndexNone
End Select
End Sub
Grüße
bastla
Tänksju, bastla
onegasee59
onegasee59