Spaltenbreite begrenzen
01.02.2016 11:49:39
Michael
Hallo,
wie kann automatisch Spaltenbreiten optimieren.
Wie mache ich es aber das ich für eine Spalte G ein Maximalmaß vorgeben kann?
Sub SpaltenbreiteOptimieren()
Worksheets("Aufstellung").Unprotect Password:="ffff"
Application.GoTo Tabelle1.Range("A1")
Columns("A:J").EntireColumn.AutoFit
Columns("M:O").EntireColumn.AutoFit
Columns("R:AA").EntireColumn.AutoFit
Worksheets("Aufstellung").Protect Password:="ffff"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
End Sub
Anzeige