vlookup ComboBox Eingang TextBox zu aktualisieren Werte

Question

Mein Problem einmal ein Land aus einer Dropdown-Liste (ComboBox) In meiner Userform entschieden hat, meine Textfelder zeigen keine Ausgabe. Nichts passiert. Die Textfelder sollen einen VLookUp auf jeden Wert ausführen, der in der ComboBox ausgewählt ist. Die ComboBox (Name) ist "Land".

-Code für eines der Textfelder:

Private Sub TextBox2_Change() 
Dim myRange As Range 
Set myRange = Worksheets("All Countries Validation").Range("A:R") 
TextBox2.Value = Application.WorksheetFunction.VLookup(Country.Value, myRange, 2, False) 

Answer 1

Sie Country_Change() Ereignishandler statt TextBox2_Change() ein

Option Explicit 

Private Sub Country_Change() 
    Dim myRange As Range, f As Range 

    Set myRange = Worksheets("All Countries Validation").Range("A:A") 

    Set f = myRange.Find(What:=Country.Value, LookIn:=xlValues, Lookat:=xlWhole, MatchCase:=False) '<--| try and find combobox selected value 
    If f Is Nothing Then '<--| if not found ... 
     TextBox2.Value = "" '<--| ... then clear textbox 
    Else'<--| ... otherwise... 
     TextBox2.Value = f.Offset(, 1) '<--| ... fill it with proper value 
    End If 
End Sub