Daten aus Excel Userform in Word Vorlage

Hallo liebe Community,
https://www.herber.de/bbs/user/129368.xlsm
ich stoße mal wieder an meine Excel VBA Grenzen und hoffe auf Hilfe von euch!
Ich möchte gern die Daten aus meiner Excel Userform in eine vorgefertigtes
Word Dokumentvorlage einfügen.
Die Daten in der Userform werden hierbei aus der Exceldatei geladen. Hier wird nur noch zu wählen sein, ob das Angebot auf deutsch oder englisch erstellt werden soll.
Hierzu müssten dann zwei verschiedene Angebotsvorlagen hinterlegt werden.
Ich habe bereits ein Word Dokument erstellt, welches an den Stellen (Adresse, Name etc.) bereits Textmarken hat. Diese sollen dann nur noch durch die vorgesehenen Exceldaten ersetzt werden.
Wie kann ich hier die Verbindung zwischen Excel und Word herstellen und die Daten aus der Userform übertragen?
Ist es möglich für Abkürzungen z.B hier aus dem "erstellt von" Textfeld: (z.B.) JM eingetragen wird und sich dann automatisch das in Excel hinterlegte Absenderfeld von JM= Jana Müller öffnet?
Viele Fragen, ich weiß, aber ich würde mich sehr freuen wenn mir schon jemand hier weiterhelfen könnte!!
Besten Dank und ganz liebe Grüße
Jana

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
mit folgendem Makro schreibe ich auch Daten von einer UF in ein Word Dokument:

Private Sub CommandButton9_Click()
On Error GoTo MergeButton_Err
Dim objWord As Word.Application
Set objWord = CreateObject("Word.Application")
With objWord
'Make the application visible.
.visible = True
'Open the document.
.Documents.Add ("R:\LDAV-Gemeinsam\Krankmeldungen\Krankmeldung.dotm")
'Move to each bookmark and insert text from the form.
.ActiveDocument.Bookmarks("Bed").Select
.Selection.Text = Me.TextBox3.Value
.ActiveDocument.Bookmarks("Name").Select
.Selection.Text = Me.ComboBox1.Value
.ActiveDocument.Bookmarks("Am").Select
.Selection.Text = Me.TextBox13.Text
.ActiveDocument.Bookmarks("Vom").Select
.Selection.Text = Me.TextBox11.Text
If Me.CheckBox1.Value = False Then
.ActiveDocument.Bookmarks("Bis").Select
.Selection.Text = Me.TextBox12.Text
Else
.ActiveDocument.Bookmarks("Bis").Select
.Selection.Text = "Unbekannt"
End If
.ActiveDocument.Bookmarks("Aufnehmender").Select
.Selection.Text = "gez. " & Me.ComboBox4.Text
.ActiveDocument.Bookmarks("Bed").Select
.ActiveDocument.GoTo What:=wdGoToLine, Which:=wdGoToPrevious, Count:=4
End With
MergeButton_Err:
'If a field on the form is empty, remove the bookmark text, and
'continue.
If Err.Number = 94 Then
objWord.Selection.Text = ""
Resume Next
End If
Exit Sub
End Sub

Gruß
Martin

Beliebteste Forumthreads (12 Monate)

Daten aus Excel Userform in Word Vorlage

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten aus Excel Userform in Word Vorlage

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread