Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
880to884
880to884
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bedinge Formatierung mehrerer Zellen

Forumthread: Bedinge Formatierung mehrerer Zellen

Bedinge Formatierung mehrerer Zellen
03.07.2007 10:04:55
Gromminger

Hallo zusammen.
Ich stehe vor folgendem Problem.
Ich lese aus einem Workbook zwei Spalten mit folgender Gestalt aus:
OOL% EC
183% 22,451
138% 20,003
137% 18,437
272% 18,064
144% 16,723
111% 15,890
190% 12,515
... ...
Folgende Bedingungen sind gegeben:
OOL grösser 120 % UND EC grösser 4.500
Wenn Beide Bedinungungen erfüllt sind, dann sollen die Zellen gelb unterlegt werden.
Da dies manuell nicht möglich ist,
brauche ich dafür ein Makro.
Wer könnte mir bei dem Problem helfen?
Danke und Gruss,
Gromminger

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bedinge Formatierung mehrerer Zellen
03.07.2007 10:26:25
jockel
hi Gromminger, wieso soll das nicht gehen? ich nehme mal an, du meintest nicht 4.500 sondern 4,500 ansonsten macht das wirklich wenig sinn (meines erachtens) oder man müsste die formel für die bedingte formatierung ändern:=UND($A2>120%;$B2>4,5) - so lautet sie bislang...
cu jörg
ein feedback wär ganz reizend

Anzeige
AW: Bedinge Formatierung mehrerer Zellen
03.07.2007 10:28:29
Gromminger
mein erster Versuch:
Dim zeile As Integer
zeile = 3
Do Until Cells(zeile, 1) = ""
Cells.FormatConditions.Delete
Cells.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="1.2"
Cells.FormatConditions(1).Interior.ColorIndex = 6
Do Until Cells(zeile, 2) = ""
Cells.FormatConditions.Delete
Cells.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="-4500"
Cells.FormatConditions(1).Interior.ColorIndex = 6
Loop
zeile = zeile + 1
Loop
End Sub
Leider lande ich dabei irgendwie in einer Endlosschleife, die ich nur mit ESC abbrechen kann...

Anzeige
AW: Bedinge Formatierung mehrerer Zellen
03.07.2007 14:02:18
Gromminger
Hi.
Habe es selbst gelöst:


Sub BedForm()
Dim zeile As Integer
zeile = 3
Do Until Cells(zeile, 1) = ""
Application.ScreenUpdating = False
Cells(zeile, 1).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="1.2"
Selection.FormatConditions(1).Interior.ColorIndex = 6
Cells(zeile, 3).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="4,500.00"
Selection.FormatConditions(1).Interior.ColorIndex = 6
zeile = zeile + 1
Loop
End Sub


Ich würde den Code aber noch gerne erweitern!
Wenn die Bedingungen, dh > 120% und > 4,500 nicht erfüllt sind, dann
soll die betreffende Zeile gelöscht werden.
Mein Code bringt leider nicht das gewünschte resultat:
If Cells(zeile, 1) < "120%" And Cells(zeile, 3) < "4,500" Then
Rows(zeile).Select
Selection.Delete Shift:=xlUp
End If
Wer kann mir helfen?
Danke.
Gromminger

Anzeige
AW: Bedinge Formatierung mehrerer Zellen
03.07.2007 14:08:10
Gromminger
Hi.
Habe es selbst gelöst:


Sub BedForm()
Dim zeile As Integer
zeile = 3
Do Until Cells(zeile, 1) = ""
Application.ScreenUpdating = False
Cells(zeile, 1).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="1.2"
Selection.FormatConditions(1).Interior.ColorIndex = 6
Cells(zeile, 3).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="4,500.00"
Selection.FormatConditions(1).Interior.ColorIndex = 6
zeile = zeile + 1
Loop
End Sub


Ich würde den Code aber noch gerne erweitern!
Wenn die Bedingungen, dh > 120% und > 4,500 nicht erfüllt sind, dann
soll die betreffende Zeile gelöscht werden.
Mein Code bringt leider nicht das gewünschte resultat:
If Cells(zeile, 1) < "120%" And Cells(zeile, 3) < "4,500" Then
Rows(zeile).Select
Selection.Delete Shift:=xlUp
End If
Wer kann mir helfen?
Danke.
Gromminger

Anzeige
;

Forumthreads zu verwandten Themen

Formatierungen bei mehreren markierten Zellen
Thorsten

Hallo,
ich lasse über ein Marko verschiedene Zellen markieren. In diese Zellen sollen Buchstaben eingetragen werden. Als bedingte Formatierung ist z.B. angegeben, dass er bei einem "U" die Zelle grün macht. Das Problem ist, er bedient die Formatierung nur, wenn nur eine Zelle markiert ist....
25.09.2008 15:33:00
Thread-ID: 1012356
3 Beiträge
Anzeige
Bedingte Formatierung in Abhängigkeit mehrerer Fel
Thomas

hallo,
ich habe bei einer automatischen formatierung ein paar probleme.
meine tabelle beinhaltet die informationen über switchbelegung und portkonfiguration wie folgt:
Port; Patchfeld; Last input; Last output; VLAN 1; VLAN2; Description
nun sollen die jeweiligen Zeilen anhand de...
11.11.2008 11:56:34
Thread-ID: 1023497
6 Beiträge
Bedingte Formatierung Spaltenweise
Becker

Hallo!
Ich hoffe, Ihr könnt mir weiterhelfen:
Habe eine Tabellenblatt mit Kalender der Spaltenweise aufgebaut ist mit folgenden Formeln und Formaten;
Für Jänner,
- In A1 steht das Jahr 2009(Format-Zahl)
- In C1 steht =DATUM($A$1;1;1)~f~ (Format-Benutzerdefieniert- "TT TTT"...
14.03.2009 16:54:40
Thread-ID: 1060197
5 Beiträge
Bedingte Formatierung-Rahmen für bestimmte Zellen
Peter

Hallo zusammen,
ich möchte in einem Tabellenbereich alle Zellen, die eine Zahl enthalten und daher nicht leer sind, mit einem "Rahmen" versehen.
Ich versuche es z.Zt. mit "bedingter Formatierung" und dann "Formel ist" = Istzahl. Leider funktioniert das nicht. Vielleicht hat jemand von E...
20.03.2009 13:51:29
Thread-ID: 1062187
3 Beiträge
Bedingte Formatierung leere Zellen farbig
ropa

Hallo,
nochmal Bedingte Formatierung
Wie kann ich einen Zellbereich so mit der bedingten Formatierung belegen das alle leeren Zellen z.B. gelb hinterlegt sind wenn ich einen Wert oder Text eingebe dann soll die Formatierung verschwinden.
Grüße
Roland
23.06.2009 14:24:25
Thread-ID: 1083810
2 Beiträge
Anzeige
Bedingte Formatierung mit mehreren Werten
Thorsten

Liebe Excel-Gurus,
ich benötige Hilfe bei folgendem Problem.
In der angehängten Tabelle möchte ich gerne, dass die Zeile bzw. das LAS und FAL
sich farblich verändern sobald in irgendeinem der oberen Fraktionen der Wert
Farbe (grün), Farbe (weiß) oder Farbe (braun) ausgewählt wir...
13.07.2009 17:09:04
Thread-ID: 1088289
2 Beiträge
Anzeige
Bedingte Formel über mehrere Spalten/Zeilen?
Sebastian

Ich möchte, das ein bestimmter Bereich Rot wird wenn in einer Zelle ein "ja" steht.
z.B. sollen die Felder A10 bis G10 Rot werden wenn in der Spalte M10 ein ja steht.
Das geht ja auch mit der "Bedingten Formatierung". Dort hatte ich eingegebem:
Zellwert ist ungleich =$M$10="ja" (un...
22.10.2009 10:51:11
Thread-ID: 1111308
2 Beiträge
Bed. Formatierung in Abhängigkeit mehrerer Zellen
Stefan

Hallo zusammen
Ich stehe wieder einmal vor einem Problem, bei welchem ich auf eure Unterstützung angewiesen bin:
Ich bearbeite eine Geschäfts-Pendenzenliste, welche mehr als 3 dedingte Formatierungen beinhaltet. Die Bedingungen sind vom Inhalt mehreren Zellen abhängig. Nun zu meinem Bei...
21.07.2010 19:18:54
Thread-ID: 1168128
3 Beiträge
bedingte Formatierung mehrerer Arb.Blätter ändern
Hacho1

Hallo
hab ein Workbook mit mehreren Arb.Blättern die alle gleich aufgebaut sind
in jedem Arb.Blatt ist eine bedingte Formatierung in den Zellen H14 bis H23 die mir sagt :
wenn Zellwert zwischen =0,95 und =100 dann mach Zelle rot
Nun muss ich den Wert =0,95 aber ändern...
gi...
10.03.2011 14:22:41
Thread-ID: 1205163
5 Beiträge
bedingte Formatierung bei Zellen mit Wenn-Fktn
Wolfango

Hallo zusammen,
wie muss ich die bedingte Formatierung einstellen,
damit auch wirklich nur Werte 'größer/gleich 100' mit einem gelben Hintergrund versehen werden.
Derzeit werden auch Werte bei denen über eine Wenn-Abfrage 'Nichts' (="") erzeugt wird mit dem gelben Hintergrund ver...
06.05.2011 15:36:12
Thread-ID: 1213376
5 Beiträge
Bedingte Formatierung bei fehlenden Zeilen
Angela

Hallo,
ich habe eine Liste mit Nummern von 1 bis x und daneben einige Spalten. Nun möchte ich, daß Zeilen rot markiert werden, wenn
a) die Spalte daneben den Text "-" enthält (also noch nicht eingetragen ist) UND
b) eine Zeile mit höherer Nummer einen anderen Text als "-" enthält (...
10.05.2011 16:34:43
Thread-ID: 1213844
5 Beiträge
Bedingte Formatierung über zwei Zellen kopierbar
Benjamin

Hallo zusammen
ich stehe gearde auf dem Schlauch und probiere schon eine ganze Weile ein Problem zu lösen.
Ich habe mal eine Excel File als Anhang beigefügt.
https://www.herber.de/bbs/user/74786.xls
Was ich möcht ist, (wenn möglich) einmal die Bedingungen (stehen in Spalte a -...
11.05.2011 15:39:23
Thread-ID: 1214038
3 Beiträge

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige