Gruppe
Allgemein
Bereich
Ansicht
Thema
Zeilenhöhe in cm festlegen
Problem
Wie lege ich die Zeilenhöhe statt in Punkten in Zentimetern fest?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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