Gitternetzlinien
08.01.2007 21:43:32
frank
ich möchte für einen bestimmten Bereich die Zellhintergrundfarbe ändern.
Das mache ich mit:
Option Explicit
Sub Farbe()
Dim c As Range
For Each c In Range("A1:X10")
If c.Interior.ColorIndex = 5 Then c.Interior.ColorIndex = 2
Next
End Sub
Beim Ändern der Farbe werden aber die Gitternetzlinien mit entfernt. Nun meine Frage, wie verhindere ich denn dieses. Habe mit dem Makrorecorder mal versucht die Linien wiederherzustellen sieht aber sehr kompliziert aus. Geht das mit VBA vielleicht einfacher?
Danke wenn ihr mal drüberschaut.
Gruß Frank