Auto. Zeilenhöhe mit min. Höhe 20 ab 3. Zeile
28.07.2019 14:34:48
Peter
Folgendes Script ermöglicht, dass alle Zeilen automatisch angepasst werden (AutoFit) und dass alle Zeilen eine mindest Höhe von 20 haben.
Jedoch funktioniert das nur bei der aktiven Zeile, in der Zeile, in der der Courser positioniert ist.
Gerne möchte ich jedoch, dass alle Zeilen, ab Zeile 3 automatisch, entsprechend ihrem Inhalt angepasst werden (AutoFit), jedoch mindest eine Zeilenhöhe von 20 haben.
Ich habe es versucht, bekomme es jedoch nicht gebacken, wie müsste das Script angepasst werden?
Sub Zeilenhöhe_mit()
Dim rng As Range
For Each rng In Selection.Rows
rng.AutoFit
If rng.RowHeight Viele Grüsse,
Peter
Anzeige