Clever-Excel-Forum

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ß.

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

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

S05

gra100

Wastl