VBA Suchfunktion, Treffer auch bei Formel-Werten
21.08.2018 09:53:44
Chris94
für das Füllen einer TextBox verwende ich nachfolgenden Code, welcher auch funktioniert.
Ich habe nur ein Problem:
Der Code funktioniert nur, wenn meine Tabelle "Daten" aus manuellen Eingaben bzw. NICHT "formelerzeugten" Werten besteht.
Welche Anpassung ist erforderlich, dass diese Suchfunktion mir auch ein Ergebnis liefert, wenn im Suchbereich Formeln hinter jedem Wert stecken?
Private Sub TextBox_A_Change()
Dim Treffer As Range
Set Treffer = Sheets("Daten").Columns(1).Find(what:=TextBox_A.Text, lookat:=xlWhole)
If TextBox_A.Text "" Then
TextBox_B.Text = Sheets("Daten").Cells(Treffer.Row, 3).Value
End If
End Sub
Gruß,
Chris
Anzeige