[thefifa]

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ß

[dastriebel]

eine mögliche Lösung

Option Explicit

Public Sub MarkiereRot()

	Dim rngBereich As Excel.Range
	Dim rngZeile As Excel.Range
	
	Set rngBereich = Range(Rows(1), ActiveSheet.UsedRange.Rows)
	
	For Each rngZeile In rngBereich.Rows()					  'ganzer Bereich Zeile für Zeile durchlaufen
		
		If rngZeile.Cells(1, 2).Interior.ColorIndex = 3 Then	'   Wenn Hintergrund in der zweiten Spalte Rot (3)
			rngZeile.Cells(1, 1) = "N"						  '	   'N' in die erste Spalte
		Else													'   Sonst
			rngZeile.Cells(1, 1) = "Ä"						  '	   'Ä' in die erste Spalte
		End If
	
	Next rngZeile											   'nächste Zeile verarbeiten

End Sub