via combobox gegevens in textbox plaatsen

[riviera1974]

Hallo allemaal,

IK ben al een tijdje bezig maar kom er niet uit. Ik hoop dat jullie me kunnen helpen.

ik heb een Userform gemaakt met de naam "solving". Hierin heb ik een ComboBox3 en TextBox4 en 5. In het excel bestand heb ik op blad2 (kolom C) aantal cellen met namen "code001" genoemd. Deze namen kan ik in de ComboBox3 selecteren doordat ik in Rowselect code001 heb geplaatst.

Nu zou ik graag na het selecteren van een naam in combobox3, een tekst van Blad2 kolom F en G (in de zelfde rij) in TextBox 4 en 5 krijgen.

Wat doe ik fout in deze Code?

Private Sub solving_Initialize()
Dim oC As Range, EndRow As Long, r As Long
EndRow = ThisWorkbook("Blad2").Cells(Rows.Count, 1).End(xlUp).Row
Set oC = ThisWorkbook("Blad2").Cells
For r = 1 To EndRow
    If oC(r, 1).Value <> "" Then
        ComboBox3.AddItem oC(r, 1).Value
    End If
Next
End Sub

Private Sub solving_Change()
Dim oRng As Range
Set oRng = ThisWorkbook("Blad2").Cells.Find(what:=ComboBox3.Value, lookat:=xlWhole)
TextBox4.Value = oRng.Offset(0, 1).Value
TextBox5.Value = oRng.Offset(0, 2).Value
End Sub

Alvast bedankt voor uw reactie.

 

[wampier]

Misschien kijk ik een beetje scheel, maar als je de combobox vult met kolom "A" en je zoekt vervolgens deze waarde terug dan is offset 1 en 2 toch kolom B en C?

Wat gaat er verkeerd?

 

[riviera1974]

Hallo Wampier,

Ik heb de code bij elkaar gesprokkeld en naar mijn eigen benamingen gezet. de offset1 en 2 heb ik al verschillende waardes gegeven zonder succes. ikzelf weet ook niet waar de fout zit.voor de rest werkt alles perfect

gr riviera

 

[wampier]

Moet de code niet in combobox_change ipv form_change? Mogelijk triggert het gewoon niet.

 

[riviera1974]

gelijk geprobeerd zonder succes. een offset 0,6 en 0,7 werkt ook niet.

 

[wampier]

Ik kan het niet verklaren. Zojuist even getest en bij mij werkt het prima:

Private Sub ComboBox1_Change()
    
    Set waar = Range("a:a").Find(ComboBox1.Value, , , xlWhole)
    MsgBox (waar.Offset(0, 1))
End Sub

Private Sub UserForm_Initialize()
    For Each cell In Range("a9:a13")
        ComboBox1.AddItem (cell.Value)
    Next cell
    
End Sub

 

[riviera1974]

Hoi Wampier,

super, Het werkt voor zover dat ik de melding in een Msgbox krijg. ik zou graag de melding in textbox4 krijgen. zou dit nog kunnen?
gr riviera

 

[wampier]

Je originele code is perfect correct:

textbox1.value = waar.offset(0,1).value

werkt prima bij mij wanneer ik een textbox toevoeg.

 

[riviera1974]

hallo Wampier

Geweldig,:thumb::thumb: het werkt. ik alles van je overgenomen copy pase. ik snap er niets van. Heb geen verschil kunnen ontdekken. ben al 16 uur bezig.


gr mark