Zellen automatisiert auf optimale Spaltenbreite anpassen

[sascha11]

hey!

ich habe in Excel Zellen per Makro gefüllt- leider weiß ich im Voraus nicht, wie groß diese werden, deshalb sollte ich Sie auch gleichzeitig im Makro auf die optimale Spaltenbreite vergrößern, wenn nötig. Gibt es dazu einen Befehl, z. Bsp.: oT3.fitAll()?

Vielen Dank!

Sascha

[Toxitom]

Hey Sascha,

jede Spalte unterstützt die Eigenschaft "OptimalWidth". Übergib "True", dann sollte die Spaltenbreite entsprechend des längsten Eintrags eingestellt werden. Der folgende Code setzt alle Spalten der Tabelle1 auf die optimale Breite:

Code: Alles auswählen

Sub SpaltenOptimiern
	oDoc = thisComponent
	oSheet = oDoc.sheets(0)
	oSp = oSheet.getColumns()
	oSp.optimalWidth = true
End Sub

Gruss
Thomas

[sascha11]

danke!

Sascha