Wie ermittelt und identifiziert man den Index der Hintergrundfarbe von Zellen in Excel?
Wenn Sie ein Arbeitsblatt mit mehreren farbigen Zellen wie im folgenden Screenshot erhalten, möchten Sie möglicherweise den Hintergrundfarben-Index dieser Zellen ermitteln. Excel bietet zwar keine integrierte Funktion, um den Farbcode einer Zelle direkt auszulesen – doch in diesem Artikel stelle ich Ihnen einige VBA-Codes vor, mit denen Sie diese Aufgabe schnell und effizient erledigen können.
Identifizieren der Zellenfarbe mithilfe von VBA
Identifizieren der Zellenfarbe mithilfe von VBA
Führen Sie die folgenden Schritte aus, um mit VBA die Farbe der Zelle zu ermitteln.
1. Drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul, um ein neues Modul zu öffnen, und fügen Sie den folgenden VBA-Code in das leere Skript ein. Siehe Screenshot:
VBA: Abrufen des klassischen Hexadezimalcodes einer Zelle
Function getRGB1(FCell As Range) As String
'UpdatebyExtendoffice20170714
Dim xColor As String
xColor = CStr(FCell.Interior.Color)
xColor = Right("000000" & Hex(xColor), 6)
getRGB1 = Right(xColor, 2) & Mid(xColor, 3, 2) & Left(xColor, 2)
End Function |
 |
3. Speichern Sie den Code und schließen Sie das VBA-Fenster. Wählen Sie eine leere Zelle neben der farbigen Zelle aus, geben Sie die folgende Formel ein: =getRGB1(A16), und ziehen Sie anschließend den AutoAusfüll-Griff über alle Zellen, auf die Sie die Formel anwenden möchten. Siehe Screenshot:
 |
 |
Tipp: Es gibt noch weitere Codes, mit denen Sie den Farbcode einer Zelle identifizieren können.
1. VBA: Dezimalwert für jeden Code
Function getRGB2(FCell As Range) As String
'UpdatebyExtendoffice20170714
Dim xColor As Long
Dim R As Long, G As Long, B As Long
xColor = FCell.Interior.Color
R = xColor Mod 256
G = (xColor \ 256) Mod 256
B = (xColor \ 65536) Mod 256
getRGB2 = "R=" & R & ", G=" & G & ", B=" & B
End FunctionErgebnis:
2. VBA: Dezimalwerte
Function getRGB3(FCell As Range, Optional Opt As Integer = 0) As Long
'UpdatebyExtendoffice20170714
Dim xColor As Long
Dim R As Long, G As Long, B As Long
xColor = FCell.Interior.Color
R = xColor Mod 256
G = (xColor \ 256) Mod 256
B = (xColor \ 65536) Mod 256
Select Case Opt
Case 1
getRGB3 = R
Case 2
getRGB3 = G
Case 3
getRGB3 = B
Case Else
getRGB3 = xColor
End Select
End FunctionErgebnis:
Duplizierte oder eindeutige Werte in Excel einfach auswählen |
Wenn Sie in Excel mit einem Datenbereich arbeiten und doppelte Zeilen hervorheben oder auswählen müssen – wie erledigen Sie diese Aufgabe am schnellsten? Mit der Kutools für Excel-Funktion Doppelte/ Eindeutige Zellen auswählenkönnen Sie blitzschnell Duplikate oder eindeutige Werte in einem Bereich markieren. Zusätzlich lassen sich diesen doppelten oder eindeutigen Werten ganz einfach eine Hintergrund- und Schriftfarbe zuweisen, sodass Ihre Daten mühelos hervorstechen. |
 |
Kutools für Excel– Erweitern Sie Excel mit über 300 unverzichtbaren Werkzeugen, um Ihre Arbeit schneller und einfacher zu erledigen, und nutzen Sie KI-Funktionen für intelligentere Datenverarbeitung und höhere Produktivität.Jetzt herunterladen |
Verwandte Artikel:
- Wie ändert man die Schriftfarbe in Excel basierend auf dem Zellenwert?
- Wie färbt man doppelte Werte oder ganze doppelte Zeilen in Excel farblich hervor?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins