Hallo zusammen,
erst einmal ein gutes 2010.
Ich möchte mehrere Bereiche mittels folgendem Code bearbeiten:
Dim zelle As Range
For Each zelle In Range("I3:I379") '(Target.Address)
With zelle
Select Case .Interior.ColorIndex
Case Is .Offset(0, 1).Interior.ColorIndex
.Interior.ColorIndex = .Offset(0, 1).Interior.ColorIndex
End Select
End With
Next zelle
Allerdings bekomme ich das nur in Einzelschritten hin. (Für jeden Bereich eine separate Anweisung wie oben) Kann man die Bereiche ("I3:I379") , ("K3:K379") und ("M3:M379") nicht irgendwie zusammenfassen?
Es kann allerdings nicht der Bereich I3:M379 gewählt werden, Da die Spalten J und L nicht betroffen sind.
Danke und Gruß
Volker