Clever-Excel-Forum

Normale Version: Suche in Bereich und gebe Wert aus danebenliegende Spalte aus
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
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! :)
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
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
Danke an euch beiden.
Ich habe Elex Lösungsweg probiert und es hat auf anhieb funktioniert! Danke schön.