Hallo an alle,
ich möchte gern Daten aus Excel in ein vorgefertigtes Word-Dokument übertragen. Der nachstehende Code funktioniert schon sehr gut, meine Word-Vorlage wird richtig gefüllt+geöffnet:
.ActiveDocument.Bookmarks("ReklaNr").Range.Text = Range("A2")
.ActiveDocument.Bookmarks("Datum").Range.Text = Range("D2")
.ActiveDocument.Bookmarks("Kunde").Range.Text = Range("E2")
.ActiveDocument.Bookmarks("Gesprächspartner").Range.Text = Range("F2")
.ActiveDocument.Bookmarks("Bearbeiter").Range.Text = Range("C2")
.ActiveDocument.Bookmarks("Artikel").Range.Text = Range("H2")
.ActiveDocument.Bookmarks("Kommission").Range.Text = Range("I2")
.ActiveDocument.Bookmarks("Reklamationsgrund").Range.Text = Range("J2")
.ActiveDocument.Bookmarks("Meilensteine").Range.Text = Range("K2")
.ActiveDocument.Bookmarks("Ursache").Range.Text = Range("L2")
.ActiveDocument.Bookmarks("Verursacher").Range.Text = Range("M2")
Jetzt sollen aber nicht immer nur die Elemente aus der Zeile 2 gezogen werden, sondern die aus der jeweils manuell markierten Zeile. Dann wird per Tastenkombi das Makro aktiviert und die gefüllt Word-Vorlage geöffnet.
ich habe schon gelesen, dass es da eine Möglichkeit über activecell.row gibt, ich bekomme das aber nicht zu 100% hin...
Bitte um eure Hilfe, Tausend Dank im Voraus!
Beste Grüße
Bo Mad
ich möchte gern Daten aus Excel in ein vorgefertigtes Word-Dokument übertragen. Der nachstehende Code funktioniert schon sehr gut, meine Word-Vorlage wird richtig gefüllt+geöffnet:
.ActiveDocument.Bookmarks("ReklaNr").Range.Text = Range("A2")
.ActiveDocument.Bookmarks("Datum").Range.Text = Range("D2")
.ActiveDocument.Bookmarks("Kunde").Range.Text = Range("E2")
.ActiveDocument.Bookmarks("Gesprächspartner").Range.Text = Range("F2")
.ActiveDocument.Bookmarks("Bearbeiter").Range.Text = Range("C2")
.ActiveDocument.Bookmarks("Artikel").Range.Text = Range("H2")
.ActiveDocument.Bookmarks("Kommission").Range.Text = Range("I2")
.ActiveDocument.Bookmarks("Reklamationsgrund").Range.Text = Range("J2")
.ActiveDocument.Bookmarks("Meilensteine").Range.Text = Range("K2")
.ActiveDocument.Bookmarks("Ursache").Range.Text = Range("L2")
.ActiveDocument.Bookmarks("Verursacher").Range.Text = Range("M2")
Jetzt sollen aber nicht immer nur die Elemente aus der Zeile 2 gezogen werden, sondern die aus der jeweils manuell markierten Zeile. Dann wird per Tastenkombi das Makro aktiviert und die gefüllt Word-Vorlage geöffnet.
ich habe schon gelesen, dass es da eine Möglichkeit über activecell.row gibt, ich bekomme das aber nicht zu 100% hin...
Bitte um eure Hilfe, Tausend Dank im Voraus!
Beste Grüße
Bo Mad