2017-07-27 9 views
1

Ich habe ein Benutzerformular mit 1 Combobox und 3 Textfelder. Ich möchte vlookup verwenden, um die Werte in den Texboxen basierend auf der Auswahl in der Combobox anzuzeigen. Das erste Textfeld funktioniert, aber danach gibt es Fehler. Bitte helfen. Hier ist mein Code:Excel VBA Benutzerformular mit vlookup

Private Sub ComboBox1_Change() 
    Description = Application.VLookup(ComboBox1.Value, Range("A1:B17"), 2, 0) 
    TextBox1.Value = Description 
    Platform = Application.VLookup(ComboBox1.Value, Range("A1:B17"), 3, 0) 
    TextBox2.alue = Platform 
End Sub 
+2

dieser Teil 'Application.VLookup (ComboBox1.Value, Range ("A1: B17"), 3, 0)' gibt einen Fehler zurück, da Sie die 3. zurückkehren möchten Spalte, wenn Sie den Bereich mit nur 2 Spalten definiert haben ('Range (" A1: B17 ")') –

+0

Sie haben auch Tippfehler: 'TextBox2.alue = Platform' - Sie haben 'V' in' Value' vermisst. –

+0

Bitte führen Sie eine grundlegende Fehlerprüfung durch, bevor Sie hier eine Frage stellen. Ihr Problem entsteht einfach, weil Sie Tippfehler in Ihrem Code haben. Abstimmung, um diese Frage als geringe Qualität zu schließen. – teylyn

Antwort

1

Wie in den Kommentaren erwähnt, wenn Sie auf 3. Spalte verweisen, sollten Sie mindestens 3 Spalten in Ihrem Bereich haben. Read more about VLookup here.

wie Try this:

Private Sub ComboBox1_Change() 

    Description = Application.VLookup(ComboBox1.value, Range("A1:C17"), 2, 0) 
    TextBox1.value = Description 
    Platform = Application.VLookup(ComboBox1.value, Range("A1:C17"), 3, 0) 
    TextBox2.value = Platform 

End Sub 
Verwandte Themen