Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 15:29:29
Notizen einheitliche Position, Formatierung per Bezugsspalte
16.04.2024 15:16:53
Summen mit verschiedenen Variablen
16.04.2024 14:29:30
Matrixkonstanten als Quelle für Gültigkeit und Steuerelement
16.04.2024 13:54:06
Multiplikation
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
532to536
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
532to536
532to536
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Farben in Bedingte Formatierungen ersetzen

Farben in Bedingte Formatierungen ersetzen
16.12.2004 09:44:21
Jimmy
Hallo Leute!
Ich habe in einem sehr aufwendigen Sheet ca 40 verschiedene 'Bedingte Formatierungen' an den unterschiedlichsten Zellpositionen.
Ich suche einen Weg, wie ich in den Feldern die die Farbe ' Rot' als mögliche Formatierung haben diese Farbe durch Rosa(!) ersetzen kann ohne jedesmal das einzelne Feld mit Menü-Format-Bedingteformatirung...usw. editieren zu müssen.
Eine Gesamtauswahl geht auch nicht, da sich die Bedingungen sehr unterscheiden.
Vielen Dank fürs Nachdenken
Jimmy

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Farben in Bedingte Formatierungen ersetzen
Harald
Hallo Jimmy,
ein Ansatz:

Sub Test()
Dim x As Range
For Each x In ActiveSheet.Cells
x.Select
If Selection.FormatConditions.Count > 0 Then
If Selection.FormatConditions(1).Interior.ColorIndex = 3 Then
Selection.FormatConditions(1).Interior.ColorIndex = 40
End If
End If
Next x
End Sub

Danke für's weiterdenken.
Gruß Harald
AW: Farben in Bedingte Formatierungen ersetzen
16.12.2004 16:24:03
Jimmy
Super Harald!!!!
Genau das wars!!!
Wunderbar - herzlichen Dank! (und noch ein)!
Als VBA-Katastrophsky hab' ich noch eine Bitte:
Diese 

Function durchläuft das komplette Tabellenblatt Zelle für Zelle/Zeile.
Ich denke dafür ist die Bereichsdefinition 'ActiveSheet.Cells' verantwortlich.
Wie muss ich denn als Bereich die 'aktive Auswahl' angeben, damit nur ein von mir ausgewählter Zellbereich durchsucht wird?
In Lokalbereich hab' ich gesucht aber nix gefunden, dass sich einem VBA-Laien wie mir als 'Auswahl' zu erkennen gibt...
Auch wenn das nicht geht, hat mir diese Lösung das Leben sehr erleichtert - nochmals vielen Dank Harald!
Dein Listing hab ich nahe zu unverändert verwendet:


Sub GenialerFormatierungsCodeVonHarald()
Dim x As Range
For Each x In ActiveSheet.Cells
x.Select
If Selection.FormatConditions.Count > 0 Then
If Selection.FormatConditions(1).Interior.ColorIndex = 46 Then
Selection.FormatConditions(1).Interior.ColorIndex = 40
End If
End If
Next x
End Sub



lg

Jimmy
Anzeige
AW: Farben in Bedingte Formatierungen ersetzen
16.12.2004 21:24:23
Bert
Hallo Jimmy,
endlich kann ich auch mal jemandem helfen...
Das ist einfach:
Die aktive Auswahl heißt in Excel einfach "Selection",
also statt "For Each x in ActiveSheet.Cells" schreibst du:
"For Each x in Selection"
Gruß
Bert
AW: Farben in Bedingte Formatierungen ersetzen
Bert
Holla, das geht wahrscheinlich schief, weil du ja in der Schleife einzelne zellen selektierst, die aktive Auswahl sich also ändert. Statt dessen musst du es eher so schreiben(beachte auch das ".Cells", das ich auch vergessen hatte):

Sub GenialerFormatierungsCodeVonHarald()
Dim x As Range
Dim y As Range
y = selection
For Each x In y.Cells
x.Select
If Selection.FormatConditions.Count > 0 Then
If Selection.FormatConditions(1).Interior.ColorIndex = 46 Then
Selection.FormatConditions(1).Interior.ColorIndex = 40
End If
End If
Next x
End Sub

probier mal, ob das geht...
noch'n Gruß
Bert
Anzeige
AW: Farben in Bedingte Formatierungen ersetzen
17.12.2004 12:53:04
Jimmy
Nochmals Dake Bert!
Komischerweise klappt es mit dem Code aus deinem ersten Posting sehr gut.
(For each x in selection)
Also ich kann damit problemlos in einer Auswahl eine Farbe einer bedingten Formatierung ersetzen. Auch wenn die Bedingung auf den aktuellen Zellwert nicht zutrifft wird die Farbe in der 'Formel' geändert. Es klappt auch bei Mehrfach-Selektion nicht zusammenhängender Bereiche.
Ähm - wieso?
Gruß Jimmy
AW: Farben in Bedingte Formatierungen ersetzen
bert
Hab's mir nochmal schnell überflogen. Du selektierst ja gar nicht einzelne Zellen sondern Bereiche innerhalb der "Selection", aber so ganz klar ist mir's auch nicht, warum es damit funktioniert. Manchmal soll man halt nicht soviel drüber nachdenken, sondern sich einfach freuen, dass es geht...;-)
Wenn mir 'ne bessere Antwort einfällt oder ich die große Erleuchtung kriege, lasse ich's dich wissen.
Gruß
Bert
Anzeige
AW: Farben in Bedingte Formatierungen ersetzen
16.12.2004 23:09:35
Jimmy
Hallo Bert!
Hat wunderbar geklappt.
Die Function habe ich auch sofort in 'Sub GenialerFormatierungsCodeVonHaraldUndBert()' umbenannt.
Vielen Dank
Jimmy

310 Forumthreads zu ähnlichen Themen

Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 Beiträge
Anzeige
über Farbe der Zelle Zellen dynamisch sperren
Sucher

Hallo liebes Forum,
kann mir hier im Forum eine/einer weiterhelfen.
Das Makro soll wenn Colerindex = 2 Zellen dynamisch entsperren alle anderen Zell- Farben sollen gesperrt werden!
Ist Situation:
Ich habe mit Excel einen Rechner gebastelt der von anderen Anwendern benutzt werde...
11.12.2008 09:18:42
Thread-ID: 1031921
13 Beiträge
Hintergrundfarbe auf Grund Wert in anderer Zelle
Roger

Guten Morgen,
ich suche eine Lösung für folgendes Problem: In der Spalte F von Zeile 4 bis 300 habe ich folgende werte stehen: entweder nichts, Ja oder Nein. Nun will ich zwecks übersicht in Spalte A in den Zellen 4 bis 300 Farben als Hintergurnd haben. Wenn in Zelle F4 nichts steht, dann i...
18.12.2008 08:21:58
Thread-ID: 1033737
10 Beiträge
Anzeige
MIN-Wert von bestimmten Zellen auslesen
bestimmten

Hallo zusammen,
ich habe folgendes Problem, welches sich erstmal gar nicht schwierig anhört, nur bei der Umsetzung hapert es noch ein bißchen.
Ich habe in meiner Excel Tabelle bspw... folgendes stehen
Zeile 12: I12=test, J12=4
Zeile 14: C14=test, D14=3, H14=test, I14=6
Zeile...
14.01.2009 11:17:03
Thread-ID: 1039535
10 Beiträge
Diagramm Linienfarbe aus Zellfarbe "auslesen"
StefanK

Hallo Herber-Excel-Freunde,
ich habe ein Diagramm (Punkt XY - Untertyp: Punkte mit Linien ohne Datenpunkte) rstellt.
Dabei formatiert Excel erst einmal die Farben automatisch.
Bislang markiere ich dann die einzelnen Linien im Diagramm und formatiere die Farben um.
Jetzt meine A...
16.02.2009 19:50:00
Thread-ID: 1051268
11 Beiträge
Zahl aus best. Zelle auslesen
klaus

Hallo!
Folgende Tabelle soll dargestellt werden:
Tabelle1

 AB1Spalte 1nur 90 (für Anzahl Werte >2 und 210019,12,15,70,70,8,90,9013100160410009,10016,10019,10021,12,16,19,2,24,70,77,8,9,9015 0610009,77,99,88,10019,10021,12,16,19,2,24,70,77,8,9,900

Excel Tabel...
02.03.2009 15:51:14
Thread-ID: 1055623
6 Beiträge
Farbe von bedingte Formatierung übertragen
bedingte

Hallo,
Wie kann ich die Farbe von bedingte Formatierung von ZellBereich 2 übertagen nach ZellBereich 1
Hintergrund ist dass in Bereich 2 Prozentuelle anteilige Wert je Warengruppe (WGR) ausgerechnet wird.
Ich suche ein möglichkeit diese Farbe eins zu eins von Bereich 2 nach Bereic...
05.03.2009 12:14:23
Thread-ID: 1056767
3 Beiträge
Datum aus Zelle auslesen im Dateinamen übernehmen
Ralf

Hallo Zusammen,
hab' ein kleines Problem:
Wie kann man ein in einer Zelle hinterlegtes Datum im Dateinamen übernehmen.
Gruß Ralf
13.03.2009 16:49:57
Thread-ID: 1059943
4 Beiträge
Anzeige

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
6
10
12
9
7
9
10
5
2
3
5
2
3
2
6
3
17
14
2
3
2
3
7
3
2