Der Makro soll auf dem Tabellenblatt "Kundenliste" ab Zeile 3, jede Zeile nacheinander in die Zeile 2 kopieren und dann auf das Tabellenblatt "Honorarabrechnung" springen, dieses ausdrucken und dann wieder auf das Tabellenblatt "Kundenliste" springen die 4 Zeile in die 2 Zeile kopieren --> Das Tabellenblatt "Honorarabrechnung" ausdrucken und dann die 5 Zeile auf dem Tabellenblatt " Kundenliste " in die 2 Zeile kopieren usw.
Ich habe diesen Makro aufgezeichnet.
Sub Makro1()
' Makro1 Makro
Rows("3:3").Select
Selection.Copy
Rows("2:2").Select
ActiveSheet.Paste
Sheets("Honorarblatt").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("Kundenliste").Select
Rows("4:4").Select
Selection.Copy
Rows("2:2").Select
ActiveSheet.Paste
Sheets("Honorarblatt").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub
Nachdem ich in der Uni ein bischen VBA gelernt habe, habe ich an eine Schleife gedacht.
Etwas so in der Art
Sub Honorarberechnung()
Do Until ActiveRows.Value = ""
Sheets("Kundenliste").Select
Rows("3:3").Select
Selection.Copy
Rows("2:2").Select
ActiveSheet.Paste
Sheets("Honorarblatt").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Loop
End Sub
Aber nachdem ich nciht mehr so wirklich fit in VBA bin, wäre ich für eure Hilfe sehr dankbar!!
Grüße
Christian