Wie passt man die Zeilenhöhe in Excel dynamisch an den Zellwert an?
Um die Zeilenhöhe in einem Arbeitsblatt zu ändern, nutzen die meisten von uns vermutlich die Funktion „Zeilenhöhe“, um die Höhe der ausgewählten Zeile festzulegen. Wenn Sie jedoch eine Liste mit Zahlen haben und die Zeilenhöhe basierend auf den jeweiligen Zellwerten – wie im folgenden Screenshot dargestellt – automatisch anpassen möchten, wie lässt sich diese Aufgabe in Excel lösen?
Ändern Sie die Zeilenhöhe basierend auf dem Zellwert mit VBA-Code
Ändern Sie die Zeilenhöhe basierend auf dem Zellwert mit VBA-Code
Es gibt keine direkte Möglichkeit, mehrere Zeilenhöhen gleichzeitig basierend auf dem Zellwert anzupassen – doch mit dem folgenden VBA-Code erledigen Sie diese Aufgabe so schnell wie möglich.
1. Halten Sie die ALT + F11-Tasten 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 im Modul-Fenster ein.
VBA-Code: Ändern Sie die Zeilenhöhe basierend auf dem Zellwert:
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 anschließend die F5-Taste, um den Code auszuführen. Es erscheint daraufhin ein Eingabefeld, das Sie auffordert, die Zellen auszuwählen, für die die Zeilenhöhe entsprechend den Zellwerten angepasst werden soll (siehe Screenshot):
4. Klicken Sie dann auf die Schaltfläche OK, und die Zeilenhöhe wird entsprechend dem Zellwert wie folgt angepasst:
Hinweis: Im obigen VBA-Code bedeutet die Zeile If H.Value > 15 Then, dass die Zeilenhöhe geändert wird, wenn der Zellwert größer als 15 ist; ist der Zellwert hingegen kleiner als 15, bleibt die Zeilenhöhe auf der Standardhöhe. Sie können dies nach Bedarf anpassen.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins