Herbers Excel-Forum - das Archiv

optimale Zeilenhöhe plus 20

Bild

Betrifft: optimale Zeilenhöhe plus 20
von: Korl

Geschrieben am: 05.01.2007 12:19:19
Hallo,
ich habe meine Zellen im Tabellenblatt auf optimale Zeilehöhe formatiert.
Nun möchte ich jeweils die aktive Zelle so formatieren, dass zu der optimalen Zeilenhöhe, sagen wir um den Wert 20 erhöht wird.
Mein Versuch ist leider gescheitert.
Sub Zeilenhöhe()
    ActiveCell.Rows.AutoFit +20
End Sub
     Code eingefügt mit Syntaxhighlighter 1.14


Wie müßte der Syntax hierfür wohl aussehen?
Gruß Kortl
Bild

Betrifft: AW: optimale Zeilenhöhe plus 20
von: Rudi Maintaire
Geschrieben am: 05.01.2007 12:24:16
Hallo,
Sub tt()
ActiveCell.EntireRow.AutoFit
ActiveCell.RowHeight = ActiveCell.RowHeight + 20
End Sub

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Bild

Betrifft: AW: optimale Zeilenhöhe plus 20
von: Korl
Geschrieben am: 05.01.2007 13:25:35
Hallo Rudi,
hab schönen Dank für die schnelle Hilfe.
Klappt bestens.
Gruß Korl
 Bild