Hallo mein Code:
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
'Documentname anpassen!!!!
TextBox2.Text = Documents("hallo.docx").Bookmarks("Tm1").Range.Text
Else
If CheckBox1.Value = False Then
TextBox2.Text = "Bitte Ausfüllen"
End If
End If
TextBox1.Locked = CheckBox1 = True
CheckBox2.Locked = CheckBox1 = True
End Sub
Jetzt sagt er mir bei
TextBox2.Text = Documents("hallo.docx").Bookmarks("Tm1").Range.Text
Dass es ein ungültiger Dateiname wäre aber Schreibweise etc stimmt
|