Textbox1 pas zichtbaar na aanvinken van OptionButton2 in userform VBA-WORD

[jlu]

Beste mensen,

Ik heb een userform aangemaakt waarin zit:
2x optionbutton
1x commandbutton
1x textbox

Wat ik wil is dat als OptionButton 2 geselecteerd is, TextBox1 zichtbaar wordt en kan worden ingevuld. Na het klikken op OK (CommandButton) moet de ingetoetste tekst zichtbaar worden in de cel van de Word tabel.

Hierbij ook het stukje code.

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
[COLOR="red"]Selection.TextBox1.Visible = True

    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
    "Macrobutton OpenType", PreserveFormatting:=False
    ActiveWindow.View.ShowFieldCodes = False[/COLOR]End If

Unload Me
End Sub

Het rode gedeelte klopt nu dus niet en ik weet niet wat ik hierneer moet zetten.
Had al even gezocht op het forum maar kwam niet iets tegen.

Hopelijk kunnen jullie mij helpen.

bvd

Jan

 

[OctaFish]

Je hebt een formulier open dat actief is; zolang dat open staat kun je geen tekst in je document intypen. Zou ook niet nodig hoeven zijn als je de tekst op het formulier laat typen, en bij het sluiten van het formulier de tekst overziet naar het document.

 

[jlu]

Octa,

Dat klopt.
Misschien heb ik het een beetje onduidelijk omschreven.

Bedoeling is als volgt:
Ik klik op een cel, nu opent zich een userform. (dit werkt)
Hierin heb ik twee optionbuttons, vink ik optie1 aan dan wordt er ingevuld 1,8 nadat ik op OK gedrukt heb.
Maar kies ik voor optie 2 dan wil ik dat mijn textbox1 (aanwezig in userform) zichtbaar wordt en dat de tekst die ik hier invul in mijn tabel komt te staan nadat ik op OK gedrukt heb.

Alleen ik weet niet hoe ik onderstaande in code moet zetten.
End If

If OptionButton2.value = True Then
maak textbox 1 zichtbaar en plaats cursor in textbox 1
Als ik op ok klik plaats tekst uit textbox in de tabel.


Bij de eerdere die ik gemaakt had heb ik onderstaande gebruikt maar hier had ik geen invulvak in.

Private Sub Oktaxonomie_Click()
If OptionButton1.value = True Then
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
    "Macrobutton OpenTaxonomie Begripsmatig", PreserveFormatting:=False
    ActiveWindow.View.ShowFieldCodes = False
End If

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

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

Unload Me

End Sub

Ik hoop dat dit mijn vraag iets duidelijker maakt.

Jan

 

[jlu]

Zelf alweer wat verder gekomen.
Private Sub OptionButton2 toegevoegd zodat het tekstvak zichtbaar wordt.

Code is als volgt.

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
   [COLOR="red"] Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
    "TextBox1.value", PreserveFormatting:=False
    ActiveWindow.View.ShowFieldCodes = False[/COLOR]End If

Unload Me
End Sub

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

End If
End Sub

Nu is het de bedoeling dat wat nu rood is gemaakt opdracht word, dat de tekst vanuit Textbox1 wordt ingevuld.

 

[jlu]

Bovenstaande vraag is opgelost, ik kan de textbox nu activeren en invullen.
Ook werkt het dat de cel wordt ingevuld, maar daarna is de macro wel verdwenen.
Dit betekent als deze gewijzigd moet worden dat je dit dan niet via de userform kunt doen.
Hier heb ik een nieuw topic voor geopend: http://www.helpmij.nl/forum/showthr...-niet-meer-opnieuw-te-gebruiken-na-command-ok