Seriendruck
12.02.2020 08:16:58
HeinzP
ich habe eine weitere Frage zu meinem Datei
Ich habe in einer spalte Namen stehen. Ich möchte jetzt ein Formular ausdrucken. Dies hab ich _
so gelöst
Private Sub commandButton2_Click()
Dim i As Long
Dim varInput
VarInput=InputBox(_
promt:="Geben sie die letzte laufende Nr an, bis zu de rsie drucken wollen";_
Title="Bestätigung drucken")
If varInput="" then Exit Sub
For i = 1 to varInput
Range ("L2")=i
Worksheets("Sammelbericht leer Seriendruck").Printout
next i
End Sub
Das funz auch. Es wird nun für alle eine Bestätigung gedruckt. Wenn ich nur für einen eine will hab ich das auch gelöst.
Ich hab da aber unter Umständen 100 Personen drinnen stehen und nun will ich nur Nummer 1 bis 15(Mannschaftsweise) haben und hierzu habe ich keine idee wie ich das lösen soll. Kann mir da jemand helfen
Danke
Anzeige