Inhalte mehrerer Sheets löschen und Farbe ändern
16.11.2012 11:11:09
Albert
ich arbeite mit einem Workbook, welches 34 Sheets beinhaltet.
Nun möchte ich in den 29 Sheets den Bereich M6 bis M35 löschen und den Bereich E6 bis K40 mit der Farbe weiß belegen.
Der Makrorecorder hat folgendes aufgezeichnet.
Sub Zurücksetzten()
Range("E6:K13").Select
With Selection.Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("B5").Select
Sub end
Den Code habe ich dann in mein Makro eingebaut und das sieht dann wie folgt aus.
Sub test()
Sheets("A1 Führung").Range("M6:M35").ClearContents
Range("B5").Select
Range("E6:K35").Select
With Selection.Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("B5").Select
End Sub
Und das Ganze habe ich nun für jedes Sheet gemacht. Funktioniert leider nicht.
Könntet ihr mir vielleicht weiterhelfen?
Mein Gedankengang wäre, dass Sheet W, X, Y, Z nicht von der Lösch- und Farbänderung betroffen ist. Der Rest schon.
Vielen Dank derweil im Voraus.
Albert