Gruppe
Allgemein
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