Alle Arbeitsblätter Autofit/Fixiert
14.03.2021 12:28:45
Jubeldibub
ich habe eine Excelmappe mit ca. 500 Tabellenblättern und wollte für alle diese Blätter nun ein Makro schreiben, mit dem folgendes abgewickelt wird:
- Alle Blätter erhalten einen Filter in Zeile 3
- Alle Blätter bekommen eine Fensterfixierung in A4 (also die oberen drei Zeilen sind fixiert)
- Alle Spalten bekommen einen Autofit verpasst
Ich habe es mit diesem Code probiert:
Public Sub Tabelle_vorbereiten()
Dim ws As Worksheet
'Filter lösen
For Each ws In ActiveWorkbook.Worksheets
'Autofilter setzen
ws.Activate
ws.Rows("3:3").Select
ws.Selection.AutoFilter
'Fixierung setzen
ws.Range("A4").Select
ws.ActiveWindow.FreezePanes = True
'Autofit aller Spalten
ws.Columns("A:ZZ").Select
ws.Columns("A:ZZ").EntireColumn.AutoFit
Next ws
End Sub