So ändern sie die zeilenhöhe in vba (mit beispielen)

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

Methode 1: Ändern Sie die Höhe einer Zeile

 SubChangeRowHeight ()
Rows(3).RowHeight = 40
End Sub

Dieses spezielle Makro ändert die Höhe der dritten Zeile auf 40 .

Hinweis : Die Standardzeilenhöhe in Excel beträgt 14,4 .

Methode 2: Ändern Sie die Höhe mehrerer Zeilen

 SubChangeRowHeight ()
Rows(" 1:5 ").RowHeight = 40
End Sub

Dieses spezielle Makro ändert die Höhe jeder Zeile von eins auf fünf auf 40 .

Methode 3: Passen Sie die Höhe mehrerer Zeilen automatisch an

 SubChangeRowHeight ()
Rows(" 1:8 ").AutoFit
End Sub

Dieses spezielle Makro passt die Höhe jeder Zeile automatisch von eins auf acht an, sodass sie so hoch ist, wie nötig ist, um den höchsten Text in jeder Zeile anzuzeigen.

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

Verwandte Themen: So ändern Sie die Spaltenbreite in VBA

Beispiel 1: Ändern Sie die Höhe einer Zeile

Wir können das folgende Makro erstellen, um die Höhe der dritten Zeile auf 40 zu ändern:

 SubChangeRowHeight ()
Rows(3).RowHeight = 40
End Sub

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

Beachten Sie, dass nur die Höhe der dritten Reihe auf 40 erhöht wurde, während die Höhe aller anderen Reihen gleich blieb.

Beispiel 2: Ändern Sie die Höhe mehrerer Zeilen

Wir können das folgende Makro erstellen, um die Höhe jeder Zeile von eins über fünf auf 40 zu ändern:

 SubChangeRowHeight ()
Rows(" 1:5 ").RowHeight = 40 
End Sub

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

Beachten Sie, dass sich die Höhe jeder der ersten fünf Reihen auf 40 geändert hat, während die Höhe aller anderen Reihen gleich geblieben ist.

Beispiel 3: Automatisches Anpassen der Höhe mehrerer Zeilen

Wir können das folgende Makro erstellen, um die Höhe jeder der ersten acht Zeilen automatisch so anzupassen, dass sie so hoch wie nötig ist, um den höchsten Text in jeder Zeile anzuzeigen:

 SubChangeRowHeight ()
Rows(" 1:8 ").AutoFit
End Sub

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

Beachten Sie, dass die Höhe jeder Zeile automatisch so angepasst wurde, dass sie so hoch wie nötig ist, um den höchsten Text in jeder Zeile anzuzeigen:

Zusätzliche Ressourcen

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

VBA: So finden Sie die zuletzt verwendete Zeile
VBA: So fügen Sie eine Zeile mit Formatierung ein
VBA: So zählen Sie die Anzahl der Zeilen im Bereich