Spaltenbreite automatisch optimieren - Fehler

Bild

Betrifft: Spaltenbreite automatisch optimieren - Fehler
von: sabrina
Geschrieben am: 09.11.2015 08:32:31

Hallo,
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ß

Bild

Betrifft: AW: Spaltenbreite automatisch optimieren - Fehler
von: sabrina
Geschrieben am: 09.11.2015 08:49:21
Nun weis ich mein Problem.
Die Schrift ist nicht waagrecht sondern senkrecht ausgerichtet, dadurch ändert er die Spaltenbreite entsprechend so ab, als wäre die Schrift waagrecht.
Kann man das Problem irgendwie lösen?

Bild

Betrifft: AW: Spaltenbreite automatisch optimieren - Fehler
von: Matthias L
Geschrieben am: 09.11.2015 09:15:50
Hallo sabrina
Kann ich so nicht bestätigen.
AutoFit funktioniert auch bei 90° gedrehter Schrift
Evtl. hast Du noch irgendwo einen Zeilenumbruch drin
Gruß Matthias

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Spaltenbreite automatisch optimieren - Fehler"