Excel und VBA - Die Excel-FAQ

Zeilenhöhe in cm festlegen

Screenshots zu den Aufrufoberflächen der Excel-Materialien

Zeilenhöhe in cm festlegen

Problem: Wie lege ich die Zeilenhöhe statt in Punkten in Zentimetern fest?

StandardModule: basMain

Sub ZeilenHoehe()
   Dim varCM As Variant
   varCM = InputBox( _
      prompt:="Bitte die gewünschte Zeilenhöhe in cm angeben:")
   If varCM = "" Then Exit Sub
   Selection.RowHeight = CDbl(varCM) / 0.035
End Sub