jede zweite Zeile grau hinterlegt
15.02.2008 13:49:44
Andy
Ich hätte gerne im Bereich B21 - M46 jede zweite Zeile grau hinterlegt, so das auch beim Kopieren oder Ziehen die Farbe stets gleich bleibt.
Unten stehendes Macro war ein versuch. Funktioniert zwar, aber auf dem ganzen Blatt kann mann nicht mehr kopieren-einfügen. Wie löst mann das richtig?
Vielen Dank für eure Hilfe
'
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' With Range("B21:M21,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 = 2
' End With
' With Range("B22:M22,B24:M24,B26:M26,B28:M28,B30:M30,B32:M32,B34:M34,B36:M36,B38:M38,B40: _
M40,B42:M42,B44:M44,B46:M46")
' .Interior.ColorIndex = 48
' End With
'End Sub
Anzeige