Bereich.ColorIndex = xlNone, geht net
13.04.2005 22:30:08
Bryan
mit Code unten möchte ich dem Bereich den ich angegeben habe, die Hintergrundfarbe nehmen , aber irgendwas mach ich mit (Bereich.ColorIndex = xlNone) falsch.
Hat jemand eine Ahnung was ich vergessen habe oder falsch mache?
Sub Vorbereiten() 'Inhalte löschen
With Worksheets("FS-Planer")
Set Bereich = Application.Union(.Range("d6:d36"), .Range("h6:h36"), .Range("l6:l36"), _
.Range("p6:p36"), .Range("t6:t36"), .Range("x6:x36"), .Range("ab6:ab36"), .Range("Af6:Af36"), .Range("Aj6:Aj36"), _
.Range("An6:An36"), .Range("Ar6:Ar36"), .Range("Av6:Av36"))
Bereich.ColorIndex = xlNone
[A6:AV36] = ""
End With
End Sub
Danke und Gruss
Bryan