Excel VBA - opdater checkbox fra combobox sub i en UserForm

CheckBox1 = True

Det har jeg også prøvet - det virker desværre ikke.

Jeg bruger en "Dim FeatureNavn" og tager giver FeatureNavn værdi af indholdet af celle B1-P1 i et loop, men når jeg så sætter FeatureNavn=True hedder FeatureNavn så True i stedt for at værdien af checkbox'en bliver true.

måske CheckBox1.Value = True
eller CheckBox1.Value = 1

Dem har jeg også prøvet - virker desværre ikke. Kan det have noget at gøre med hvordan min Dim'er FeatureNavn ?? Jeg har lige prøvet med "Dim FeatureNavn as checkbox", men så kan jeg ikke sætte FeatureNavn til værdien af B1.

Her er den kode jeg sidder og roder med:

Sub DUTmodel_Change()
Dim DUTlinie, FeatureKolonne, FeatureNavn, FeatureSat, Addr, Res1, FeatureSub, sidstetegn
Dim FeatureNavnCB As CheckBox

modelDUT = DUTmodel.Text 'Get DUT name from list
Sheets("Auto-Configure products").Select 'Changes to sheet with all features
   
Range("A1").Select
ActiveCell.Columns("A:A").EntireColumn.Select 'selects column to search in
Selection.Find(What:=modelDUT, After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate
DUTlinie = ActiveCell.Row() 'finder linienummer for DUTname

Do While ActiveCell.Offset(-(DUTlinie - 1), 0) <> vbNullString 'kør denne indtil der ikke er flere features
    ActiveCell.Offset(0, 1).Select
    Addr = Selection.Address 'find bogstav for kolonne
    Res1 = InStr(2, Addr, "$", vbTextCompare)
    FeatureKolonne = Mid(Addr, 2, Res1 - 2)
    FeatureNavn = ActiveCell.Offset(-(DUTlinie - 1), 0) 'finder de features der skal sættes i x1 cellerne

    If ActiveCell = "X" Then
        FeatureNavn = True 'og hvis der er et X (aktivt) skal feature aktiveres
    Else
        FeatureNavn = False
    End If
       
Loop

End Sub

Ja, jeg ser nu at dit problem simpelthen er at matche en CheckBox med et FeatureNavn.

Du kunne nummerere dine features, så de svarede til "numrene" på CheckBoxene:
F.eks. ved den feature der svarer til CheckBox5, giver du FeatureNavn String-værdien "CheckBox5"

Nu kan du så finde CheckBoxen således:  UserForm1.Controls(FeatureNavn).Value = True

Nå, så ikke dit sidste inlæg, da jeg postede....

Men i linien:

FeatureNavn = ActiveCell.Offset(-(DUTlinie - 1), 0) 'finder de features der skal sættes i x1 cellerne

Skal du jo blot have fundet det tal der svarer til Checkboxens nummer.

Hvis FeatureNavn så er et tal kan du sætte CheckBoxen således:

UserForm1.Controls("CheckBox" & Cstr(FeatureNavn)).Value = True

Hej tjacob - du er en skattebasse - du har lige løst mit problem!!

Jeg brugte bare:

UserFormF.Controls(CStr(FeatureNavn)).Value = True

Så er jeg fri for at lave alle mine features/checkbox'e om til noget med tal.

Du får de point jeg har lovet - skal bare lige finde ud af hvordan man gør (det er føste gang).

Du kan først give mig points når jeg lægger et svar, det kommer her,