Suche in Bereich und gebe Wert aus danebenliegende Spalte aus

[tyr0n]

Hallo Community,

ich habe aktuell einen Knoten im Kopf. Ich habe eine Userform mit einer Combobox1.
Nun möchte ich in einer Tabelle in der Range A14:A22 nach dem Value aus der Combobox1 suchen und den Wert aus der Spalte C der selben Reihe in einer Variable speichern.
Leider bekomme ich es nicht hin :(

Der SVerweis dazu sieht wie folgt aus: SVERWEIS(G4;DatenStahlbau!A14:D22;3;)
G4 ist in dem Fall der Value aus der Combobox1.

Kann mir jemand unter die Arme greifen?

Besten Dank! :)

[Elex]

Hallo

reicht Dir das.

Code:

Private Sub ComboBox1_Change()
Dim m, str As String
str = "=VLOOKUP(""" & ComboBox1.Value & """,Tabelle1!A14:D22,3,0)"
m = Evaluate(str)
MsgBox m
End Sub

Gruß Elex

[Crazy Tom]

Hallo

ein Vorschlag

Code:

Option Explicit

Private Sub CommandButton1_Click()
    Dim c As Range
    With Sheets("DatenStahlbau")
        Set c = .Range("A14:A22").Find(ComboBox1.Text, LookIn:=xlValues, lookat:=xlWhole)
        If Not c Is Nothing Then
            TextBox1.Value = .Cells(c.Row, "C").Value
        End If
    End With
End Sub

mfg Tom

[tyr0n]

Danke an euch beiden.
Ich habe Elex Lösungsweg probiert und es hat auf anhieb funktioniert! Danke schön.