Spaltenbreite automatisch optimieren - Fehler
09.11.2015 08:32:31
sabrina
ich habe eine Excel-Datei in der kann ich die Spaltenbreite automatich anpassen.
Dazu nachfolgender Code.
Sub SpaltenbreiteOptimieren()
Worksheets("Aufstellung").Unprotect Password:="ddd"
Columns("A:A").EntireColumn.AutoFit
Columns("C:Y").EntireColumn.AutoFit
Columns("AB:AD").EntireColumn.AutoFit
Columns("AK:AR").EntireColumn.AutoFit
Columns("AT:AT").EntireColumn.AutoFit
Columns("BD:CC").EntireColumn.AutoFit
Columns("CE:CK").EntireColumn.AutoFit
Columns("CJ:CJ").EntireColumn.AutoFit
Columns("CM:CM").EntireColumn.AutoFit
Columns("CO:DO").EntireColumn.AutoFit
Columns("DQ:DQ").EntireColumn.AutoFit
Columns("DS:DS").EntireColumn.AutoFit
Columns("DZ:EA").EntireColumn.AutoFit
Columns("EI:EI").EntireColumn.AutoFit
Columns("EM:EM").EntireColumn.AutoFit
Columns("EO:EO").EntireColumn.AutoFit
Columns("ER:FA").EntireColumn.AutoFit
Worksheets("Aufstellung").Protect Password:="ddd"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
End Sub
Ich kann machen was ich will.
Ich hätte schon versucht, den Spalteninhalt einer anderen Spalte in der Spalte einzufügen, aber es ändert sich nichts.
Hat hier jemand eine Lösung dazu?
Gruß
Anzeige