Spaltenbreite anpassen
13.01.2004 08:07:05
Carsten
Ich hatte gestern eine Frage zum Thema Spaltenbreite anpassen ohne ausgeblendete Spalten wieder einzublenden. In diesem Thread hat Hans mir eine Lösung gezeigt bei der jedoch nur die jeweils aktive Spalte angepasst wird. Wenn ich nun jede Spalte habe ist das ebenso umständlich wie alle anzupassen und dann die nicht benötigten Spalten wieder auszublenden.
https://www.herber.de/forum/archiv/360to364/t362312.htm
Den Code habe ich nun ein wenig abgeändert und er läuft. Leider dauert das Ganze eine kleine Ewigkeit. Was könnte ich noch verbessern, damit das Ganze schneller läuft?
Sub Spaltenbreite()
Dim iCol As Integer
For Each Column In Worksheets
For iCol = Columns.Count - 255 To Columns.Count Step 1
If Columns(iCol).Hidden = False Then
Columns(iCol).AutoFit
End If
Next iCol
End Sub
Gruß
Carsten