find, findet Begriff nicht
06.03.2023 08:10:10
Claus
Der Begriff ist ein Straßenname mit Hausnummer dieser kann wie folgt aussehen:
Straße 12 , Straße 12a, An der Straße 124, Straße-an-der-Straße 12v
Der Code sieht wie folgt aus, im "Suchfeld" schreibe ich die Straße exakt so hin, aber er findet Sie nicht,
Am liebsten wäre es mir das ich nur die Anfangsbuchstaben hinschreibe, und dann mit find next weiter durch die suchergebnisse skippen kann,
dadurch das ich nichtmal die vollständige Suche hinbekommen habe ich nicht weiter gebaut.
Hat vielleicht jemand einen Tipp warum find nichts findet ? Für Tipps wäre ich Euch dankbar.
Public Sub SpringezuSuche()
Dim zAErrichter As Integer
zAErrichter = "1"
Dim zMailanTobi As Integer
zMailanTobi = "2"
Dim Suchfeld As Integer
Suchfeld = "3"
Dim Horst As String
Dim Horst2 As Range
Horst = Cells(8, Suchfeld).Text
Horst = Horst & "****"
Debug.Print Horst
''Horst2 = Application.WorksheetFunction.VLookup(Horst, Sheets("Tabelle1").Range("C13:C5000"), 1)
On Error Resume Next
Set Horst2 = Range("C13:C3000").Find(Horst)
Debug.Print Horst2
Horst2.Select
Exit Sub
End Sub