So ändern sie die spaltenbreite in vba (mit beispielen)

Sie können die folgenden Methoden verwenden, um die Spaltenbreite in Excel mithilfe von VBA zu ändern:

Methode 1: Ändern Sie die Breite einer Spalte

 SubChangeColumnWidth ()
Columns(" B ").ColumnWidth = 20
End Sub

Dieses spezielle Makro ändert die Breite der Spalte B auf 20 .

Hinweis : Die Standardspaltenbreite in Excel beträgt 8,29 .

Methode 2: Ändern Sie die Breite mehrerer Spalten

 SubChangeColumnWidth ()
Columns(" B:D ").ColumnWidth = 20
End Sub

Dieses spezielle Makro ändert die Breite aller Spalten im Bereich von B bis D auf 20 .

Methode 3: Passen Sie die Breite mehrerer Spalten automatisch an

 SubChangeColumnWidth ()
Columns(" B:D ").AutoFit
End Sub

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

Die folgenden Beispiele zeigen, wie Sie jede dieser Methoden in der Praxis mit dem folgenden Datensatz in Excel anwenden können:

Beispiel 1: Ändern Sie die Breite einer Spalte

Wir können das folgende Makro erstellen, um die Breite von Spalte B auf 20 zu ändern:

 SubChangeColumnWidth ()
Columns(" B ").ColumnWidth = 20
End Sub

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

Beachten Sie, dass sich nur die Breite von Spalte B (Spalte „Punkte“) auf 20 geändert hat, während die Breite aller anderen Spalten gleich geblieben ist.

Beispiel 2: Ändern Sie die Breite mehrerer Spalten

Wir können das folgende Makro erstellen, um die Breite der Spalten B bis D auf 20 zu ändern:

 SubChangeColumnWidth ()
Columns(" B:D ").ColumnWidth = 20
End Sub

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

Beachten Sie, dass sich die Breite jeder Spalte von B bis D auf 20 geändert hat, während die Breite von Spalte A gleich geblieben ist.

Beispiel 3: Automatisches Anpassen der Breite mehrerer Spalten

Wir können das folgende Makro erstellen, um die Breite jeder Spalte von A bis D automatisch so anzupassen, dass sie so breit wie nötig ist, um die längste Zelle in jeder Spalte anzuzeigen.

 SubChangeColumnWidth ()
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.

Zusätzliche Ressourcen

Die folgenden Tutorials erklären, 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