Gruppe
Druck
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?
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