Hallo,
wieder einmal sind es die einfachsten Dinge, die mir am meisten zu schaffen machen. Ich habe eine sehr große Exceltabelle, die ich mit Autofit lesbar breit gemacht habe. Nun will ich aber, die Spalten nicht eine Breite von 25 überschreiten lassen, da auch dies teilweise zur unlerlichkeit führt.
Ich habe das Problem zwar in einer Schleife wie folgt gelöst:
For i = 1 To anzreihen
If Columns(i).ColumnWidth > 25 Then
Columns.ColumnWidth = 25
Selection.WrapText = True
End If
Next i
Jedoch ist die Performance für diese Lösung miserabel ( 30-40 Sekunden). Nun frage ich, ob es noch einen einfacheren Weg gibt? |