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
Jedoch habe ich das Problem, dass bei drei Spalten die Breite immer zu groß ist.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ß