Untenstehende Funktion liefert mir ein String zurück. Manchmal werden jedoch die Zeichen ">" und ")" im der Formel nicht gefunden, dann möchte ich "--" zurück erhalten.
Das klappt jedoch mit der Zeile
If IsError(cwRef) Then cwRef = "--"
noch nicht.
Wie muss ich den Code anpassen, dass das funktioniert?
Danke und Gruss, Peter
Public Function cwRef(rngC As Range)
Dim Pos1 As Long, Pos2 As Long, PosDiff As Long
'Formel wird in Zelle angezeigt, wenn Eingabe =kformel(Bezug) erfolgt
cwRef = rngC(1).FormulaLocal
Pos1 = WorksheetFunction.Find(">", cwRef) + 1
Pos2 = WorksheetFunction.Find(")", cwRef) - 1
PosDiff = Pos2 - Pos1
cwRef = Mid(cwRef, Pos1, PosDiff)
'Debug.Print Pos1 & " " & Pos2
If IsError(cwRef) Then cwRef = "--"
End Function