Wie ändert man die Zeilenhöhe basierend auf dem Zellenwert in Excel?

Um die Zeilenhöhe in einem Arbeitsblatt zu ändern, wenden die meisten von uns möglicherweise die Funktion „Zeilenhöhe“ an, um die Höhe der ausgewählten Zeile festzulegen. Wenn Sie jedoch eine Liste von Zahlen haben und nun die Zeilenhöhe basierend auf den Zellenwerten wie im folgenden Screenshot festlegen möchten, wie könnten Sie diese Aufgabe in Excel bewältigen?

Ändern der Zeilenhöhe basierend auf dem Zellenwert mit VBA-Code

Ändern der Zeilenhöhe basierend auf dem Zellenwert mit VBA-Code

Es gibt keinen direkten Weg, mehrere Zeilenhöhen gleichzeitig basierend auf dem Zellenwert zu ändern, aber mit dem folgenden VBA-Code können Sie diese Aufgabe so schnell wie möglich abschließen.

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Ändern der Zeilenhöhe basierend auf dem Zellenwert:

Sub rowheight()
'Updateby Extendoffice
    Dim hgt As Variant
    Dim WorkRng As Range
    xTxt = ActiveWindow.RangeSelection.Address
    Set WorkRng = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
For Each H In WorkRng
        If H.Value > 15 Then
            hgt = H.Value
            H.EntireRow.Select
            Selection.rowheight = hgt
        End If
    Next H
End Sub

3. Drücken Sie dann die F5-Taste, um diesen Code auszuführen, und ein Dialogfeld wird angezeigt, das Sie auffordert, die Zellen auszuwählen, für die Sie die Zeilenhöhe basierend auf den Zellenwerten festlegen möchten, siehe Screenshot:

4. Klicken Sie anschließend auf die Schaltfläche OK, und die Zeilenhöhe wurde basierend auf dem Zellenwert geändert, wie folgt:

Hinweis: Im obigen VBA-Code bedeutet If H.Value > 15 Then, dass die Zeilenhöhe geändert wird, wenn der Zellenwert größer als 15 ist; wenn der Zellenwert kleiner als 15 ist, bleibt die Zeilenhöhe bei der Standardhöhe. Sie können dies nach Bedarf ändern.