umgefähres Wort finden

[S05]

Hallo zusammen,

ich bin bei einer Abfrage auf ein weiters Problem gestoßen.

Ich suche in Spalte D von Zelle 4 bis 500 nach bestimmten Werten und schreibe bei Übereinstimmung eine 1 in die gleiche Zeile jedoch anderer Spalte. 

Mein Problem ist das ich auch ungefähre Werte finden möchte....bekomme das aber nicht hin.

Hier mein aktueller Stand:

Code:

Dim i As Long
   For i = 3 To 500

   If Cells(i, 4) = "*" & "Variante" & "*" Then
   Cells(i, 8) = "1"
   ElseIf Cells(i, 4) = "*" & "Top" & "*" Then
   Cells(i, 5) = "1"
   ElseIf Cells(i, 4) = "*" & "warten auf" & "*" Then
   Cells(i, 6) = "1"

   End If
   Next i
End Sub

Wenn ich

Code:

"*" &
& "*"

raus nehme, funktioniert die Schleife richtig aber ich finde dann nur den exakten Wert.

Kann mir hier jemand kurz erklären wie ich das mit dem "Platzhalter" hinbekomme?
Danke und Gruß.

[gra100]

versuch das mal

Code:

Dim i As Long
  For i = 3 To 500
 
  If InStr(1, Cells(i, 4), "Variante") > 0 Then
  Cells(i, 8) = "1"
  ElseIf InStr(1, Cells(i, 4), "Top") > 0 Then
  Cells(i, 5) = "1"
  ElseIf InStr(1, Cells(i, 4), "warten auf") > 0 Then
  Cells(i, 6) = "1"

  End If
  Next i
End Sub

[Wastl]

Oder so:

Code:

Dim i As Long
  For i = 3 To 500

  If Cells(i, 4) Like("*" & "Variante" & "*") Then
  Cells(i, 8) = "1"
  ElseIf Cells(i, 4) Like("*" & "Top" & "*") Then
  Cells(i, 5) = "1"
  ElseIf Cells(i, 4) Like("*" & "warten auf" & "*") Then
  Cells(i, 6) = "1"

  End If
  Next i
End Sub