keuzerondjes leeghalen

[mnemonic]

Hallo,
ik heb hier een testbestandje met een formulier waarop een aantal keuzerondjes staan.
Ook staan hier textboxen, listbox en combobox op.
De leeghaal knop moet al het ingevoerde verwijderen en dat is geen probleem met de boxen maar ik loop vast met de keuzerondjes.
Wie kan/wil mij hier mee helpen ?
Alvast bedankt
Jan

 

[ExcelAmateur]

Kijk hier maar even.
https://www.helpmij.nl/forum/showthread.php/912037-Selectierondjes-wissen?p=5912721&highlight=Keuzerondjes#post5912721

 

[SjonR]

zo:

Case "OptionButton"
            ctl.Value = 0

 

[VenA]

Gebruik inspringpunten voor de leesbaarheid. Een aparte procedure voor het leegmaken is in dit voorbeeldje niet nodig.

Private Sub CommandButton1_Click()
  For Each ct In Me.Controls
    Select Case TypeName(ct)
      Case "TextBox": ct.Text = ""
      Case "ComboBox", "ListBox": ct.ListIndex = -1
      Case "OptionButton": ct.Value = False
    End Select
  Next ct
End Sub

Je hebt ook geen rowsource nodig. Voor het vullen van ComboBox1:

Private Sub UserForm_Initialize()
  ComboBox1.List = Application.GetCustomListContents(2)
  TbJaar = Format(Now, " yyyy")
End Sub

 

[mnemonic]

Bedankt ExcelAmateur voor je snelle reactie.
Deze had ik nog niet gevonden.
Maar als ik deze code bij mij gebruik gebeurd er niks.
Het rondje wat zwart is wordt niet leeg.
Wat doe ik verkeerd?

 

[ExcelAmateur]

Zie de post van VenA, complete code.

 

[edmoor]

De opdracht "For Each btn In ActiveSheet.OptionButtons" is voor OptionButtons in een werkblad, niet in een Userform.
Doe wat VenA laat zien in #4.

 

[mnemonic]

Bedankt heren voor al jullie uitleg.
Tijdens het maken van mijn 2e bericht waren er al weer meer reacties geschreven.
Sorry dat ik niet eerst heb gekeken maar direct mijn 2e bericht heb geplaatst.
VenA bedankt voor weer je duidelijke uitleg ik ben hierdoor weer wat wijzer geworden.

Alles werkt nu naar wens en kan het nu verder toepassen.
Nogmaals iedereen bedankt voor de reacties :thumb:
Jan