Option Explicit
Sub GetColor()
Dim rng As Range
Dim c&, r&, g&, b&
For Each rng In Sheets("Tabelle1").Range("B5:B9")
c = rng.Interior.Color
r = c Mod &H100
c = c \ &H100
g = c Mod &H100
c = c \ &H100
b = c Mod &H100
Debug.Print r; g; b
Next
End Sub
Sub GetColor()
Dim rng As Range
Dim c&, r&, g&, b&
For Each rng In Sheets("Tabelle1").Range("a2:f6")
c = rng.Interior.Color
r = c Mod &H100
c = c \ &H100
g = c Mod &H100
c = c \ &H100
b = c Mod &H100
Debug.Print r; g; b
Next
End Sub
Option Explicit
Sub RGBAnzeige()
' auf Grundlage von einem Code von Nepumuk
Dim Rot As Long, Grün As Long, Blau As Long, Wert As Long
' ****** Ergänzung Hajo
Dim i As Integer
For i = 1 To 56
' Farbe in Spalte A
Cells(i, 1).Interior.ColorIndex = i
Wert = Cells(i, 1).Interior.Color
On Error Resume Next
Rot = Wert Mod 256
Wert = (Wert - Rot) / 256
Grün = Wert Mod 256
Wert = (Wert - Grün) / 256
Blau = Wert Mod 256
' MsgBox Rot & ", " & Grün & ", " & Blau
' ***** Ergänzung Hajo
Cells(i, 3) = Rot
Cells(i, 4) = Grün
Cells(i, 5) = Blau
Next i
'***** Ergänzung Hajo
Cells(57, 3) = "Rot"
Cells(57, 4) = "Grün"
Cells(57, 5) = "Blau"
Cells(58, 3) = "RGB Farbwerte"
End Sub
Sub GetColor()
Dim rng As Range
Dim c&, r&, g&, b&
For Each rng In Sheets("Tabelle1").Range("B5:B9")
c = ActiveWorkbook.Colors(rng.Interior.ColorIndex)
r = c Mod &H100
c = c \ &H100
g = c Mod &H100
c = c \ &H100
b = c Mod &H100
Debug.Print r; g; b
Next
End Sub
Sub GetRGB()
Dim rng As Range
Dim c&, r&, g&, b&
For Each rng In Sheets("Tabelle1").Range("A2:F6")
c = rng.Interior.Color
r = c And vbRed
g = (c And vbGreen) \ &H100
b = (c And vbBlue) \ &H10000
rng.Value = r & " " & g & " " & b
rng.Offset(6).Interior.Color = RGB(r, g, b) 'Kontrolle-Zellen einfärben
Next
End Sub
Um die RGB-Werte von Zellfarben in Excel auszulesen, kannst du ein einfaches VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung, um dies zu erreichen:
Öffne Excel und gehe zu der Datei, in der du die Zellfarben analysieren möchtest.
Drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject (deinDateiname)" > Einfügen > Modul.
Kopiere den folgenden Code in das Modul:
Option Explicit
Sub GetColor()
Dim rng As Range
Dim c As Long, r As Long, g As Long, b As Long
For Each rng In Sheets("Tabelle1").Range("A2:F6")
c = rng.Interior.Color
r = c Mod 256
c = c \ 256
g = c Mod 256
c = c \ 256
b = c Mod 256
rng.Value = r & " " & g & " " & b
Next
End SubSchließe den VBA-Editor und kehre zu Excel zurück.
Führe das Makro aus: Drücke ALT + F8, wähle GetColor aus und klicke auf "Ausführen".
Das Makro wird die RGB-Werte der Zellfarben in die entsprechenden Zellen (A2:F6) schreiben.
Fehler: Falsche RGB-Werte
Fehler: 0 0 0 für Schwarz
Wenn du eine andere Methode bevorzugst, um die Zellfarben in Excel auszulesen, kannst du den folgenden Code verwenden, der die ColorIndex-Eigenschaft nutzt:
Sub GetColorWithColorIndex()
Dim rng As Range
Dim c As Long, r As Long, g As Long, b As Long
For Each rng In Sheets("Tabelle1").Range("A2:F6")
c = ActiveWorkbook.Colors(rng.Interior.ColorIndex)
r = c Mod 256
c = c \ 256
g = c Mod 256
c = c \ 256
b = c Mod 256
rng.Value = r & " " & g & " " & b
Next
End SubHier sind einige praktische Beispiele für die Verwendung von RGB-Werten in Excel:
Hintergrundfarbe einer Zelle ändern: Wenn du die Hintergrundfarbe einer Zelle basierend auf RGB-Werten ändern möchtest, kannst du den folgenden Code verwenden:
Sub ChangeCellColor()
Dim r As Long, g As Long, b As Long
r = 255
g = 102
b = 0
Sheets("Tabelle1").Range("A1").Interior.Color = RGB(r, g, b)
End SubZellfarbe überprüfen: Um die RGB-Werte einer bestimmten Zelle zu überprüfen:
Sub CheckCellColor()
Dim c As Long, r As Long, g As Long, b As Long
c = Sheets("Tabelle1").Range("A2").Interior.Color
r = c Mod 256
c = c \ 256
g = c Mod 256
c = c \ 256
b = c Mod 256
MsgBox "RGB: " & r & ", " & g & ", " & b
End SubDebug.Print, um RGB-Werte in das Direktfenster auszugeben und Fehler schneller zu identifizieren.1. Wie finde ich die RGB-Werte für eine benutzerdefinierte Farbpalette? Um RGB-Werte für eine benutzerdefinierte Farbpalette zu finden, musst du sicherstellen, dass du die richtige Farbindexnummer verwendest. Überprüfe den Code, den du verwendest, und stelle sicher, dass er die benutzerdefinierte Palette berücksichtigt.
2. Welche Excel-Version benötige ich für diese Makros? Die meisten der hier vorgestellten Makros funktionieren in Excel 2003 und höher. Stelle jedoch sicher, dass du die korrekte Syntax für deine Version verwendest, insbesondere wenn du mit VBA arbeitest.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen