• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Afhankelijke data validatie in combobox

  • Onderwerp starter Onderwerp starter JonS
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.
J

JonS

Gebruiker
Lid geworden
31 aug 2011
Berichten
7
Hallo,

Ik heb me suf gezocht en er zijn veel oplossingen voor, maar ik lijk niet datgene te kunnen vinden wat ik zoek.
Ik heb een voorbeeldbestandje bijgevoegd.

Ik heb in een userform 2 comboboxen zitten. Van de eerste is de rowsource bepaald door een label dat verwijst naar een table. Dit zorgt ervoor dat de rowsource dynamisch is en items toevoegt, wanneer de tabel langer wordt.
De tweede Combobox moet vervolgens keuzes laten zien die bepaald worden door wat je in de eerste box kiest. Dit moet dan ook weer met het gebruik van namelabels.

Vervolgens wordt de ingevoerde info weggeschreven in een tabel, maar dit lukt me wel.

Ik heb te weinig kennis van de codering die erachter moet, dus heb niet kunnen vinden of er al een onderwerp is dat hierbij past. Misschien kan iemand mij in de goeie richting sturen of een handje helpen.

Groeten,
Jon

Bekijk bijlage Voorbeeld-combobox.xlsm
 
Verwijder de rowsource, en gebruil "List".
In module 3.
Code: 
Sub Form_Invoeren()
With Invoeren
  .ComboBox1.List = Sheets("Data").Range("A12").CurrentRegion.Value
  .Show
End With
End Sub

In userform.
Code: 
Private Sub ComboBox1_Change()
Set c = Sheets("Data").Rows(10).Find(ComboBox1.Value)
 If Not c Is Nothing Then
  ComboBox2.List = Range(c.Offset(1), c.Offset(2).End(xlDown)).Value
 End If
End Sub
 
Beste Harry,

Dat werkt fantastisch.
Hartelijk dank voor je snelle reactie!!

Groeten
Jon
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan