Zelleninhalt auslesen
20.06.2006 11:49:32
volker
im folgenden makro wird ein Sticker gedruckt mit Seriennummer.
Es werden so viele gedruckt wie in Sheets("Kleber").Range("G1")angegeben und dabei immer die Nummer (Inhalt "A5") um 1 erhöht.
Ich möchte das makro so ändern, dass beim ersten Sticker der Inhalt von A5 beim zweiten von A6, dritten von A7..... gedruckt wird.
Kann mir dabei jemand helfen? sprich das makro umfunktionieren??
Danke Gruss volker
Sub SerienDruck()
Dim intCounter As Integer
Application.ScreenUpdating = False
alteNummer = Sheets("Sticker").Range("A1")
For intCounter = 1 To Sheets("Kleber").Range("G1")
Range("A5").Value = Sheets("Sticker").Range("F4")
Sheets("Kleber").PrintOut
Sheets("Sticker").Range("F4") = _
Sheets("Sticker").Range("F4") + 1
'Sheets("Kleber").PrintOut
Next intCounter
Sheets("Sticker").Range("A1") = alteNummer
End Sub