Daten aus Excel in Wordvorlage übertrage
23.12.2021 15:59:44
MH
Ich möchte aus einer Excel-Tabelle Informationen in eine Wordvorlage übertragen mittels Texmarkern. Mein Code funktioniert soweit, dass die Wordvorlage geöffnet und das aktuelle Datum übertragen wird. Bei den Texmarkern wird allerdings " " ausgegeben, anstatt der Inhalt der aktiven Zeile im Excel. Leider kann ich den Fehler nicht finden, kann jemand helfen?
MH
Sub Lieferschein()
Dim lngZeile As Long
Dim strDatum As String
Dim strLS As String
Dim strBezeichnung As String
Dim strPlatte As String
Dim strCharge As String
Dim strAnzahl As String
Dim objWord As New Word.Application
objWord.Visible = True
objWord.Documents.Add "SpeicherortLieferschein1.docx"
Sheets("Lieferungen 21").Activate
lngZeile = ActiveCell.Row
objWord.ActiveDocument.Bookmarks("Datum").Range.Text = Date
objWord.ActiveDocument.Bookmarks("LS").Range.Text = strLSNr
objWord.ActiveDocument.Bookmarks("Bezeichnung").Range.Text = strBezeichnung
objWord.ActiveDocument.Bookmarks("Platte").Range.Text = strPlatte
objWord.ActiveDocument.Bookmarks("Charge").Range.Text = strCharge
objWord.ActiveDocument.Bookmarks("Anzahl").Range.Text = strAnzahl
End Sub
Anzeige