Gruppe
Druck
Problem
Wie kann ich die Druckstart- und Endzeilen über InputBox abfragen und den ausgewählten Bereich als Druckvorschau anzeigen lassen?
StandardModule: basMain
Sub BereichsAuswahl()
Dim rng As Range
Dim vStart As Variant, vEnd As Variant
vStart = Application.InputBox( _
prompt:="Startzeile:", Default:=50, Type:=1)
If vStart = "" Then Exit Sub
vEnd = Application.InputBox( _
prompt:="Startzeile:", Default:=150, Type:=1)
If vEnd = "" Then Exit Sub
Set rng = Range("A" & vStart & ":G" & vEnd)
rng.PrintPreview
End Sub