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
|