Frame med Optionbuttom på

Det er kun makering af Optionbuttom
der skal forsvinde

mvh

mvhansen

Sæt den/de enkelte options i frame2 op.Value = false - når en value i den anden sættes = true

Behov for mere?

Hej supertekst
Hvordan jeg har 18 Optionbuttom
på vær frame

mvh

mvhansen

Rem I Test-Formular:
Rem Frame1 : OptionButton1 - 4
Rem Frame2 : OptionButton5 - 8

Private Sub Frame1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Clearframe1
End Sub
Private Sub Frame2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Clearframe2
End Sub
Private Sub UserForm_activate()                    'Sletter alle v/load af formular
    clearOb Me.Frame1
    clearOb Me.Frame2
End Sub
Private Sub clearOb(ramme)                          'sætter ALLE optionbuttons t/false
Dim ob As Control                                  'i valgte ramme
    For Each ob In ramme.Controls
        If InStr(LCase(ob.Name), "optionbutton") > 0 Then  'Kun Ob, hvis andre controls
            ob.Value = False
        End If
    Next ob
End Sub
Private Sub Clearframe1()
    clearOb Me.Frame1
End Sub
Private Sub Clearframe2()
    clearOb Me.Frame2
End Sub

mvh
Supertekst

Hej supertekst
jeg kan ikke få det til at virke
jeg har mange if else
sætninger
kan det være det

mvh

mvhansen

Det kan det godt være - sæt evt. koden ind her - eller mail til pb@supertekst-it.dk

Tak for hjælpen

mvh

mvhansen