Zum Hauptinhalt springen

Wie bestimmt und identifiziert man den Hintergrundfarbindex von Zellen in Excel?

Author: Sun Last Modified: 2025-05-28

Wenn Sie ein Arbeitsblatt mit mehreren farbigen Zellen wie im folgenden Screenshot erhalten, möchten Sie in einigen Fällen den Hintergrundfarbindex dieser farbigen Zellen identifizieren. Es gibt kein integriertes Feature, das den Farbindex einer Zelle bestimmen kann, aber in diesem Artikel stelle ich einige VBA-Codes vor, um diese Aufgabe in Excel schnell zu lösen.
A screenshot showing cells with different background colors in Excel

Identifizieren der Zellenfarbe mit VBA


Identifizieren der Zellenfarbe mit VBA

Führen Sie die folgenden Schritte aus, um die Farbe der Zelle mit VBA zu bestimmen.

1. Drücken Sie Alt + F11 um das Fenster Microsoft Visual Basic for Applications zu öffnen.
A screenshot of the Microsoft Visual Basic for Application window in Excel

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: Hexadezimalcode der Zelle abrufen

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
A screenshot showing how to insert a module for VBA
A screenshot of pasted code in the module

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 diese Formel ein: =getRGB1(A16), und ziehen Sie dann den Autoausfüllkursor über die Zellen, die Sie verwenden möchten. Siehe Screenshot:

A screenshot showing the VBA function entered in a cell to determine color index
A screenshot showing the color hex result

Tipp: Es gibt einige andere Codes, die den Farbindex der 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 Function

Ergebnis:
A screenshot showing the RGB color values result

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 Function

Ergebnis:
A screenshot showing the entire RGB color code as a long integer result


Doppelte 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 können Sie diese Aufgabe schnell bewältigen? Mit Kutools für Excel ermöglicht Ihnen die Funktion 'Doppelte & Eindeutige Zellen auswählen' das schnelle Auswählen von Duplikaten oder eindeutigen Werten in einem Bereich. Sie können diesen Duplikaten oder eindeutigen Werten auch Hintergrund- und Schriftfarben zuweisen, damit Ihre Daten mühelos hervorstechen.
Highlight all duplicates with Kutools

Kutools für Excel - Verleihen Sie Excel mit über 300 essenziellen Tools einen echten Schub. Nutzen Sie dauerhaft kostenlose KI-Funktionen! Holen Sie es sich jetzt


Verwandte Artikel:

Beste Büroproduktivitätswerkzeuge

🤖 Kutools AI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Benutzerdefinierte Formeln erstellen  |  Daten analysieren und Diagramme generieren  |  Erweiterte Funktionen aufrufen
Beliebte Funktionen: Finden, Hervorheben oder Doppelte markieren   |  Leere Zeilen löschen   |  Spalten oder Zellen kombinieren ohne Datenverlust   |   Runden ...
Erweiterte SVERWEIS: Mehrfachkriterien SVERWEIS    Mehrfachwert SVERWEIS  |   Mehrblatt-SVERWEIS   |   Fuzzy Match ....
Erweiterte Dropdown-Liste: Schnell Dropdown-Liste erstellen   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Eine bestimmte Anzahl von Spalten hinzufügen  |  Spalten verschieben  |  Sichtbarkeitsstatus ausgeblendeter Spalten umschalten  |  Bereiche & Spalten vergleichen ...
Hervorgehobene Funktionen: Gitterfokus   |  Entwurfsansicht   |   Erweiterte Formelleiste    Arbeitsmappe & Arbeitsblatt-Manager   |  AutoText-Bibliothek (Auto Text)   |  Datumsauswahl   |  Daten zusammenführen   |  Zellen verschlüsseln/entschlüsseln    E-Mail senden nach Liste   |  Spezialfilter   |   Spezialfilter (Filtern fett/kursiv/durchgestrichen...) ...
Top15 Werkzeugsets12 Textwerkzeuge (Text hinzufügen, Bestimmte Zeichen löschen, ...)   |   50+ Diagramm typen (Gantt-Diagramm, ...)   |   40+ Praktische Formeln (Alter basierend auf dem Geburtsdatum berechnen, ...)   |   19 Einfügewerkzeuge (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Konvertierungswerkzeuge (In Wörter umwandeln, Währungsumrechnung, ...)   |   7 Konsolidieren & Aufteilen Werkzeuge (Erweiterte Zeilen zusammenführen, Zellen aufteilen, ...)   |   ... und mehr

Verbessern Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über300 erweiterte Funktionen zur Steigerung der Produktivität und Zeitersparnis.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...


Office Tab bringt eine Registerkartenoberfläche zu Office und macht Ihre Arbeit viel einfacher

  • Aktivieren Sie die Bearbeitung und das Lesen mit Registerkarten in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters, anstatt in neuen Fenstern.
  • Steigert Ihre Produktivität um50 % und reduziert täglich hunderte von Mausklicks für Sie!