CheckBox op Userform aangevinkt d.m.v. data in Excel werkblad

[Kwabbernoot1980]

Hallo iedereen

ik zit weer vast in VBA met iets wat volgens mij zeer simpel moet zijn, maar ik zie het niet!

Ik heb een userform waarmee ik gegevens wegschrijf naar een werkblad in Excel. Nu wil ik deze gegevens terug oproepen in het userform, zo nodig wijzigen en aanpassen.

Dit lukt allemaal perfect bijhalve bij een checkbox lukt me dit niet. Ik heb bijvoorbeeld op mijn userform checkBox34, als die aangevinkt is en wordt weggeschreven komt er in mijn werkblad "Laptop" te staan.

Nu wil ik het dus weer voor mekaar krijgen dat als er in een rij "Laptop" staat CheckBox34 aangevinkt is.

Hopelijk kan iemand me helpen. Hieronder zien jullie een stuk code dat ik al gebruikt heb om de andere data in te lezen en te veranderen!

alvast bedankt
Dave

Private Sub CB_Grp_Change()

Dim Nr       As Integer
  i = CB_Grp.ListIndex                                     'welke rij heb je gekozen, niks=-1, 1e rij=0, etc
  If i = -1 Then
    TextBox107.Value = ""
    ComboBox2.Value = ""
    TextBox106.Value = ""
Else
    TextBox107.Value = CB_Grp.List(i, 8)
    ComboBox2.Value = CB_Grp.List(i, 7)
    TextBox106.Value = CB_Grp.List(i, 9) 
    
end if      
End Sub

rivate Sub UserForm_Initialize()
     
  With Sheets("NAWlijst")
    sq = .Range(Bereik).Resize(, 200)                        'lees gegevens in array
    CB_Grp.List = sq                                       'vul je combobox
    CB_Grp = ""                                            'alles leegmaken
    TextBox107.Value = ""
    ComboBox2.Value = ""
    TextBox106.Value = ""
End With
End sub

Sub wegschrijven(iRow As Integer)

With Sheets("NAWlijst")
      .Cells(iRow, 1) = CB_Grp.Value
      .Cells(iRow, 7) = TextBox107.Value
      .Cells(iRow, 6) = ComboBox2.Value
      .Cells(iRow, 8) = TextBox106.Value
End With
End Sub

 

[snb]

als 'laptop in cel E4:

Private userform_initialize()
    CB_Grp.List = Sheets("NAWlijst").Range(Bereik).Resize(, 200).value
   CheckBox34.value=sheets("Blad1").cells(4,5)="Laptop"
end sub

NB. Je kunt rechtreeks de gegevens naar de listbox schrijven als je de eigenschap .value toevoegt.

 

[Kwabbernoot1980]

Mits paar aanpassingen werkt het!

Hartelijk bedankt! Deze vraag is opgelost!