Nach einer bestimmten Farbe in Excel suchen lassen

Hallo,

kann mir jemand sagen, wie ich in Excel nach einer Farbe suchen lasse und wenn die Farbe gefunden wurde ein Wert in Excel bspw. direkt neben der Spalte mit der Farbe eintragen lasse?

Bsp.: Ich möchte, dass in Spalte B nach Rot gesucht wird und wenn Rot gefunden wurde in Spalte A eine "N" eingetragen wird. Dann soll weitergesucht werden und wenn Gelb gefunden wird soll in Spalte A ein "Ä" eingetragen werden.

Ich denke mir mal, dass so etwas wenn überhaupt nur mit VBA realisiert werden kann.

Hoffe, dass mir jemand weiterhelfen kann.

Vielen Dank im Voraus

Gruß

 

Hi,

versuche es mit folgendem Code

Code:

Sub farbe_suchen()
    Dim loLetzte As Long
    Dim loZeile As Long
    Dim inFarbe
    With ActiveSheet
        loLetzte = IIf(IsEmpty(.Cells(Rows.Count, 2)), .Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count)
        For loZeile = 1 To loLetzte
            inFarbe = .Cells(loZeile, 2).Interior.ColorIndex
            Select Case inFarbe
            Case 3
                .Cells(loZeile, 1) = "N"
            Case 6
                .Cells(loZeile, 1) = "Ä"
            End Select
        Next loZeile
    End With
End Sub

Bedingung ist, dass es unterhalb des letzten Wertes in Spalte B keine farbigen Zellen mehr gibt. Diese werden nicht gefunden, da der Code die letzte mit einem Wert belegte Zelle in Spalte B ermittelt. Eine Füllfarbe ist jedoch kein Wert.