combobox op userform afhankelijk maken

[Remlo]

in de combobox omschrijving toestel zouden enkel de toestellen zichtbaar worden van de gekozen locatie.

Bijgevoegd bestand zal mijn vraag verduidelijken hoop ik.

 

[Doohan]

zoiets

Dit misschien?

 

[Remlo]

Blijkbaar is er iets mis gegaan

Doohan,

als ik jou bijgevoegde file open krijg ik net hetzelfde als mijn oorspronkelijk bestand. Of zie ik iets over het hoofd.
Combobox met label "omschrijving toestel" wordt niets ingevuld.

Toch alvast bedankt om er naar te kijken.

 

[VenA]

Over getrapte validatie is wel erg veel te vinden. Je kan hier even wat inspiratie opdoen over hoe het werkt. http://www.snb-vba.eu/VBA_Afhankelijke_Comboboxen_en.html#L_2

 

[Remlo]

had ik nog niet gevonden.

Vena,

Heb dit even bekeken, maar voor iemand die maar af en toe vba gebruikt is dit toch niet zo snel te begrijpen. Maar zal mijn best doen.
Ik ging ervan uit, doordat de gegevens in een tabel staan, je dit met een filter kon oplossen. Maar dit is me niet gelukt.

bedankt voor de info.

 

[sylvester-ponte]

remlo, waarom gebruikje de filters van je tabel niet? ipv een userform?

 

[emields]

probeer deze eens

 

[Remlo]

sylvester,

het maakt deel uit van een helpdesk, door meerdere personen wordt er ingegeven( niet simultaan) vandaar userform om consistentie te bewaren.
Momenteel werkt dit met een combobox waar alle machines en toestellen in staan. Dit wordt vanwege het aantal lastig zoeken. Vandaar het idee om op te splitsen op locatie.

Emiel,

jou bestand werkt 1 x daarna foutmelding. Maar ik had dezelfde denkpiste. Enkel is mijn kennis van vba zeer beperkt.

Reeds bedankt voor jullie inspanningen.

 

[AD1957]

en wat is de foutmelding?
Probeer dit eens.

Private Sub ComboBox1_Change()
 Me("TextBox1") = ComboBox1.Column(1)
 With Worksheets("Blad1").ListObjects("Tabel1")
   .Range.AutoFilter 1, ComboBox1.Value
    ComboBox2.List = .DataBodyRange.SpecialCells(12).Value
   .Range.AutoFilter
 End With

 
End Sub

 

[Remlo]

AD1957

was nog op zoek hoe je een kolom selecteert in een tabel, en met deze aanpassing aan jou code werkt dit volgens mij perfect.
(Met jou code kreeg ik terug de locatie...)

Private Sub ComboBox1_Change()
Me("TextBox1") = ComboBox1.Column(1)
With Worksheets("Blad1").ListObjects("Tabel1")
.Range.AutoFilter 1, ComboBox1.Value
ComboBox2.List = .ListColumns(3).DataBodyRange.SpecialCells(12).Value
.Range.AutoFilter
End With

bij deze allen hartelijk dank, en weer wat bijgeleerd.