Makro Excel druck

[nordlicht1]

Guten morgen zusammen,

ich habe ein Problem. Ich hätte gerne ein Makro, welches mir dabei hilft Seiten auszudrucken. Im Reiter drucken ist der Aufbau wie folgt
Reiter Sheet1            Reiter Druck
Spalte A                   Feld G1
Spalte B                   Feld G2
Spalte C                   Feld A6
Spalte D                   Feld G24

Das Makro soll nun alle DAtensätze nach einander weg drucken. Ist das möglich?
Ich habe schon mehrere Lösungen versucht, leider hat es nie geklappt. Vielen Dank im Voraus.

Gruß aus dem Norden

[RPP63]

Moin!
Ich habe nichts(!) verstanden!
Im Blatt Sheet1 gibt es weder "Alter Lagerort" noch "Artikelnummer".

Gruß Ralf

[nordlicht1]

Guten Morgen,

in Sheet 1 ist der "Alte Lagerort" Spalte A mit der Überschrift "LAGERPLATZPALETTE" und Artikelnummer ist Spalte B ist die Artikelnummer mit der Überschrift "[
Bild bitte so als Datei hochladen: Klick mich!
]".
Sorry dafür.

[RPP63]

Alles klar!
Teste mal:

Sub Ausdruck()
Dim i&
  For i = 2 To Worksheets("Sheet1").Range("A2").End(xlDown).Row
    With Worksheets("Druck")
      .Range("G1") = Worksheets("Sheet1").Cells(i, 1)
      .Range("G2") = Worksheets("Sheet1").Cells(i, 2)
      .Range("A6") = Worksheets("Sheet1").Cells(i, 3)
      .Range("G24") = Worksheets("Sheet1").Cells(i, 4)
      .PrintOut
    End With
  Next
End Sub

[nordlicht1]

Klappt perfekt. Danke.