Zeilenhöhe in cm festlegen

Thema: Allgemein - Gruppe Ansicht

Arbeitsmappe

002097    127600

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