VBA – Spalten automatisch anpassen

Nachdem Sie ein Arbeitsblatt mit VBA bearbeitet haben, könnte es notwendig sein, die Spalten automatisch anzupassen, um ein möglichst gutes Endergebnis zu erzielen. Hier erfahren Sie, wie Sie Spalten mit VBA automatisch anpassen können.

Eine Spalte mit VBA automatisch anpassen

Dieser Code passt die Spalten A und B automatisch an. Die automatische Anpassung wird auf das aktuelle Blatt (ActiveSheet) angewendet.

Columns("A:B").EntireColumn.Autofit

Alle verwendeten Spalten automatisch anpassen

Was ist, wenn Sie alle verwendeten Spalten in einem Arbeitsblatt automatisch anpassen möchten? Verwenden Sie die obige Methode in Kombination mit der Anzahl (Count) der verwendeten Spalten und einer Schleife.

Der folgende Code passt alle verwendeten Spalten mithilfe von VBA automatisch an:

Sub AlleSpaltenInVerwendungAnpassen()

Dim x As Integer

For x = 1 To ActiveSheet.UsedRange.Columns.Count

     Columns(x).EntireColumn.autofit

Next x

End Sub