Hallo nochmal.
Ich habe nun eine, wahrscheinlich nicht die Beste, Lösung gefunden. So muss ich halt für jeden neuen Wert den selben Code nach unten kopieren und etwas anpassen. Kennt jemand eine elegantere Lösung?
Sub Suchen2()
Dim Fund3 As Range, Fund4 As Range
Set Fund3 = Cells.Find(What:="123", After:=Cells(1), LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False)
Fund3.Offset(0, 10) = "Aufgabe ist erledigt."
Set Fund3 = Cells.Find(What:="345", After:=Cells(1), LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False)
Fund3.Offset(0, 10) = "Aufgabe ist erledigt"
End Sub
|