Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1820to1824
1820to1824
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn Farbe RBG (x,x,x) dann Farbe ändern

Forumthread: Wenn Farbe RBG (x,x,x) dann Farbe ändern

Wenn Farbe RBG (x,x,x) dann Farbe ändern
23.03.2021 15:12:20
Michi
Hallo!
Ich möchte dass meine Mappe erkennt, dass wenn Farbe x gegeben ist, diese zu Farbe y geändert werden soll. Leider sind meine VBA Kenntnisse echt nicht gut.
Bisher habe ich alles händisch eingegeben, für eine Generalisierung meiner Makros wäre eine direkte Erkennung und Abänderung allerdings super!
Ein erster Versuch war dieser, dieser ist allerdings eher amateurhaft. Stehe mit meinen VBA _ Skills noch sehr am Anfang.

Sub FarbTest2_If…Then()
If ActiveSheet.Cells.Interior.Color = RGB(128, 128, 128) Then ActiveSheet.Cells.Interior.Color = _
_
_
RGB(207, 143, 198)
End Sub

Es geht um eine generelle Änderung der Farbe 1 zur Farbe 2.
Vielen Dank euch schon mal!
VG

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn Farbe RBG (x,x,x) dann Farbe ändern
23.03.2021 15:38:01
Nepumuk
Hallo Michi,
teste mal:
Option Explicit

Public Sub ReplaceColor()
    Dim objCell As Range
    With Application.FindFormat
        Call .Clear
        .Interior.Color = RGB(128, 128, 128)
    End With
    Set objCell = Cells.Find(What:="*", SearchFormat:=True)
    If Not objCell Is Nothing Then
        Do
            objCell.Interior.Color = RGB(207, 143, 198)
            Set objCell = Cells.Find(What:="*", SearchFormat:=True)
        Loop Until objCell Is Nothing
    End If
    Set objCell = Cells.Find(What:=Empty, SearchFormat:=True)
    If Not objCell Is Nothing Then
        Do
            objCell.Interior.Color = RGB(207, 143, 198)
            Set objCell = Cells.Find(What:=Empty, SearchFormat:=True)
        Loop Until objCell Is Nothing
    End If
End Sub

Gruß
Nepumuk

Anzeige
AW: Wenn Farbe RBG (x,x,x) dann Farbe ändern
23.03.2021 16:01:20
Michi
Hallo Nepumuk,
es klappt! Das ganze ist ja doch 'ne Nummer komplizierter als gedacht! :D
Vielen vielen Dank dir!
;

Forumthreads zu verwandten Themen

Bedingte Formatierung ich kriegs nicht hin.
Tom

Hi,
ich versuch hier eine bedingte Formatierung hinzubekommen aber es will nicht, ich steh voll auf dem Schlauch.
Wenn T5 = S5 dann Gruen ; S5 Darf aber nicht 0 sein
Wenn T5 S5 dan Rot ich hab bei gruen das so:
=S5=WENN(T50;T5;-1)
Bei rot so:
=UND(S5T5;T5=0)
m...
08.08.2008 15:58:37
Thread-ID: 1000337
4 Beiträge
Bedingte Formatierung Zelle
hindenberger@gmx.de

Hallo,
kann ich ausgehend eines Ergebnis (grösser oder kleiner Null) eine Zelle einmal grün und einmal rot einfärben lassen?
Danke.
Gruß,
Patric
27.12.2008 12:46:09
Thread-ID: 1035362
3 Beiträge
Anzeige
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 bei leerer Zelle
Marko

Hallo,
vermutlich schon tausend mal gefragt, aber irgendwie komme ich nicht klar.
Wenn in J2 etwas drin steht, soll die Zelle weiß bleiben; wenn nicht, soll sie rot eingefärbt werden.
Wie muss ich die Bedingte Formatierung hierfür gestalten?
Gruss,
Marko
05.05.2009 10:41:00
Thread-ID: 1072999
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
Bedingte Formatierung einer Zelle
Steffen

Hallo,
ich habe folgendes Problem in einer Tabelle:
Die Spalte B ist mit 2 Werten versehen (A+B). Sobald in einer Zeile B ausgewählt wird, soll die Zeile (von z.B. A10-G10) rot markiert werden. Wie kann ich nun also die gesamte Tabelle mit einer bedingten Formatierung versehen, die dann...
26.08.2009 17:02:10
Thread-ID: 1098830
3 Beiträge
Anzeige
Bedingte Formatierung klappt nicht
Juergen

Hallo
Ich brauche mal Hilfe.
Und zwar hab ich folgendes Problem mit der Bedingten Formatierung:
in zelle E12 ist eine Formel die ein Wert Zurückgebt.(1-25)
in zelle F12 ist ebenfalls eine Formel hinterlegt die auch ein Wert zurückgebt.(1-25)
Nun zu mein Problem Ich möchte, w...
22.01.2010 21:00:10
Thread-ID: 1132233
16 Beiträge
Bedingte Formatierung für Texte
Werner

Hallo,
ich möchte per bedingte Formatierung erreichen, dass Texte unterschiedliche Hintergrundfarben bekommen.
Gibt man z.B. "Qualität" ein, so soll auch später das Wort wieder die gleiche Hintergrundfarbe erhalten.
Dazu habe ich nun bereits mehrere Regeln erstellt, ich wollte damit...
01.03.2010 16:48:06
Thread-ID: 1142432
11 Beiträge
Bedingte Formatierung klappt nicht
Axel

Hallo zusammen,
Ich habe eine Zelle A1 mit einer bedingten Formatierung belegt: Formel ist =UND(A1=0;A1""
Damit erreiche ich, dass die Zelle bei einer 0 ein bestimmtes Format annimmt, aber nicht, wenn die Zelle leer ist. Vielen Dank für diese Lösung an die Helfer hier im Forum!
Wen...
04.03.2010 18:12:36
Thread-ID: 1143463
3 Beiträge
Wenn zelle AW3, dann Farbe und Text.
Friedrich

Guten Abend liebe Excel-Spezis,
ich brauche in VBA folgende Lösung:
In der Zelle AW3 erscheinen über eine Formel drei Aussagen SH, H und E
Bei SH sollte die Zelle A7 Rot werden und eine Text "Sofortiger Handlungsbedarf" in Fett erscheinen.
Danke für eure Hilfe
Gruß Friedrich...
30.08.2010 18:23:16
Thread-ID: 1174841
2 Beiträge
bedingte Formatierung greift Wert nicht auf
Felix

Hallo,
eine wahrscheinlich ganz einfache Sache:
Ich moechte mit bedingter formatierung eine Zelle X formatieren, wenn in zwei anderen Zellen Y und Z das gleiche Datum steht. Problem ist, dass die Zellen Y und Z per Link auf andere Zellen zugreifen. Der Zellinhalt ist also ein Link, au...
09.11.2010 10:19:09
Thread-ID: 1185831
3 Beiträge
Anzeige
Bedingte Formatierung-Bezug auf den ersten Textt.
Holger

Hallo,
ich möchte eine Bedingte Formatierung mit Bezug auf den ersten Buchstaben eines Textes in einer Zelle
erreichen. In diesem Beispiel ist es der Buchstabe "A".
Wie muss der folgende Code verändert werden:
Private Sub Worksheet_Change(ByVal Target As Range) Dim actCell As Ra...
15.12.2010 09:12:48
Thread-ID: 1191529
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige