• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Lijst met VBA

Status
Niet open voor verdere reacties.
E

Excel01

Gebruiker
Lid geworden
13 nov 2011
Berichten
129
is het mogelijk om met behulp van VBA twee of meerder tabbladen te koppen.
voorbeeld.
In tabblad prs staan de uniqe namen in met id.
In tabblad dbl staan de namen uit tabblad prs gekoppeld aan producten.
Nu wil ik in listbox 1 een naam aanklikken en het resultaat uit tabblad dbl verschijnt in listbox2.
In listbox2 komen dus alleen producten die gekoppeld zijn aan een naam uit tabblad prs.
zie bestandje.

Bekijk bijlage Unique lijst.xls
 
Zoiets?
 

Bijlagen

  • Unique lijst.xlsb
    20,9 KB · Weergaven: 35
bijna

Harry tnks,

Ja dit komt aardig in de buurt. In listbox2 wil ik alleen producten zien.
Het liefst wil ik zelf kiezen welke kolommen getoond worden in listbox2.
Door bv een lijst met klommen die ik aan kan vinken.
ik heb een voorbeeld bijgedaan.
 

Bijlagen

  • Unique lijst bijna.xlsb
    20,5 KB · Weergaven: 39
Zo?
 

Bijlagen

  • Unique lijst.xlsb
    23,9 KB · Weergaven: 54
Top

tnks,
Dis is wat ik voor ogen had. ik ga proberen dit te koppelen aan het formulier LIJST.
er is een ding wat ik graag wil weten. Ik heb een kolom toegevoegd aan de tabblad dbl maar kreeg hem niet zichtbaar in de listbox 2. Hoe krijg ik toegevoegde kolommen te zien in listbox2.
wanneer ik iets wijzig in de vba code, krijg ik foutmeldingen.

alvast bedankt.
 
Dan moet je in de eigenschappen van Listbox2 de Columncount aanpassen.
Als je niet aangeeft wat je gewijzigd hebt dan zal je de foutmeldingen voor lief moeten nemen of zelf moeten oplossen.
 
Laatst bewerkt:
kopregel verbergen

Ik wil de kopregel (titel), rij 1, verbergen in listbox2. Wil niet lukken.
iemand een idee.
 
Verander de code van de Listbox_Click() in:
Code: 
Private Sub ListBox1_Click()
Dim sn, i As Long
sn = Sheets("dbl").Cells(1).CurrentRegion
ReDim arr(2, 0)
      For i = 2 To UBound(sn)
       If sn(i, 1) = ListBox1.Column(0) Then
          arr(0, UBound(arr, 2)) = sn(i, 1)
          arr(1, UBound(arr, 2)) = sn(i, 2)
          arr(2, UBound(arr, 2)) = sn(i, 3)
         ReDim Preserve arr(2, UBound(arr, 2) + 1)
        End If
      Next
 ListBox2.List = Application.Transpose(arr)
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan