Zellen Farbe in Excel auslesen

Also mein Problem besteht darin das ich die Farbe einer Excel
Zelle auslesen möchte und dann vergleichen.
Dies war mein versuch hat aber nicht geklappt:
If sFarbe = Sheets(sLaufend).Cells(iArrpos, iKomTar).Color.Interior Then

Darum wäre ich froh wenn irgend jemand wüsste wie man das macht

Vielen Dank im voraus

eisentor

Hallo,

zuerst würde ich die Zelle aktivieren. Egal ob von Hand oder per Makro.
Mit dem Befehl:

Activecell.Interior. Colorindex

kannst Du die Farbe auslesen und einer Variablen oder einer anderen Zelle zuweisen.

z.B:
Dim l as integer
l = Activecell.Interior. ColorIndex
Range(„a1“).value = l

VBA gibt die Farbe aber nur als Zahlenwert aus.
Ich hoffe das hilft Dir weiter.

Gruß
Sascha

Danke viel mals hat bestens funktioniert

Gruss

Isi