Druckmakro von Hans ändern
21.06.2006 07:57:49
Hans
auf meiner Excel Cd hab ich folgendes makro gefunden.
Kann mir das jemand so umbauen, dass nach jedem Ausdruck der Zahlen-wert nicht um 1 erhöht wird sondern dass beim ersten Ausdruck der Inhalt aus "Tabelle2" A1 gedruckt wird im nächsten Ausdruck der Inhalt aus "Tabelle2" A2 und so weiter.
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 für Eure Hilfe, (ich hab das anders geschrieben (zu kompliziert)schon mal reingestellt)
Grüsse Volker
Anzeige