Gruppe
Druck
Bereich
Bereich
Thema
Nummern vorgeben und drucken
Problem
Wie kann ich über einen Dialog einen fünfstelligen Von/Bis-Nummernbereich vorgeben, die jeweilige Nummer in eine Zelle eintragen und das Blatt ausdrucken lassen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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