Fehler bei Seitenanzahl über Inputbox
Christian
Beim Einrichten der Seite per Makro möchte ich die Seitenanzahl über eine Inputbox-Eingabe variieren können.
Ich bekomme bei dem unten stehenden Code jedoch eine Fehlermeldung und hoffe auf eure Hilfe
viele Grüße
Christian
Sub Test()
Dim varSeiten As Variant
'varSeiten = False 'funktioniert ebenso wie
'varSeiten = 2
'aber über InputBox:
varSeiten = InputBox("Seitenanzahl")
If varSeiten = "" Then varSeiten = False
'Fehlermeldung:
'LaufZeitfehler '1004'
'Die FitToPagesTall-Eigenschaft des PageSetup-Objektes kann nicht festgelegt werden
With ActiveSheet.PageSetup
.PrintArea = "$A$1:$J$200"
.Order = xlDownThenOver
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = varSeiten
End With
End Sub