Hallo, ich habe folgenden Code, welcher die Variablen des UserForms, Textmarken zuordnet, das Dokument ausfüllt und speichert.
Mein Problem ist, dass bei erneutem ausfüllen des UserForms, der neue Inhalt an den vorhandenen Textmarken angehängt wird.
Wie lösche ich den Inhalt der vorhandenen Textmarke und ersetze ihn mit den neuen Werten?
Danke im Voraus :)
Private Sub CommandButton1_Click()
Dim Klasse As Range
Set Klasse = ActiveDocument.Bookmarks("Klasse").Range
Klasse.Text = Me.Klasse.Value
Dim Klasse1 As Range
Set Klasse1 = ActiveDocument.Bookmarks("Klasse1").Range
Klasse1.Text = Me.Klasse.Value
Dim Geburtdatum As Range
Set Geburtdatum = ActiveDocument.Bookmarks("Geburtdatum").Range
Geburtdatum.Text = Me.Geburtstag.Value
Dim Geburtdatum1 As Range
Set Geburtdatum1 = ActiveDocument.Bookmarks("Geburtdatum1").Range
Geburtdatum1.Text = Me.Geburtstag.Value
Dim Name As Range
Set Name = ActiveDocument.Bookmarks("Name").Range
Name.Text = Me.VornameNachname.Value
Dim Name1 As Range
Set Name1 = ActiveDocument.Bookmarks("Name1").Range
Name1.Text = Me.VornameNachname.Value
Me.Repaint
UserForm1.Hide
Application.Dialogs(wdDialogFileSaveAs).Show
End Sub