In diesem Tutorial wird gezeigt, wie Sie Zeilenhöhe und Spaltenbreiten mit VBA festlegen.
Excel-Zeilenhöhen und Spaltenbreiten können in VBA geändert werden, indem die Eigenschaften .RowHeight und .ColumnWidth festgelegt werden.
Spaltenbreite mit VBA einstellen
Makro zum Einstellen der Spaltenbreite der Spalten A bis E:
| 123 | Unterspalte_Width()Columns("A:E").ColumnWidth = 30End Sub |
Zeilenhöhe mit VBA einstellen
Makro zum Einstellen der Zeilenhöhe von Reihe 1:
| 123 | Unterzeilenhöhe()Rows("1:1").RowHeight = 30End Sub |
Spaltenbreite automatisch anpassen
Excel bietet die Möglichkeit, Spaltenbreiten automatisch anzupassen. Diese Funktion passt die Spaltenbreite so an, dass die Spalte(n) breit genug sind, um den gesamten Text in dieser Spalte aufzunehmen.
So passen Sie Spaltenbreiten in VBA automatisch an:
| 1 | Spalten("A:B").Autofit |
Wir haben in einem anderen Artikel mehr darüber geschrieben, wie man eine Spalte von VBA automatisch anpasst, einschließlich wie man alle verwendeten Spalten automatisch anpasst.
Zeilenhöhe automatisch anpassen
Sie können Zeilenhöhen auch mit einer ähnlichen Methode automatisch anpassen:
| 1 | Zeilen("1:2").Autofit |
Zellenbreite einstellen
Sie können die Spaltenbreiten auch anpassen, indem Sie auf eine Zelle verweisen:
| 1 | Range("a1").EntireColumn.ColumnWidth = 20 |
Zellenhöhe einstellen
Oder passen Sie die Zeilenhöhe an, indem Sie auf eine Zelle verweisen:
| 1 | Range("a1").EntireRow.RowHeight = 10 |
Spaltenbreite ermitteln
So erhalten Sie die Spaltenbreite einer Spalte:
| 12 | dim iColumnWidth so langiColumnWidth = column("a").ColumnWidth |
Hinweis: Dies gibt Null zurück, wenn nicht alle Spalten im Bereich dieselbe Breite haben.
Zeilenhöhe ermitteln
Ebenso können Sie die Zeilenhöhe erhalten:
| 12 | iRowHeight so lang dimmeniRowHeight = rows("1").RowHeight |
