Hallo,

hast ja Recht, versuche es nochmal.

[url=https://abload.de/image.php?img=tabelleioisv.jpg][img]https://abload.de/img/tabelleioisv.jpg[/img][/url]

In der abgebildeten Tabelle wurden die Daten aus einer anderen Tabelle übernommen, wobei wichtig ist, dass neue Daten immer in die Zeile "A9:AB9" eingefügt werden.

Die vorhandenen Daten rutschen immer eine Zeile runter.

D.h. alle Daten AAA verschieben sich in "A10:AB10, die anderen Daten verschieben sich in "A11:AB11", usw.

Gem. der „Private Sub DRMAusdruck()“ im #1 werden nur die Daten von „A9:AB9“ in eine neue Tabelle, d.h. in die Tabelle DRM übertragen.

Gem. der Anweisung: DRM.PrintPreview wird das Druckprotokoll angezeigt und dann zum Drucker gesendet und ausgedruckt.

Nach diesem Vorgang ist wieder die neue Tabelle zu sehen, mit den neuen Daten in dem Zellenbereich „A9:AB9“

Jetzt das Problem, wenn ich vergesse die Daten zu drucken, dann kann ich nicht mehr die Daten der Zeilenbereiche, ab „A10:AB10“, sowie alle darunter liegenden Bereiche drucken, weil in der Tabelle“DRM“ immer nur die Daten  aus „A9:AB9“ der abgebildeten Tabelle verarbeitet werden, siehe: #1

    DRM.Range("G4") = ActiveSheet.Range("A9")

    DRM.Range("I5") = ActiveSheet.Range("C9")

    DRM.Range("G7") = ActiveSheet.Range("E9")

    DRM.Range("I7") = "Nr.:    " & ActiveSheet.Range("D9"), ect.

Jetzt meine Frage, wie kann ich die Daten ab „A10:AB10“ der Drucktabelle per VBA zu führen, denn

der Code müsste lauten:

    DRM.Range("G4") = ActiveSheet.Range("A10")

    DRM.Range("I5") = ActiveSheet.Range("C10")

    DRM.Range("G7") = ActiveSheet.Range("E10")

    DRM.Range("I7") = "Nr.:    " & ActiveSheet.Range("D10"), ect.

Ich hoffe jetzt, dass das Problem besser dargestellt wurde, Gott hilft sonst auch nicht.