Thema: Nummern vorgeben und drucken

StandardModule: basMain

Sub DruckDialog()
   Dim sTxt As String
   Dim lFrom As Long, lTo As Long, lCounter As Integer
   sTxt = InputBox("Von - bis:", , "30001-30005")
   If sTxt = "" Then Exit Sub
   If InStr(sTxt, "-") = False Then Exit Sub
   If Not IsNumeric(Left(sTxt, 5)) Then Exit Sub
   If Not IsNumeric(Right(sTxt, Len(sTxt) - InStr(sTxt, "-"))) _
      Then Exit Sub
   lFrom = Left(sTxt, 5)
   lTo = Right(sTxt, Len(sTxt) - InStr(sTxt, "-"))
   For lCounter = lFrom To lTo
      With Worksheets("Tabelle1")
         .Range("F7") = lCounter
         .PrintPreview
      End With
   Next lCounter
End Sub

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