Excel und VBA - Die Excel-FAQ

Spaltenbreiten der nicht ausgeblendeten Spalten anpassen

Screenshots zu den Aufrufoberflächen der Excel-Materialien

Spaltenbreiten der nicht ausgeblendeten Spalten anpassen

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