ich möchte den Farbwert der aktuellen Spalte in Zeile 1 auslesen und in die aktuelle Zelle übertragen.
Leider funktioniert mein Makro nicht. - Es werden die falschen Spalten mit den Farbwerten aus Zeile 1 eingefärbt.
For Each RaZelle In RaBereich
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
With RaZelle
Select Case StrTarget
Case Is = ""
IntFarb = Cells(1, ActiveCell.Column).Interior.ColorIndex
.Interior.ColorIndex = IntFarb
Wer kann mir weiterhelfen?