Hallo Leute,
ich bräuchte eure Hilfe: Ich benutze die Find-Funktion um eine Zeile zu finden, in der sich der identische Text wie in einer anderen Zelle befindet. Diese Zelle wähle ich dann aus. Funktioniert soweit gut mit folgendem Code:
Sub AnalytikAktualisieren()
Dim reaktion As Range
Set reaktion = Range("B5:B1000").Find(what:=Range("AA1").Value, MatchCase:=True)
End Sub
Meine Frage ist nun: Wie kann ich nun eine Aktion ausführe, wenn eine solche Zelle nicht gefunden wurde? Ich möchte dann immer eine bestimmte, andere Zelle ausgewählt haben. Wird vermutlich mit der If-Verzweigung möglich sein, aber ich komme nicht drauf, wie ich das formulieren soll. Sinngemäß sollte es ungefähr lauten:
If reaktion gefunden, Then reaktion.Select, Else Range("A1").select
Kann mir jemand weiterhelfen, dies in einen Code zu überführen?
Beste Grüße,
Max
|