userform waarde in Listbox ophalen uit sheet. en option button foutje

[novec]

Hallo

ik maak een formulier voor vrijwilligers die in het veld waarnemingen doen en kleine reparaties uitvoeren.
Zie bijlage.

In dit formulier heb ik een invoer Page en een wijzig page.

Vraag 1
Op de invoer page krijg ik bij de Option Button een foutmelding welke ik niet kan oplossen. In een vergelijkbaar sheet werk het perfect ....

Vraag 2
Op het wijzigen blad haal ik gegevens uit de sheet op. werkt goed maar ik krijg het neit voorelkaar om de listboxen de waardes op te laten halen en ook hier komt de Option Button niet met de goede waarde terug.


V.w.b. beveiliging en alleen invullen goede waardes e.d. is de sheet nog niet klaar, dat is volgende stap maar daar kom ik wel uit denk ik.
Bedankt voor de hulp.


Steven


Bekijk bijlage Test218.xlsm

 

[edmoor]

Je verwijst in de code naar het formulier frmAssistenten terwijl het formulier frmAss heet.

 

[ExcelAmateur]

Maak er dit van en het werkt.

Sub OpenForm()
    frmAss.Show
End Sub

Je moet natuurlijk de naam gebruiken die je aan het formulier gegeven heb.
Doe dit ook bij het afsluiten.

 

[novec]

Oeps

dat krijg je ervan als je het bestaande sheet aanpast en met dummy info vult......
Sorry

nieuw bestand waarin dit is aangepast.

Bekijk bijlage Test219.xlsm

 

[ExcelAmateur]

Ik had geschreven dat dit ook daar moest.

Private Sub cmbSluiten_Click()
    Unload frmAss    
End Sub

 

[novec]

Met schaamte een aangepaste versie (volgende file Test221 is de correcte)

 

[novec]

En deze is nog meer aangepast.

 

[HSV]

Set oRange = ThisWorkbook.Sheets("Werkinzet").Columns(1).Find _
                (What:=txtVerslag2.Value, LookIn:=xlValues, LookAt:=xlWhole)
[COLOR=#3366ff]        If Not oRange Is Nothing Then[/COLOR]
          
    oRange.Offset(0, 1).Value = cbxNaam2

 

[novec]

Hallo Harry,

Ik zie wat je heb toegevoegd. Merk in mijn sheet niet het verschil maar daar ga ik nog achter komen denk ik.
Het lost echt niet mijn vraag op hoe ik in de Wijzigingspage de Option buttons waarde en Listbox waardes terug krijg in het formulier.

Steven