Jede zweite Zelle des Bereich einfärben
Benedikt
Mit nachfolgendem Code färbe ich jede zweite Zelle des Bereich B23 bis M45 ein.
Bei anderen Arbeitsblättern sind Bereiche bis M100 gefragt und da wird die Reihe im Code endlos.
Private Sub Worksheet_Change(ByVal Target As Range)
With Range("B23:M23,B25:M25,B27:M27,B29:M29,B31:M31,B33:M33,B35:M35,B37:M37,B39:M39,B41:M41, _
B43:M43,B45:M45")
.Interior.ColorIndex = 30
End With
End Sub
Vielen Dank für Hilfe
Anzeige