1 kolom in een listbox, maar de gehele regel kopiëren?

[debastaard]

Beste mensen,

Ik ben nieuw op het forum, en heb een klein beetje ervaring met Visual Basic. (het bijgevoegde bestand heb ik met behulp van dit forum gemaakt, waarvoor bedankt!) Ik ben op dit moment bezig met een soort database waaruit men via een listbox gegevens kan putten.

Nu heb ik 2 bladen, invoer en data, met in principe dezelfde kolomhoofden.
Wat ik graag zou willen, maar me niet wil lukken is het volgende:

Ik wil graag dat de gebruikers via de listbox gegevens uit het blad "Data" ophalen dmv de zoekbalk. Enkel de gegevens uit kolom B moeten in deze listbox getoond worden. Tot zover geen problemen want dit heb ik werkend gekregen. Echt zou ik graag willen dat wanneer men een selectie maakt de gegevens uit de HELE rij ipv uit één cel gekopieerd worden van het data naar het invoerblad. Ik zie hier op dit moment even geen oplossing in. Is er iemand die mij kan helpen?

Alvast bedankt!

 

[Relleboer]

Private Sub lstbox1_Change() 
Dim itemnummer As Integer
itemnummer = lstbox1.ListIndex
itemnummer = itemnummer + 1
With Worksheets("sheet1")
Range("A1").FormulaR1C1 = itemnummer
End With
End Sub

vanuit daar kun je gewoon verder bouwen

 

[debastaard]

Beste Relleboer,
Bedankt voor de hulp, maar dit is niet precies wat ik bedoel. Ik wil graag dat vanuit de database de gehele regel van de items die geselecteerd zijn gekopieerd worden naar het invoer blad. Nu wordt alleen het aantal van de geselecteerde items weergegeven. Of zie ik dat verkeerd?

Ik denk dat het in dit stukje code zit, maar dat weet ik niet zeker.

    For iListCount = 0 To Me.resultatenscherm.ListCount - 1
      Set invoegrange = Blad1.Range("B65536").End(xlUp)(2, 1)
        If Me.resultatenscherm.Selected(iListCount) = True Then
        invoegrange = resultatenscherm.List(iListCount)
        resultatenscherm.Selected(iListCount) = False
        End If
        Next iListCount

 

[Relleboer]

Nu word weergegeven welke regel je selecteerd. het index nummer van je listbox. Ik heb je vraag niet helemaal goed begrepen zag ik later. Vooral omdat je meerdere testen tegelijk kan selecteren en dan heb je hier niks aan. Je kunt het proberren met Horizontaal.Zoeken. zet de formule in de cellen waarde rest van de info moet komen en laat hem zoeken op de rij die met je formulier word ingevuld