Dialog zum Ausdrucken ändern
Heinz
Habe unteren Code auf CD gefunden.
Könnte mir Bitte jemand den Code so abändern,das ich die im Dialog eingegebenen Tab.Blätter ausdrucken kann.
Also Zb. 311-331 sollte mir dann die Tab.Blätter 311,312 A,312 B,321,322,331 ausdrucken.
Danke,Heinz
Sub DruckDialog()
Dim sTxt As String
Dim lFrom As Long, lTo As Long, lCounter As Integer
sTxt = InputBox("Von - bis:", , "311-333")
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("Eingabe")
.Range("F7") = lCounter
.PrintPreview
End With
Next lCounter
End Sub