Thema: Wert finden | Herbers Excel-Forum

Hallo Excelprofis;
in Zelle A1 steht der Text: "an der Cstraße links abbiegen und an der Fstraße halten"; in Spalte B2 stehen nun in den einzelnen Zellen die Werte "Astraße","Bstraße","Cstraße" u.s.w bis z.Bspl "Zstraße"
nun die Frage: wie bekomme ich heraus ob der Wert "Cstraße" im Text von Zelle A1 in der Liste in Spalte B2 steht und in welcher Zelle; geht sowas überhaupt mit vba?

Hallo detlef,
versuch es so:
Option Explicit

Public Sub Suchen()
Dim lZeile  As Long
With ThisWorkbook.Worksheets("Tabelle1")
For lZeile = 2 To .Cells(Rows.Count, 2).End(xlUp).Row
If InStr(.Range("A1").Value, .Range("B" & lZeile).Value) > 0 Then
MsgBox "Der Begriff  """ & .Range("B" & lZeile).Value & """  aus Zeile " & _
lZeile & " wurde gefunden.", _
64, "   Information für " & Application.UserName
End If
Next lZeile
End With
End Sub

Gruß Peter

Vielen Dank
das funktioniert bestens; muß jetzt mal sehen wie das Zeitverhalten ist (habe ca 5000 Prüfzellen zu ca 6000 Prüfwerten) mal sehen wie lange das dauert bis alle abgefragt sind; hab da mal was von Array gehört hab aber keine Ahnung wie man damit arbeitet und ob man damit mein Problem lösen könnte;
Trotzdem noch mal vielen Dank

...dabei 1-2x WorksheetFunction.Transpose einsetzen reicht idR, Detlef.
Dann noch For Each mit Variant-Aufruf-Variable anwenden — das wär's dann...!
Gruß+schöWE, Luc :-?