Farbe auslesen funktioniert nicht mehr
17.10.2018 23:29:08
Oisse
ich möchte gerne die Hintergrundfarbe einer Zelle auslesen. Wenn die Zelle den richtigen Farbwert hat, dann soll der Code weiterlaufen, ansonsten nicht.
Leider kann ich den Wert nicht mehr über RGB abfragen.
Wenn ich den Code hernehme:
If .Range("K" & i).Interior.Color = RGB(188, 198, 231) Then
gilt die Bedingung als nicht erfüllt, obwohl mir dieser RGB-Wert unter >Zellen formatieren >Ausfüllen > weitere Farbe > benutzerdefiniert angezeigt wird.
Dann hätte ich es auf diese Weise versucht:
intCIndex = wks_Uebersicht.Range("B" & lz_Bauh - 3).Interior.ColorIndex
lngColor = ThisWorkbook.Colors(intCIndex)
Aber hier kommt in der zweiten Zeile eine Fehlermeldung: Die Methode Colors für das Objekt Workbook ist fehlgeschlagen
Ich habe schon so viele Möglichkeiten ausprobiert und ich bekomme einfach immer die falschen Werte, sodass ich die Farben nicht vergleichen kann.
Könnt ihr bitte helfen?
Gruß Oisse
Anzeige