ich komme bei einer Sache nicht so recht weiter:
Das makro unten färbt mir die selektierten Zellen im UNion-Range entsprechend der Farbe von N2 und setzt mir den Zelleninhalt von N2 in die
markierten Zellen. Soweit läuft es wunderbar.
Nun soll Excel zusätzlich prüfen
1) Wenn eine oder mehrere Zellen der Spalte LINKS NEBEN des Union-Range (offset,-1) eine bestimmte Farbe haben (vgl. RGB-Wert unten), dann
2) sollen die entsprchenden Zellen im markierten Union-Range leer bleiben, d.h. es soll weder die Farbe noch der Zelleninhalt aus N2 übernommen werden.
Set isect = Intersect(Target, Union(Range("C12:C43"), Range("F12:F43"), Range("I12:I43"), Range("L12:L43"), Range("O12:O43"), Range("R12:R43")))
If Not isect Is Nothing Then
For Each Spalte In isect.Columns
x = x + 1
If x Mod 1 = 0 Then
Spalte.Value = Range("N2").Value
Spalte.Interior.Color = Range("N2").Interior.Color
Spalte.Borders(xlInsideHorizontal).Weight = xlThin
'bis hier hin läufts.
'aber hier tut sich nix...:
If Spalte.Offset(, -1).Interior.Color = RGB(149, 179, 215) Then
Spalte.Value = ""
End If
Chris