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