scrollen in listbox met knop

[gast0219]

Goedemorgen beste helpers van het forum,

Ik heb weer eens een idee gekregen maar zou even niet weten hoe ik het moet realiseren. Ik probeer 2 knoppen te maken om door me listbox heen te scrollen. Nou was ik het aan het proberen met:

Dim x As Long, y As Long
x = ActiveCell.Row
y = ActiveCell.Column
Do
x = x + 1
Loop Until Cells(x, y).EntireRow.Hidden = False
Cells(x, y).Select

Me.Listbox1.rowsource = (x, y)

Maar dit werkt dus niet... zou een vriendelijke helper mij een goede tip kunnen en willen geven om dit te kunnen realiseren??

Alvast bedankt voor de reacties,

mvg,

gast0219

 

[gast0219]

was weer iets te snel met vragen, heb het al gevonden, maar geeft wel een foutmelding op:

Me.ListBox1.ListIndex = ActiveCell.Row

 

[gast0219]

Als er een vriendelijke helper is die mij op weg zou willen kunnen helpen, graag !!!!

Hierbij een voorbeeldbestandje

Bekijk bijlage Scrol listbox.xlsb

 

[VenA]

Zo?

 

[gast0219]

Precies wat ik bedoel, en ik zie en ik snap ook gelijk wat ik fout doe... Ik zit 2 dingen door elkaar heen te halen... Hartelijk dank voor uw hulp VenA.