SVerweis/übereinstimmende Werte
Rüdiger
ich habe ein Formular mit Steuerelementen: einer Combobox ("Combobox1"), einem Button ("CommandButton1") und einem Label ("lbl_1").
Außerdem gibt es eine Tabelle ("1999").
Wie bei einem SVerweis soll nun per Knopfdruck (auf "CommandButton1") Spalte A Zeile für Zeile durchlaufen werden. Sobald der Inhalt einer Zelle mit dem Wert in der Combobox übereinstimmt, soll der Wert aus Spalte B dieser Zeile in das Label übertragen werden.
Ich habe schon mal mehr schlecht als recht etwas zusammengewürfelt. Funktioniert aber leider nicht:
Private Sub CommandButton1_Click()
Dim last As Integer
last = Worksheets("1999").Cells(65000, 1).End(xlUp).Row
For i = last To 1 Step -1
If Worksheets("1999").Cells(i, 1).Value = ComboBox2.Value Then
lbl_1.Caption = Worksheets("1999").Cells(i, 2).Value
End If
Next
End Sub
Kann jemand helfen?
Danke
Anzeige