Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Druckstart- und endzeilen über InputBox abfragen

Gruppe

Bereich

Problem

Wie kann ich die Druckstart- und Endzeilen über InputBox abfragen und den ausgewählten Bereich als Druckvorschau anzeigen lassen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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

    

Beiträge aus dem Excel-Forum zu den Themen Druck und Bereich