Paul hat ein Arbeitsblatt mit über tausend Datenzeilen. Die meisten Reihen haben eine Höhe von 12, aber einige haben eine Höhe von über 100. Er fragt sich, ob es eine Möglichkeit gibt, die Reihenhöhen so einzustellen, dass keine Reihe über 40 ist. (Das heißt, Personen unter 40 Jahren behalten ihre aktuelle Größe bei, Personen über 40 Jahren werden jedoch auf 40 eingestellt.)

Die Lösung dieses Problems ist eigentlich recht einfach: Sie müssen lediglich die Zeilen durchlaufen, die aktuelle Zeilenhöhe ermitteln und die Zeilenhöhe anpassen, wenn sie zu groß ist. Dies kann mit einem sehr einfachen Makro wie dem folgenden erfolgen:

Sub MaxRowHeight()

Dim R As Long

For R = 1 To ActiveSheet.UsedRange.Rows.Count         If Rows(R).Height > 40 Then Rows(R).RowHeight = 40     Next End Sub

Das Makro bestimmt den Bereich der verwendeten Zeilen im Arbeitsblatt und geht dann diese Zeilen durch. Die operative Eigenschaft ist die Eigenschaft .Height, die überprüft wird. Wenn es über 40 liegt, wird es auf 40 gesetzt. Dies bedeutet, dass alles mit einer Zeilenhöhe von weniger als 40 unverändert bleibt.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (10381) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365.