Probleem met combobox

[Relleboer]

Dag Heren,

Ik hoop dat een van jullie mij kunnen helpen. kom er niet uit het is werkende maar op een lelijke manier met een omweg.

Private Sub combobox1_change()
Dim rijnummer As Integer
Dim Lst As Variant
Dim itemnummer As Integer
rijnummer = ComboBox1.ListIndex
rijnummer = rijnummer + 1
Range("a11").FormulaR1C1 = rijnummer

itemnummer = ComboBox1.ListIndex

Application.ScreenUpdating = False
Application.DisplayAlerts = False

With ComboBox3
Sheets("gegevens").Select

Lst = [COLOR="Red"][B]Range("b1", Range("b1").End(xlDown))[/B][/COLOR]

ComboBox3.List = Lst
End With
End Sub

wil voor het rode stuk en andere verwijzing gebruiken zodat ik niet zelf in excell een index functie hoef toe te passen maar dat hij zelf de goede kolom pak als in combobox1 een range word gekozen. Hopelijk is het een klein beetje duidelijk en kunnen jullie me verder helpen. bestandje wat bijgevoegt werkt maar niet zoals ik wil.

 

[Wigi]

Hellowa Relleboer

Zo

Private Sub combobox1_change()
    
    Dim rEersteCel As Range
    
    Set rEersteCel = Sheets("gegevens").Cells(1, ComboBox1.ListIndex + 3)
    
    ComboBox3.RowSource = Range(rEersteCel, rEersteCel.Range("B1").End(xlDown)).Address
    
End Sub

Wigi

 

[Relleboer]

Bijna

Hey Wigi bedankt het werkt met veel minder regels. Maar klein vraagje nog? Pakt ie nu dus kolom b nog? ik wil eigenlijk dat hij zelf de goede kolom pakt en dat ik de index functie uit kolom B eruit kan halen. Dus als de listindex van de kombobox bv 3 aangeeft dat hij dan bv kolom E pakt. of maak ik het dan toch te ingewikkeld en kan het beter zo laten.

Groet Jan-willem

 

[Relleboer]

Private Sub combobox1_change()
    
    Dim rEersteCel As Range
    
    Set rEersteCel = Sheets("gegevens").Cells(1, ComboBox1.ListIndex + 3)
    
    ComboBox3.RowSource = Range(rEersteCel, rEersteCel.Range("B1").End(xlDown)).Address
    
End Sub

Range("B1") moet eigenlijk meeschuiven met de Kolom.

 

[Relleboer]

Wigi Bedankt

Ik ben eruit. stom van mij hoefde alleen een stukje er tussen uit te halen.

Private Sub combobox1_change()
    
    Dim rEersteCel As Range
    
    Set rEersteCel = Sheets("gegevens").Cells(1, ComboBox1.ListIndex + 2)
    
    ComboBox3.RowSource = Range(rEersteCel, rEersteCel.End(xlDown)).Address
    
End Sub

Thanks

 

[Wigi]

Ik ben eruit. stom van mij hoefde alleen een stukje er tussen uit te halen

Je moest dat er idd uit halen en dan werkte het, maar het was mijn typfout...

Goed dat je het eruit haalde.