userform niet meer opnieuw te gebruiken na command ok??

[jlu]

Ik heb onderstaande code gebruikt in een userform.
Bij optionbutton1 werkt het goed, ik vink optionbutton 1 aan en druk op ok.
Nu verandert mijn cel in wat er staat bij de code optionbutton.
Wil ik hem toch nog veranderen dan kan dit door te dubbelklikken op de tekst.

Bij optionbutton2 lukt dit niet, hier maak ik gebruik van textbox1 die gevuld moet worden na het aanklikken van de optionbutton.

Wat ik dus wil is dat als ik OptionButton 2 heb aangeklikt en de Textbox1 gevuld heb en op OK klik dat deze de waarde uit textbox1 plaatst in document. (dit werkr) maar ik wil ook dat de macro in de tabel blijft staan en deze wordt nu vervangen. Dit werkt nu niet.
Heb al geprobeerd halve code mee te nemen zoals die staat bij optionbutton1 maar dan krijg ik syntaxisfout e.d.
Kan iemand mij hiermee verder helpen.

Private Sub OKTijd_Click()

If OptionButton1.value = True Then
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
    "Macrobutton OpenTijd 0.8", PreserveFormatting:=False
    ActiveWindow.View.ShowFieldCodes = False
End If

If OptionButton2.value = True Then

    Selection = TextBox1.value
    
End If

Unload Me
End Sub

Private Sub OptionButton2_Click()
If OptionButton2.value = True Then
TextBox1.Visible = True

End If
End Sub

 

[jlu]

Nog even verder gekeken en ik zie dat ik de macro alleen opnieuw kan gebruiken als de regel Van "macrobutton OpenTijd in te vullen waarde"neergezet wordt.
Hierbij dus een stukje code waar ik de verwijzing neer moet zetten naar textbox1, maar vul ik gewoon in selection=TextBox1.value dan komt dit er ook letterlijk te staan?????

Private Sub OKTijd_Click()

If OptionButton1.value = True Then
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
    "Macrobutton OpenTijd 0.8", PreserveFormatting:=False
    ActiveWindow.View.ShowFieldCodes = False
End If

If OptionButton2.value = True Then
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
    "Macrobutton OpenTijd [COLOR="red"]hier moet komen te staan dat de waarde uit textbox1 [/COLOR]", PreserveFormatting:=False
    ActiveWindow.View.ShowFieldCodes = False
End If

Unload Me
End Sub

Private Sub OptionButton2_Click()
If OptionButton2.value = True Then
TextBox1.Visible = True

End If
End Sub

 

[OctaFish]

Bedoel je zoiets?

Private Sub OKTijd_Click()
    If OptionButton1.Value = True Then
        Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "Macrobutton OpenTijd 0.8", PreserveFormatting:=False
        Me.TextBox1.Visible = False
        Me.TextBox1.Value = ""
    End If
    
    If OptionButton2.Value = True Then
        Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
            "Macrobutton Selectie " & Me.TextBox1, PreserveFormatting:=False
    End If
    ActiveWindow.View.ShowFieldCodes = False
    
    Unload Me
End Sub

 

[jlu]

Octa,

Dit is precies wat ik bedoelde had al geprobeerd door with of and, maar dus & gebruiken.
Bedankt,

Jan