Excel Liste Abarbeiten und Drucken
18.04.2013 20:34:13
waldmann
ich bin gerade sehr am verzweifeln, bin mir aber sicher, dass ihr mir mit Leichtigkeit helfen könnt! Ich bedanke mich schon mal im Voraus für eure Hilfe und Bemühungen!
Ich möchte gerne ein Makro bauen, welches folgendes macht:
Ich habe eine Liste an Kundendaten, welche ich der Reihe nach, in ein zweites Worksheet kopieren möchte (dort habe ich mir ein Rechnungs-Template angelegt) und dieses dann drucken möchte. Danach soll das Makro die nächste Zeile aus dem ersten Worksheet kopieren und diese wiederum in das zweite Rechnungs-Template-Worksheet einfügen und wieder drucken. Dies soll so lange geschehen, bis das gesamte erste Worksheet von 1000 Kundendaten (1000 Zeilen) abgearbeitet ist.
Hier das aufgenommene Makro:
Sub Ausdrucken()
Range("A5:B5").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[-3]C[2]"
Range("A6").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[-4]C"
Range("A7").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[-5]C[3]"
Range("A8").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[-6]C[5]"
Range("B6").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[-4]C"
Range("B7").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[-5]C[3]"
Range("B8").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[-6]C[5]"
Range("D13:E13").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[-11]C[6]"
Range("D14:E14").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[-12]C[7]"
Range("D15:E15").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[-13]C[8]"
Range("D16:E16").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[-14]C[10]"
Range("B18").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[-16]C[6]"
Range("C18").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[-16]C[6]"
Range("B22").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[-20]C[13]"
Range("C22").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[-20]C[13]"
Range("D22").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[-20]C[13]"
Range("E22").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[-20]C[13]"
Range("B26").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[-24]C[17]"
Range("C26").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[-24]C[17]"
Range("D26").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[-24]C[17]"
Range("E26").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[-24]C[17]"
Range("E27").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
Könnt ihr mir BITTE helfen das Makro so zu verändern, dass es sich durch das gesamte erste Worksheet arbeitet und jedesmal einen Ausdruck bringt.
Vielen Lieben Dank
Max