Waarde voor textbox zoeken adh waarde in combobox

[rg027]

Beste kenners,

Voor het vullen van een combobox met unieke waarden heb ik volgende code gevonden.

Private Sub UserForm_Activate()
Dim i, j As Integer
Dim searchfor As String
Dim searchin As String
i = 2: j = 1
searchfor = cbofaktuurnr1.Value
Do Until Sheets("klantgegevens").Cells(i, 1).Value = Empty
    cbofaktuurnr1.AddItem Sheets("klantgegevens").Cells(i, 3).Value
    i = i + 1
    Loop
    For i = cbofaktuurnr1.ListCount - 1 To 1 Step -1
    If cbofaktuurnr1.List(i) = cbofaktuurnr1.List(i - 1) Then cbofaktuurnr1.RemoveItem (i)
Next
    
End Sub

Graag zou ik nu een textbox willen vullen met de waarde die bij de combobox hoort. Deze bijhorende waarde bevind zich in kolom A terwijl de waarde van de combobox zich in kolom C bevind.De bijhorende waarde van kolom A zou dus in de textbox moeten komen.
Welke brave ziel kan me hierbij helpen?
Alvast grote dank

 

[HSV]

Lukt het hiermee rg027 ?
Ik denk dat ik wel een brave ziel heb.

Private Sub cbofaktuurnr1_Change()
   With Worksheets("klantgegevens").Range("C2:C100")
      Dim c
     c = .Find((cbofaktuurnr1.Value), LookIn:=xlValues).Offset(, -2)
   TextBox1.Text = c
 End With
End Sub

 

[Warme bakkertje]

Je moet hem niet noodzakelijk eerst in een variabele steken

Private Sub cbofaktuurnr1_Change()
On Error Resume Next
    With [klantgegevens!C2:C100]
        TextBox1.Text = .Find((cbofaktuurnr1.Value), LookIn:=xlValues).Offset(, -2).Value
    End With
End Sub

 

[HSV]

Je moet hem niet noodzakelijk eerst in een variabele steken

Private Sub cbofaktuurnr1_Change()
On Error Resume Next
    With [klantgegevens!C2:C100]
        TextBox1.Text = .Find((cbofaktuurnr1.Value), LookIn:=xlValues).Offset(, -2).Value
    End With
End Sub

Ach zo
Aldoende leert men Rudi.
Ik vond het al knap van me dat het werkte.
Bedankt.

 

[rg027]

hsv en warm bakkertje ,

dank voor jullie hulp. Het is idd dit wat ik zocht. :thumb:
Hartelijke dank daarvoor

 

[snb]

Een combobox vul je met 1 VBA-coderegel

cbofaktuur1.list.list=Sheets("klantgegevens").usedrange.columns(1)

of
cbofaktuur1.list= Sheets("klantgegevens").columns(1).specialcells(2).value

of
cbofaktuur1.list= sheets("klantgegevens").cells(1,1).resize(Sheets("klantgegevens").cells(rows.count,1).end(xlup).row)

of 
cbofaktuur1.listfillrange=Sheets("klantgegevens").usedrange.columns(1).Address

of in een combobox van een Userform
cbofaktuur1.Rowsource=Sheets("klantgegevens").usedrange.columns(1).Address

Niet met

Private Sub UserForm_Activate()
  Dim i, j As Integer
  Dim searchfor As String
  Dim searchin As String
  i = 2: j = 1
  searchfor = cbofaktuurnr1.Value 
  Do Until Sheets("klantgegevens").Cells(i, 1).Value = Empty
    cbofaktuurnr1.AddItem Sheets("klantgegevens").Cells(i, 3).Value
    i = i + 1
    Loop
    For i = cbofaktuurnr1.ListCount - 1 To 1 Step -1
    If cbofaktuurnr1.List(i) = cbofaktuurnr1.List(i - 1) Then cbofaktuurnr1.RemoveItem (i)
  Next
End Sub

 

[rg027]

hoi snb,

de code die ik gebruik is een soort filter die enkel maar unieke waarden weergeeft in de combobox daar ik in de lijst waarden heb staan die meer dan 1 keer voorkomen. Tenzij er een betere code bestaat natuurlijk

 

[snb]

Zet de unieke waarden van kolom A in kolom AA

usedrange.columns(1).advancedfilter xlfiltercopy,,cells(1,27),True

zet de unieke waarden uit kolom AA in de combobox

cbofaktuur1.list=columns(27).specialcells(2).value

 

[rg027]

toch nog een vraagje.
Wat als er meerdere gegevens in kolom A staan die bij de waarde van de combobox horen? Hoe krijg ik die allemaal samen in de textbox?

 

[snb]

Ik begrijp je vraag niet.

 

[HSV]

toch nog een vraagje.
Wat als er meerdere gegevens in kolom A staan die bij de waarde van de combobox horen? Hoe krijg ik die allemaal samen in de textbox?

Volgens mij bedoeld rg027 het volgens bijlage.

Ik kwam deze code v/d week tegen, en heb het wat ingekort.
Kreeg het niet werkend met een textbox, wel met een listbox.

 

[rg027]

Dat was het ook Had al wat gezocht op het internet vond daar ook geen antwoord ,daarom overgeschakeld naar een listbox