|
Hallo,
ich möchte in Excel einen Bereich kopieren und dann in ein Word Dok in eine Textmarke schreiben.
Bsp.: Bereich G38-I40 soll kopiert werden und dann soll dieser Bereich in eine Textmarke geschrieben werden.
G38 H38 I38
Textmarke "Hilfe" - G39 H39 I39
G40 H40 I40
If Doku1.ActiveDocument.Bookmarks.Exists("Name1") = False Then
MsgBox "Felher - Textmarke ""Name1"" nicht vorhanden", vbkOKonly, "FEHLER"
Else
Doku1.ActiveDocument.Bookmarks("Name1").Range = Max.Offset(3, 4)
So frage ich die anderen Textmarken ab und füge dann den Offset con "Max" in die Textmarke.
Und so möchte ich das gerne mit einem Bereich machen.
If Doku1.ActiveDocument.Bookmarks.Exists("Ort1") = False Then
MsgBox "Felher - Textmarke ""Ort1"" nicht vorhanden", vbkOKonly, "FEHLER"
Else
Doku1.ActiveDocument.Bookmarks("Ort1").Range = Max.Offset(Bereich? G38-I40)
Ich bin auch offen gegenüber anderen Ideen Bereiche zu kopieren und die dann einzufügen.
Jedoch ändert sich der Bereich und die Werte von "Namen" immer, denn es wird immer nach der größten Zahl aus Spalte A gesucht(da die Tabelle ständig aktualisiert wird) , deswegen die Arbeit mit dem Offset.
Liebe Grüße
|