im folgenden makro wird ein Sticker gedruckt mit Seriennummer.
Es werden so viele Sticker gedruckt wie in Sheets("Nummer").Range("B1")angegeben. Dabei immer die Nummer (Range("A1") = Sheets("Nummer").Range("F4") um 1 erhöht.
Ich möchte das makro so ändern, dass beim ersten Sticker der Inhalt von A1 beim zweiten von A2, dritten von A3..... gedruckt wird.
Das Ganze also nicht dynaschisch sondern statisch.
Kann mir jemand helfen? Hier noch das derzeitige makro, Danke Gruss volker
Sub SerienDruckNeu()
Dim intCounter As Integer
Application.ScreenUpdating = False
alteNummer = Sheets("Nummer").Range("F4")
For intCounter = 1 To Sheets("Nummer").Range("B1")
Range("A1").Value = Sheets("Nummer").Range("F4")
Sheets("Sticker").PrintOut
Sheets("Nummer").Range("F4") = _
Sheets("Nummer").Range("F4") + 1
'Sheets("Kleber").PrintOut
Next intCounter
Sheets("Nummer").Range("F4") = alteNummer
End Sub