Spaltenbreiten der nicht ausgeblendeten Spalten anpassen

Thema: Allgemein - Gruppe Arbeitsblatt

Arbeitsmappe

228704    225804

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