Office: Wert in TextBox in einer Tabelle suchen

Hallo, danke für die tollen Infos! Bin seit heute neu und hab auch den Quellcode der Suche übernommen- funktioniert. Allerdings habe ich eine Combobox mit "Suchbegriffen" (Bei mir Raumtypen). Weiter sind diese öfters in der Spalte zu finden- nur die Werte in der ZEILE ändern sich. Vermutlich müsste man eine Schleife verwenden damit weiter gesucht wird. Die Ausgabe und Treffer erfolgt in diversen Textboxen...

Private Sub ComboBox_Raumtyp_Change()
Dim WkSh As Worksheet
Dim rZelle As Range

Set WkSh = ThisWorkbook.Worksheets("TGA Konfigurator")

If ComboBox_Raumtyp.Value "" Then
With WkSh.Columns(1)
Set rZelle = .Find(ComboBox_Raumtyp.Value, LookAt:=xlWhole, LookIn:=xlValues)
If Not rZelle Is Nothing Then
TextBox_Bauteil.Value = WkSh.Cells(rZelle.Row, 3).Value
TextBox_Etage.Value = WkSh.Cells(rZelle.Row, 4).Value
TextBox_Achse.Value = WkSh.Cells(rZelle.Row, 5).Value
TextBox_m2.Value = WkSh.Cells(rZelle.Row, 6).Value
TextBox_VG1_Name = WkSh.Cells(rZelle.Row, 11).Value
TextBox_VG1_BMK = WkSh.Cells(rZelle.Row, 7).Value
TextBox_VG1_RGB.BackColor = RGB(WkSh.Cells(rZelle.Row, 8).Value, WkSh.Cells(rZelle.Row, 9).Value, WkSh.Cells(rZelle.Row, 10).Value)


Else
MsgBox "Der gesuchte Begriff """ & ComboBox_Raumtyp.Value & _
""" wurde nicht gefunden.", _
48, " Hinweis für " & Application.UserName
ComboBox_Raumtyp.Value.SetFocus
End If
End With
Else
MsgBox "Sie müssen einen Suchbegriff eingeben - danke." & _
48, " Hinweis für " & Application.UserName
ComboBox_Raumtyp.Value.SetFocus
End If
End Sub

wer kann mir da bitte helfen ?...

Lieben Dank !!!!

 

Hallo Relli,

hast du dir schon mal überlegt, wie du die verschiedenen Funde anzeigen willst ?
In deinen TextBoxen überschreibt eine Schleife sämtliche vorherige Ergebnisse und du siehst immer nur den letzten Fund.

Vielleicht eine ListBox, die alle Daten anzeigt und du filterst einfach nach den Daten, die dich interessieren ?

Oder du nimmst einfach nur den AutoFilter in der Tabelle.

Aber ohne deine Datei zu kennen ... alles nur Theorie ...

Sabina