Gruppe
Allgemein
Problem
Es sollen nur die Breiten der nicht ausgeblendeten Spalten automatisch angepaßt werden. Es sollen nur die ausgewählten Spalten berücksichtigt werden.
StandardModule: Modul1
Sub OnlyNoHiddens()
Dim iCol As Integer
For iCol = Selection.Column To Selection.Column + Selection.Columns.Count - 1
If Columns(iCol).Hidden = False Then
Columns(iCol).AutoFit
End If
Next iCol
End Sub