Hallo,
ach so ja, Du befüllst jetzt mit CmdButton, müsste aber so gehen...
Private Sub CommandButton2_Click()
Dim A0 As Range
Set A0 = ThisDocument.Bookmarks("A0").Range
If OptionButton0.Value Then
ThisDocument.Bookmarks("A0").Range.Text = "X"
Call ThisDocument.Bookmarks.Add(Name:="A0", Range:=A0)
Set A0 = Nothing
End If
End Sub
Gruß,
|