optimale Zeilenhöhe plus 20

• optimale Zeilenhöhe plus 20 von Korl vom 05.01.2007 12:19:19
• AW: optimale Zeilenhöhe plus 20 - von Rudi Maintaire am 05.01.2007 12:24:16
  • AW: optimale Zeilenhöhe plus 20 - von Korl am 05.01.2007 13:25:35

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

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

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