VBA Suchfunktion
03.05.2020 18:48:48
Marquardt
ich habe diese Suchfunktion gefunden und auf meine Tabelle umgeschrieben. Jetzt werden nur Zahlen gesucht. Ich habe jetzt aber ein Buchstabe und dann Zahlen (A5021212245).
Kann das überhaupt umgestellt werden?
Private Sub test18_suchen()
ThisWorkbook.Activate
Dim varSuchbegriff As Variant
If IsNumeric(TextBox16.Value) Then varSuchbegriff = Val(TextBox16.Value) Else _
varSuchbegriff = TextBox16.Value
On Error Resume Next
TextBox18.Value = " " & WorksheetFunction.VLookup(varSuchbegriff, Worksheets("Sheet1"). _
Range("h2:k10000"), 4, False)
If Err.Number 0 Then TextBox18.Value = " Nichts gefunden"
On Error GoTo 0
End Sub
Vielen Dank.