Ich lasse mir über folgende Herber.de Standard Formel ein PrintPreview meiner Daten über einen variabel einzugebenden Zeilenbereich ausgeben. Funktioniert auch prima.
Wenn ich aber bei der Eingabe auf Abbrechen klicke, bekomme ich einen Laufzeitfehler und der Debugger möchte sich starten.
Wie kann ich diese Meldung abfangen, da die Formal ansonsten tadellos arbeitet?
Sub PrintMe_BeiKlick()
Dim rng As Range
Dim vStart As Variant, vEnd As Variant
vStart = Application.InputBox( _
prompt:="Drucke von Zeile:", Default:=1, Type:=1)
If vStart = "" Then Exit Sub
vEnd = Application.InputBox( _
prompt:="Drucke bis Zeile:", Default:=100, Type:=1)
If vEnd = "" Then Exit Sub
Set rng = Range("A" & vStart & ":AN" & vEnd)
rng.PrintPreview
End Sub
Danke schon mal im voraus, vom Marc