So passen sie spalten mithilfe von vba automatisch an (mit beispiel)

Sie können die AutoFit- Methode in VBA verwenden, um die Breite einer oder mehrerer Spalten in einem Excel-Arbeitsblatt automatisch anzupassen.

Hier ist eine gängige Methode, diese Methode in der Praxis anzuwenden:

 SubAutoFitColumns ()
Columns(" A:D ").AutoFit
End Sub

Dieses spezielle Makro passt die Breite jeder Spalte im Bereich A bis D automatisch so an, dass sie so breit ist, dass die längste Zelle in jeder Spalte angezeigt wird.

Das folgende Beispiel zeigt, wie Sie die AutoFit- Methode in der Praxis anwenden.

Beispiel: So passen Sie Spalten mithilfe von VBA automatisch an

Nehmen wir an, wir haben den folgenden Datensatz in Excel, der Informationen über verschiedene Basketballspieler enthält:

Angenommen, wir möchten die Breite jeder Spalte von A bis D automatisch so anpassen, dass sie so breit ist, dass die längste Zelle in jeder Spalte angezeigt wird.

Dazu können wir das folgende Makro erstellen:

 SubAutoFitColumns ()
Columns(" A:D ").AutoFit
End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Beachten Sie, dass die Breite jeder Spalte automatisch so angepasst wurde, dass sie so breit wie nötig ist, um die längste Zelle in jeder Spalte anzuzeigen.

Beachten Sie, dass Sie die folgende Syntax verwenden können, wenn Sie jede Spalte in einem bestimmten Arbeitsblatt automatisch anpassen möchten:

 SubAutoFitColumns ()
ThisWorkbook.Worksheets(" Sheet1 ").Cells.EntireColumn.AutoFit
End Sub

Dieses spezielle Makro passt die Breite jeder Spalte in Tabelle1 automatisch so an, dass sie so breit ist, dass die längste Zelle in jeder Spalte angezeigt wird.

Beachten Sie, dass die Breite aller Spalten ohne Daten unverändert bleibt.

Hinweis : Die vollständige Dokumentation der AutoFit- Methode in VBA finden Sie hier .

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben in VBA ausführen:

VBA: So zählen Sie die Anzahl der verwendeten Spalten
VBA: So finden Sie die zuletzt verwendete Spalte
VBA: So löschen Sie Spalten