Combobox update met 2 kolomen

[Atwist]

Hallo,

Heb eigenlijk 2 vragen in een
Ik heb een combobox die 2 kolomen laat zien (Colomncount=2)
1. Nu wil ik de vrij invoer gebruiken maar hoe vul ik deze in 1e Colomn gaat maat de 2e weet niet hoe.

De invoer naar het werkblad lukt mij denk ik wel (had al hulp gekregen van Roncancio).

2. Hoe kan ik iets verwijder uit de combobox lijst bv een item wat niet meer gebruikt wordt.

In mijn userform heb ik dus een combobox, met daaronder een knop "invoer" en een knop "delete" .

ComboBox1.ListIndex
Selection.ClearContents

Dit werkt niet

Heeft iemand een idee.

 

[Atwist]

Ben al zoveel aan het rommelen geweest, dat ik nu helemaal het spoor bijster ben.

Kan iemand mijn een tip geven?

 

[Roncancio]

Voor het laden van Comboboxen zou je rijen kunnen verbergen wiens waarde er niet meer toe doen.
Bijv.:

Private Sub UserForm_Initialize()
Dim lRij As Long
For lRij = 1 To 10
    With ComboBox1
        If Rows(lRij).Hidden = False Then .AddItem Range("A" & lRij).Value
    End With
Next
End Sub

Alleen de zichtbare rijen (van 1 t/m 10) worden in de combobox geplaatst.

Met vriendelijke groet,


Roncancio

 

[Atwist]

Hallo Roncancio,

Het laden van de comboboxen is niet het probleem.
De combobox staat in gesteld op 2 coloms.
Maar als ik de vrij invoer van de combobox gebruik kan ik maar 1 colom invullen en geen 2e colom.

 

[Atwist]

Ik heb een bestand bij gevoegd.

Bekijk bijlage Combobox1.xlsm

Misschien is dit wat duidelijker

Ik probeer dus in combobox8 "tekening code"
nieuwe tekening code toe te voegen maar de combobox heeft 2 kolomen (Columncount=2).
Hoe voer ik nu bv. AZ in kolom1 van de combobox in en bv. Aanzicht in kolom2 in.

 

[Roncancio]

Ik heb 2 tekstvelden ingevoerd.
In deze tekstvelden zitten alvast AZ en Aanzicht.
Zodra men op Invoer klikt (bij tekening Code), dan worden de inhoud van beide tekstvelden aan de lijst toegevoegd.
Selecteer je een rij in deze combobox en je klikt op Verwijder dan is de betreffende regel uit de lijst verdwenen.

Met vriendelijke groet,


Roncancio

 

[Atwist]

Roncancio,

Dankje voor jou oplossing.:thumb:

Zelf was ik ook al bezig met 2 textboxen maar dat wilde nog niet helemaal lukken

Bij deze ik deze vraag ook opgelost.

 

[Atwist]

Toch nog even een vraag over de code die je gebruikt.

Ik kan namelijk niet zien waar de invoer neer wordt gezet omdat ik de lijst wil sorteren

 

[Roncancio]

De invoer staat onderaan de lijst.

Met vriendelijke groet,


Roncancio

 

[Atwist]

Ja in de combobox staat het wel maar ik kan het niet op het "data" blad vinden
Kolom F & G

 

[Roncancio]

Dat klopt maar het lijkt mij het handigste om deze waardes pas weg te schrijven als men op OK klikt en niet wanneer gegevens worden ingevoerd met de knop.

Met vriendelijke groet,


Roncancio

 

[Atwist]

Oke dat zou kunnen maar hoe krijg ik de gegevens te zien om deze op het "data" blad te zetten.
Ik namelijk geen idee waar deze staan of wordt dit in het "geheugen" geregeld.
Ben met jou hulp al zeer ver gekomen maar dit gaat even boven mijn pet.

 

[Roncancio]

Voeg onderstaande code toe aan de grote knop Invoer.

Dim lRij As Long
For lRij = 1 To ComboBox5.ListCount
    Range("F" & lRij).Value = ComboBox5.List(lRij - 1, 0)
    Range("G" & lRij).Value = ComboBox5.List(lRij - 1, 1)
 Next

Alle waardes (ook die toegevoegd zijn) worden in de F en G-kolom geplaatst.

Met vriendelijke groet,


Roncancio

 

[Atwist]

Dankje

 

[Roncancio]

Graag gedaan.
Gaarne nog de vraag op opgelost zetten.
Bvd.

Met vriendelijke groet,


Roncancio