Gruppe
Funktion
Problem
In Spalte C sollen die Fundzeilennummern aus Spalte A der Werte aus Spalte B eingetragen werden.
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