da ich nur über Recorder-Kenntnisse verfügen, brauche ich eure Hilfe.
Aus dem Forum habe ich folgenden Makro:
For x = 7 To 100
Cells(x, 7).Copy
[E1].PasteSpecial (xlPasteValues)
Cells(x, 7).Copy
[E8].PasteSpecial (xlPasteValues)
If ActiveCell "" Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Next
Damit wird aus der Spalte G ein Wert in Spalte E eingetragen und dann die Seite gedruckt, das klappt.
Ich möchte aber aus der Liste (Spalte G) jeweils 2 Werte in zwei Zellen in Spalte E einfügen und dann drucken usw. Kann mir bitte jemand helfen, den Makro entsprechend zu ändern.
Ich hoffe, dass ich das verständlich beschrieben habe, Sonst bitte so nett sein und die Musterdatei bitte mal anschauen.
https://www.herber.de/bbs/user/114885.xlsm
Vielen Dank und liebe Grüße
Gisela