Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
880to884
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

306 Forumthreads zu ähnlichen 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 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
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
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
Bedingte Formatierung über mehrere Zeilen
Chris

Hi,
ich möchte Felder einer Zeile gelb einfärben, sobald in der gleichen Spalte in einer der drei darüberliegenden Zeilen eine Zahl steht.
Z.B. C13 wird gelb sobald in C10:C12 eine Zahl steht. Mit der bedingten Formatierung
Formel ist = IstZahl(C10:C12)
geht das irgendwie nur f...
07.12.2009 09:21:02
Thread-ID: 1122125
4 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 abhängiv von 3 Zellen
3

Hallo zusammen
Ich kriegs einfach nicht hin.
Ich will das die Zellen A7-C7 rot gefärbt werden wenn in den Zellen D7, E7 und F7 nichts drinn steht. Sobald aber in irgend einer Zelle von D7-F7 etwas drinn steht dann soll A7-C7 wieder ohne Farbe sein.
Wie muss ich das machen?
Beste...
26.11.2010 11:09:14
Thread-ID: 1188904
3 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
5
4
2
1
1
1
3
2
2
5
4
4
4
2
2
2
5
7
3
3
1
4
1
7