Hallo,

ich habe eine UserForm für ein Worddokument erstellt. Die Userform springt beim Öffnen der Datei automatsch auf. In der Textbox der Userform soll dann der aktuelle Text aus dem worddokument angezeigt werden. Der Benutzer kann nun über die Textbox eine Eingabe machen und diese über einen Button in das Worddokument übertragen.

Private Sub cmd_Eingaben_übertragen_Click()

With ThisDocument.Tables(1)

    .Cell(1, 2).Range.Text = txt_Auftraggeber.Text

End Sub

Private Sub UserForm_Initialize()

txt_Auftraggeber.Text = ThisDocument.Tables(1).Cell(1, 2).Range.Text

End Sub

Das Übertragen funtioniert super. Leider wird der aktuelle Text in der textbox nicht angezeigt. Hat irgendeiner eine Idee?

Viele Grüße

Steffen