waarde agfhankelijk van 2 combobox in userform

[drubbus]

Ik wil in een userform 2 comboboxen plaaten waarbij combobox2 afhankelijk is van combobox1.
Deze waarden worden opgehaald uit een werkblad
Deze waarden moeten na de gevonden combinatie ook nog weggeschreven kunnen worden in een sheet
.
Heb wel wat gevonden op het forum maar dit is niet in een userform
Het gaat om het dik gedrukte gedeelte


(VB:

Private Sub CommandButton1_Click()
Dim iRow As Long
'Vind de eerste lege rij in uw database
iRow = Sheets("DBASE").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

'copy the data to the database
With Sheets("DBASE")
.Cells(iRow, 1).Value = Me.ComboBox26.Value
If Me.ComboBox26.Text = Empty Then
        MsgBox "'Ingevoerd door:' verplicht veld"
        Cancel = True
    End If
   
 .Cells(iRow, 2).Value = Me.DTPicker3.Value
.Cells(iRow, 3).Value = Me.TextBox40.Value
.Cells(iRow, 4).Value = Me.TextBox41.Value
.Cells(iRow, 5).Value = Me.TextBox42.Value
.Cells(iRow, 6).Value = Me.TextBox43.Value
.Cells(iRow, 7).Value = Me.TextBox44.Value


  [B].Cells(iRow, 15).Value = ComboBox27_Change()
Select Case ComboBox27.ListIndex
Case 0
.Cells(iRow, 13).Value = ComboBox28.List = Range("wijk!B2:B22").Value
Case 1
     .Cells(iRow, 13).Value = ComboBox28.List = Range("wijk!C2:C32").Value
Case 2
     .Cells(iRow, 13).Value = ComboBox28.List = Range("wijk!E2:E11").Value
 End Select[/B]

End Sub

Mijn dank is groot
Drubbus

 

[Roncancio]

De VBA-code geloof ik wel.
Kan je een voorbeeldbestand sturen met de gegevens die je in de combobox wilt zien en wat vervolgens moet worden weggeschreven.

Met vriendelijke groet,


Roncancio

 

[drubbus]

ok dank je

in combobox 1 komen de wijken te staan
in combobox 2 straatnamen

vb in combobox 1 verschijnen bv de wijken 1 tm 10
in combobox 2 moeten dan de straten te zien zijn die bij de gekoppelde wijk horen maar als het mogelijk is ook andersom

Dus:


wijk 1 straat A tm C
Wijk 2 straat D tm E
enz.
maar ook
straat A tm C- wijk 1
straat D tm E-Wijk 2
groet en dank
Drubbus
:thumb:

 

[Roncancio]

Hierbij een voorbeeld adhv van je gegevens.

Met vriendelijke groet,


Roncancio

 

[drubbus]

excuus voor de late reactie

ziek geweest

Het werkt wel maar dan alleen met getallen
zodra ik daadwerkelijk een straatnaam of wijk invoer krijg ik een foutmelding

 

[Roncancio]

Welke foutmelding krijg je?
Hier is een bestand met wijknamen maar ik krijg geen foutmelding.

Met vriendelijke groet,


Roncancio