AutoFit Zelle
31.10.2019 15:55:20
Marko
ich habe eine Befehlsschaltfläche mit folgenden Codes:
ActiveSheet.Range("a3:z100").Rows.EntireRow.AutoFit
ActiveSheet.Range("a3:z100").Columns.EntireColumn.AutoFit
So kann ich den Text in den Spalten immer anpassen. Der Text kommt aus einer Userform.
Nun mein Problem.
Jedes mal, wenn ich erneut auf den Button klicke, wird die Spalte nur noch größer und größer. Und dies obwohl neue Texte nicht länger sind als bereits vorhandene. Außerdem ändert sich nur die Spaltenbreite und nicht die Zeilenhöhe....kann ich irgendwie die Spaltenbreite auf ein Maximum festlegen, sodass dann ein Umbruch gemacht wird?
Mit ActiveSheet.Range("a3:z100").WrapText = True klappt da leider nichts.
Danke und VG
Marko