Ich möchte dass er meine Arbeitsmappe nach diesen meinWert = "wasser", "blume" ,"hund" , "katze" oder "Hans" Durchsucht. Es müssen nicht alle vorhanden sein reicht wenn einer dieser Werte vorhanden ist.
Sub testABc()
Dim X As Range
Dim meinWert As String
With Sheets("Daten")
meinWert = "wasser"
meinWert = "blume"
meinWert = "hund"
meinWert = "katze"
meinWert = "Hans"
Set X = .Range("E2:E2230").Find(meinWert, LookIn:=xlValues, LookAt:=xlWhole)
If Not X Is Nothing Then
Call ALFA1
Else
MsgBox "Falsches Makro ist nicht Revok!"
End If
End With
End Sub