VBA – Spaltenbreite oder Zeilenhöhe festlegen

In diesem Tutorial wird gezeigt, wie man mit VBA die Zeilenhöhen und die Spaltenbreiten festlegen kann.

Excel-Zeilenhöhen und -Spaltenbreiten können in VBA geändert werden, indem die Eigenschaften .RowHeight und .ColumnWidth angepasst werden.

Spaltenbreite mit VBA festlegen

Makro zum Einstellen der Spaltenbreite der Spalten A bis E:

Sub Spaltenbreite_Festlegen()
    Columns("A:E").ColumnWidth = 30
End Sub

Zeilenhöhe mit VBA festlegen

Makro zum Einstellen der Zeilenhöhe von Zeile 1:

Sub Zeilenhoehe_Festlegen()
    Rows("1:1").RowHeight = 30
End Sub

Spaltenbreite automatisch anpassen

Excel bietet die Möglichkeit, die Spaltenbreiten automatisch anzupassen. Diese Funktion passt die Spaltenbreite so an, dass die Spalte(n) breit genug ist (sind), um den ganzen Text in dieser Spalte unterzubringen.

So passen Sie die Spaltenbreiten in VBA automatisch an:

Columns("A:B").Autofit

Wir haben in einem anderen Artikel über die automatische Anpassung einer Spalte in VBA mehr darüber geschrieben, auch darüber, wie man alle verwendeten Spalten automatisch anpasst.

Zeilenhöhe automatisch anpassen

Sie können auch Zeilenhöhen mit einer ähnlichen Methode automatisch anpassen:

Rows("1:2").Autofit

Zellenbreite festlegen

Sie können die Spaltenbreiten auch anpassen, indem Sie auf eine Zelle verweisen:

Range("a1").EntireColumn.ColumnWidth = 20

Zellenhöhe festlegen

Oder passen Sie die Zeilenhöhen an, indem Sie auf eine Zelle verweisen:

Range("a1").EntireRow.RowHeight = 10

Spaltenbreite ermitteln

So ermitteln Sie die Spaltenbreite einer Spalte:

dim iSpaltenbreite as long
iSpaltenbreite = columns("a").ColumnWidth

Hinweis: Dies gibt Null zurück, wenn nicht alle Spalten im Bereich die gleiche Breite haben.

Zeilenhöhe ermitteln

Auf ähnliche Weise können Sie die Zeilenhöhe ermitteln:

dim iZeilenhoehe as long
iZeilenhoehe = rows("1").RowHeight

<<Zurück zu den VBA-Beispielen