Blattformatierung mit VBA
22.05.2013 08:12:33
Ralf
ich möchte verschiedene Tabellenblätter mit einem VBA Code formatieren. Den Code habe ich mit dem Makrorekorder aufgezeichnet. Ich möchte z. B. alle Spalten von W bis zum Ende (ZZ?) einheitlich formatieren. Ebenso möchte ich die Zeilen vereinheitlichen. Ich habe den Code dann an das Zeilen- bzw. Spaltenende händisch angepasst. der Code sieht so aus:
<pre>Sub Spaltenformatierung()
Columns("V:ZZ").Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.ColumnWidth = 10.83
End Sub</pre>
<pre>Sub Zeilenformatierung()
Rows("35:1048576").Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.RowHeight = 12.75
End Sub</pre>
Der Code wird in beiden Fällen mit einem Laufzeitfehler '13' Typen unverträglich abgebrochen.
Es ist wahrscheinlich ganz einfach, aber kann mir jemand helfen, den Fehler zu lösen?
Vielen Dank im Voraus für eine Rückmeldung.
Viele Grüße
Ralf