Druckmakro umschreiben
13.06.2006 06:45:52
volker
Ich hab von der excel CD folgenden Code.
Kann mir den jemand so abwandeln, dass ich in A1 auch meine Startnummer habe und in Abhängigkeit von "B1" (hier hab ich eine Stückzahl) die gewünschte Anzahl der Ausdrucke sowie bei jedem Ausdruck immer +1 zur Nummer addiert wird?
Sub SerienDruck()
Dim intCounter As Integer
Application.ScreenUpdating = False
For intCounter = 1001 To 1003
ActiveSheet.PrintOut
Range("A1").Value = Left(Range("A1"), 5) & _
CInt(Right(Range("A1"), 4) + 1)
Next intCounter
End Sub
Vielen DAnk Gruss volker