Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 15:53:31
In Outlook (Exchange) Serientermin erstellen
18.04.2024 15:16:20
VBA Suchen, Kopieren, Einfügen
18.04.2024 15:16:07
Verschieben von Daten um bestimmte Zeilen nach unten
18.04.2024 15:13:44
Text ans untere Ende der Seite verschieben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1820to1824
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
1820to1824
1820to1824
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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!

336 Forumthreads zu ähnlichen 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
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
Anzeige
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
Bedingte Formatierung für jede Zelle im Bereich
Chris

Hi,
ich habe folgendes Problem:
Meine Zellen F27:R27 sollen sich rot färben sobald ihr Wert größergleich der entsprechenden Zelle von Sheet1!E21:Q21 ist.
Normalerweise kann Excel ja keine bedingte Formatierung über verschiedene Tabellenblätter erreichen. Deshalb habe ich im WWW die...
06.11.2009 16:30:32
Thread-ID: 1115035
8 Beiträge
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
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
3
2
2
2
1
2
7
15
10
2
2
2
1
2
2
1
2
1
14
4
2
2
7
2
5