Hoornvan
Terugkerende gebruiker
- Lid geworden
- 10 feb 2002
- Berichten
- 3.333
Beste helpers,
Ik wil een ComBoBox vullen met een gefilterde kolom.
In de help van Helpmij heb ik dit van Roncancio gevonden maar werkt niet bij mij.
De code die ik normaal gebruik om de ComBoBox te vullen is;
Nu heb ik geprobeerd om met de code van Roncancio te spelen maar dat mislukt.
Ik heb een msgBox eerst ingebouwd om te kijken of hij het goede blad gebruikt en dat doet hij.
Dus de range wil niet werken, ook niet als ik achter Name.Range zet.
Hij geeft alleen niet de lijst niet maar komt met de fout 451.
Nu is de vraag hoe krijg ik dit voorelkaar?
De ComBobox staat in een formulier.
Alvast hartelijk bedankt.
Ik wil een ComBoBox vullen met een gefilterde kolom.
In de help van Helpmij heb ik dit van Roncancio gevonden maar werkt niet bij mij.
Code:
ActiveSheet.ComboBox1.ListFillRange = ActiveSheet.Range("A2:A10").SpecialCells(xlCellTypeVisible).Address
Code:
With Prive.cboNaam
.RowSource = ActiveSheet.Name & "!A2:" & Sheets("Privé").Range("A65536").End(xlUp).Address
End With
Ik heb een msgBox eerst ingebouwd om te kijken of hij het goede blad gebruikt en dat doet hij.
Dus de range wil niet werken, ook niet als ik achter Name.Range zet.
Code:
With Prive.cboNaam 'Laat alleen de gefilterde namen zien
.RowSource = ActiveSheet.Name("A2:A1000").SpecialCells(xlCellTypeVisible).Address
End With
Nu is de vraag hoe krijg ik dit voorelkaar?
De ComBobox staat in een formulier.
Alvast hartelijk bedankt.