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.
|