Afhankelijke combobox op userform

[Doohan]

Beste helper,

Ik probeer d.m.v. afhankelijke combox op mijn formulier dmv caption, 4 labels te vullen. Dus ik ben met mijn weinige vba kennis aan de slag gegaan met de codes van de website vba for smarties maar het lukt me niet om de labels vullen. Het voorbeeld op de website heeft 3 comboboxen. En ik heb er maar 2. dus na een dagje proberen te begrijpen en te herschrijven heb ik nog geen goed resultaat helaas. wil iemand kijken wat er fout gaat.?

Private Sub UserForm_Initialize()
  
  Dim sn
    
    sn = Sheets("koelwaterdata").Cells(1).CurrentRegion
        For j = 1 To UBound(sn)
            If InStr(c01 & ",", "," & sn(j, 1) & ",") = 0 Then c01 = c01 & "," & sn(j, 1)
        Next

        keus1.List = Split(Mid(c01, 3), ",")
        keus2.Clear
        
End Sub

Private Sub keus1_Change()
     
     'keus2.List = Split(lijst(1), ",")
     keus2.ListIndex = -1
    ' If keus1.ListIndex > -1 Then keus2.List = Split(lijst(1), ",")
        
End Sub
Function lijst(x)
    
    For j = 1 To UBound(sn)
        For jj = 1 To x
            If sn(j, jj) <> Me("keus" & jj).Value Then Exit For
            Next
        If jj = x + 1 And InStr(c01 & ",", "," & sn(j, jj) & ",") = 0 Then c01 = c01 & "," & sn(j, jj)
    Next

lijst = Mid(c01, 3)

End Function

Private Sub keus2_Change()
    
    If keus2.ListIndex = -1 Then Exit Sub
    
    c01 = keus1.Value & keus2.Value
    
    For j = 1 To UBound(sn)
        If sn(j, 1) & sn(j, 2) = c01 Then Exit For
    Next
    
    For jj = 3 To 6
        Me("LblMartin" & jj).Caption = sn(j, jj)
    Next
  
End Sub

Private Sub butCancel_Click()
    
    Me.Hide
    
End Sub
Private Sub butHoofdmenu_Click()

    ' Opent Main Menu
    '
        frmDrukverliesKoelwaterLeiding.Hide
        frmMainMenu.Show

End Sub

In de bijlage heb ik het bestandje toevoegd

Alvast vriendelijk dank,

 

[ExcelAmateur]

Ik denk dat de code van snb is.

Zo te zien is de variable sn niet overal te lezen.
Label LblMartin kan ik ook niet vinden.

 

[ExcelAmateur]

Ik heb hem aan de praat gekregen.

Kijk in de code wat ik gedaan heb, denk niet dat dit zo hoort.
Alleen Kinematische Viscociteit die krijg ik niet in de label.(nummer 6)
Staat ook niet in de Koelwaterdata volgens mij maar ik ben een leek, kijk er misschien overheen.
Dus jj = 3 To 6, heb ik 3 To 5 van gemaakt tot zover werkt het.

 

[Doohan]

Alvast bedankt ik laat het lintje nog even open. ik kan er morgen pas naar kijken.
Ik ga nu 1st maar eens een donatie doen aan helmpij. Dat mag ook wel eens gebeuren van mijn kant.

groet Martin

 

[ExcelAmateur]

Martin,

Ik heb nog even zitten puzzelen en nu werkt het wel.
Heb er een kolom tussen gezet en op regel 31 de kg/m3 in kolom E gezet en de temperatuur in kolom D om te testen.

 

[Doohan]

Geweldig het werkt. Nog bedankt dat je toch nog ff heb gekeken. Het is toch wel een lastige code. Die promotie van je naar proffesional zal echt niet lang op zich laten wachten.

Ik ga ff de kolommen verwisselen.

Groet Martin

 

[ExcelAmateur]

Ik ben al 13 jaar met pensioen en voor mijn werk nooit met Excel gewerkt.
Werkte aan de kotterbank en draaibank en andere machines.

Vind het leuk om te proberen een oplossing te vinden.
Zoek ook veel op het internet voor code, daar is zat te vinden.

Suc6 ermee

 

[snb]

Het gaat om een nauwe samenhang tussen de struktuur van je gegevens en de struktuur van het userform (zie de wijziging van de naamgeving van de 'labels').

 

[Doohan]

@snb Dank je, Ik wilde de volgende vraag al stellen en toen zag ik dat je de code nog eenvoudiger en begrijpelijker heb gemaakt. Hierin ga ik me nog vast bijten.

Echter in dit zelfde bestand waar ik nog de werkende code heb staan van ExcelAmateur heb ik een raar dingetje gevonden.

Ik ga daar even een nieuwe lijn voor openen, het is geen lastige vraag.