Ich habe in einer Excel-Tabelle einen benannter Bereich "Waehrung". Dort stehen in den einzelnen Zellen unterschiedliche Währungskürzel.
Nun überprüfe ich die Existenz eines bestimmten Kürzels, als Bedingung, dass der folgende Code ausgeführt wird.
Wie muss ich untenstehende Routine anpassen, dass das Programm nicht anhält, wenn beispielsweise im Range der Wert "EUR" nicht zu finden ist?
Gruss, Peter
If Range("Waehrung").Find("EUR", LookIn:=xlValues, lookat:=xlWhole) = "EUR" Then
'mein Code
Else
Endif