Hallo,

ich habe folgendes Problem:

ich fülle eine Tabelle aus, mit mehreren Zeilen, drücke einen Button zum Drucken.

Dieser löst folgendes Makro aus:

Sub Datenweitergabe()
    Dim i As Long

    i = Sheets("Liste").Cells(Rows.Count, "A").End(xlUp).Row + 1
    Sheets("Reparaturberichte").PrintOut Copies:=1, Collate:=True
   
    Sheets("Liste").Cells(i, 1) = Sheets("Reparaturberichte").Range("H2")
    Sheets("Liste").Cells(i, 2) = Sheets("Reparaturberichte").Range("H3")
    Sheets("Liste").Cells(i, 3) = Sheets("Reparaturberichte").Range("C7")
    Sheets("Liste").Cells(i, 4) = Sheets("Reparaturberichte").Range("E7")
    Sheets("Liste").Cells(i, 5) = Sheets("Reparaturberichte").Range("I7")
    Sheets("Liste").Cells(i, 6) = Sheets("Reparaturberichte").Range("J7")
    Sheets("Liste").Cells(i, 7) = Sheets("Reparaturberichte").Range("M7")
    Sheets("Liste").Cells(i, 8) = Sheets("Reparaturberichte").Range("C8")
    Sheets("Liste").Cells(i, 9) = Sheets("Reparaturberichte").Range("E8")
    Sheets("Liste").Cells(i, 10) = Sheets("Reparaturberichte").Range("I8")
    Sheets("Liste").Cells(i, 11) = Sheets("Reparaturberichte").Range("J8")
    Sheets("Liste").Cells(i, 12) = Sheets("Reparaturberichte").Range("M8")
    Sheets("Liste").Cells(i, 13) = Sheets("Reparaturberichte").Range("C9")
    Sheets("Liste").Cells(i, 14) = Sheets("Reparaturberichte").Range("E9")
    Sheets("Liste").Cells(i, 15) = Sheets("Reparaturberichte").Range("I9")
    Sheets("Liste").Cells(i, 16) = Sheets("Reparaturberichte").Range("J9")
    Sheets("Liste").Cells(i, 17) = Sheets("Reparaturberichte").Range("M9")
    Sheets("Liste").Cells(i, 18) = Sheets("Reparaturberichte").Range("C10")
    Sheets("Liste").Cells(i, 19) = Sheets("Reparaturberichte").Range("E10")
    Sheets("Liste").Cells(i, 20) = Sheets("Reparaturberichte").Range("I10")
    Sheets("Liste").Cells(i, 21) = Sheets("Reparaturberichte").Range("J10")
    Sheets("Liste").Cells(i, 22) = Sheets("Reparaturberichte").Range("M10")
    Sheets("Liste").Cells(i, 23) = Sheets("Reparaturberichte").Range("C11")
    Sheets("Liste").Cells(i, 24) = Sheets("Reparaturberichte").Range("E11")
    Sheets("Liste").Cells(i, 25) = Sheets("Reparaturberichte").Range("I11")
    Sheets("Liste").Cells(i, 26) = Sheets("Reparaturberichte").Range("J11")
    Sheets("Liste").Cells(i, 27) = Sheets("Reparaturberichte").Range("M11")
    Sheets("Liste").Cells(i, 28) = Sheets("Reparaturberichte").Range("C12")
    Sheets("Liste").Cells(i, 29) = Sheets("Reparaturberichte").Range("E12")
    Sheets("Liste").Cells(i, 30) = Sheets("Reparaturberichte").Range("I12")
    Sheets("Liste").Cells(i, 31) = Sheets("Reparaturberichte").Range("J12")
    Sheets("Liste").Cells(i, 32) = Sheets("Reparaturberichte").Range("M12")
    Sheets("Liste").Cells(i, 33) = Sheets("Reparaturberichte").Range("C13")
    Sheets("Liste").Cells(i, 34) = Sheets("Reparaturberichte").Range("E13")
    Sheets("Liste").Cells(i, 35) = Sheets("Reparaturberichte").Range("I13")
    Sheets("Liste").Cells(i, 36) = Sheets("Reparaturberichte").Range("J13")
    Sheets("Liste").Cells(i, 37) = Sheets("Reparaturberichte").Range("M13")
    Sheets("Liste").Cells(i, 38) = Sheets("Reparaturberichte").Range("C14")
    Sheets("Liste").Cells(i, 39) = Sheets("Reparaturberichte").Range("E14")
    Sheets("Liste").Cells(i, 40) = Sheets("Reparaturberichte").Range("I14")
    Sheets("Liste").Cells(i, 41) = Sheets("Reparaturberichte").Range("J14")
    Sheets("Liste").Cells(i, 42) = Sheets("Reparaturberichte").Range("M14")
    Sheets("Liste").Cells(i, 43) = Sheets("Reparaturberichte").Range("C15")
    Sheets("Liste").Cells(i, 44) = Sheets("Reparaturberichte").Range("E15")
    Sheets("Liste").Cells(i, 45) = Sheets("Reparaturberichte").Range("I15")
    Sheets("Liste").Cells(i, 46) = Sheets("Reparaturberichte").Range("J15")
    Sheets("Liste").Cells(i, 47) = Sheets("Reparaturberichte").Range("M15")
    Sheets("Liste").Cells(i, 48) = Sheets("Reparaturberichte").Range("C16")
    Sheets("Liste").Cells(i, 49) = Sheets("Reparaturberichte").Range("E16")
    Sheets("Liste").Cells(i, 50) = Sheets("Reparaturberichte").Range("I16")
    Sheets("Liste").Cells(i, 51) = Sheets("Reparaturberichte").Range("J16")
    Sheets("Liste").Cells(i, 52) = Sheets("Reparaturberichte").Range("M16")
   
    [H3] = [H3] + 1 'Nummer um 1 hochzählen'
    Sheets("Reparaturberichte").Range("H2").Select
End Sub

Ich möchte aber, dass die Daten aus Zeile 8 ( 9,10 usw.) eine Zeile tiefer gespeichert werden.

Wenn aber z. B. die Zeile in Reparaturberichte leer ist, soll der Speichervorgang beendet werden

Vielen Dank

Michael