Combobox naar textbox

[Brach]

Beste,

Hier is een bestandje met het volgende probleem.
In de combobox wil ik een naam selecteren en vervolgens wil ik in die textboxen de bijbehorende gegevens.
Ook wil ik de mogelijkheid hebben om de gegevens aan te passen en deze op te slaan ( naam, adres, leeftijd )

Ik heb al verschillende dingen geprobeerd maar kom er niet aan uit.
Kan iemand mij hier mee helpen ?

Mvg Brach

 

[HSV]

Bovenaan in een standaard modul:

Public sq

In de Userform module.

Private Sub Combobox1_Vullen()
    With Sheets("Blad1")
        sq = .Range("B15").CurrentRegion.Value
        ComboBox1.List = sq
    End With
End Sub

Private Sub ComboBox1_Change()
For i = 1 To 3
  Me("TextBox" & i) = sq(ComboBox1.ListIndex + 1, i)
Next i
End Sub

 

[HSV]

Je tweede vraag.

In Userform1 module.

Private Sub CommandButton1_Click()
  Cells(ComboBox1.ListIndex + 15, 2).Resize(, 3) = Array(TextBox1.Value, TextBox2.Value, TextBox3.Value)
End Sub

 

[Brach]

Beste HSV,

Voor in het test bestandje werkt het prima, maar voor mijn eigen bestand namelijk niet.
Ik heb het userform een beetje aangepast aan wat zoal moet worden ingevuld.

In mijn eigen bestand :
De optionbutton is aan Kolom D gekoppeld,
textbox 1 aan Kolom E
textbox 2 aan Kolom G
textboxen 3,... aan andere koloms
Maar combobox2 is aan Kolom B gekoppeld.

Met jou formule krijg is gegevens die in textbox1 moeten komen staan in textbox 3 te staan en textbox 2 in textbox 5 ofzo.
Is er een simpele formule waarbij ik de gegevens uit de juiste kolom in de juiste textbox kan krijgen.

Ik heb dit ook gevonden :


Private Sub ComboBox1_Change()

Set klnr = Worksheets("KLantenbestand").Range("E:E").Find(Me.ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
If Sheets("Klantenbestand").Range("D" & klnr.Row).Value = "Dhr." Then Me.OptionButton1.Value = True
If Sheets("Klantenbestand").Range("D" & klnr.Row).Value = "Mevr." Then Me.OptionButton2.Value = True
Me.TextBox1.Value = Sheets("Klantenbestand").Range("F" & klnr.Row)
Me.TextBox2.Value = Sheets("Klantenbestand").Range("G" & klnr.Row)
Me.TextBox3.Value = Sheets("Klantenbestand").Range("H" & klnr.Row)
Me.TextBox4.Value = Sheets("Klantenbestand").Range("I" & klnr.Row)
Me.ComboBox2.Value = Sheets("Klantenbestand").Range("J" & klnr.Row)
Me.TextBox5.Value = Sheets("Klantenbestand").Range("L" & klnr.Row)
End Sub

Ik heb dit al vaak geprobreerd en veranderd maar kom er niet aan uit.
Maar het rode geeft ook steeds een fout aan.

Kan je mij hier mee verder helpen ?

Mvg Brach

 

[HSV]

Jammer dat het echte bestand er altijd weer net iets anders uitziet dan het voorbeeldbestand.
Helaas ben ik niet helderziend, anders keek ik zo even over je schouders mee.

Je stelt een vraag op het forum, en ondertussen zit je te knoeien met andere gevonden codes (wat de meeste vraagstellers hier met je doen).
Vergeet die gevonden code, daar kun je je niet mee bezig houden als het nu al fout gaat toch?

Als de gegevens in een verkeerde textbox komen zet je de textboxen op volgorde.
Textbox1 bovenaan, textbox2 daaronder, enz., net als in je voorbeeldbestand.

Een goede volgorde doet werken naar korte efficiënte codes.