Zirkelbezug bei selbst def. Suchfunktion
14.05.2003 10:20:11
Richard M.
ich versuche schon den ganzen Morgen eine eigene Suchfunktion zu stricken, bekomme aber immer Zirkelbezüge, leider weiss ich nicht woher.
Ich möchte im Sheet "database" in eine Zelle einen Wert eintragen, der irgendwo im Sheet "rio" hinter einem Schlüsselwort steht. Dazu habe ich eine eigene Funktion geschrieben, die leider nicht funktioniert. Geht man beim Debuggen in Einzelschritten durch, so sieht man, dass die aktive Zelle niemals wechselt. Ich suche quasi nur in der Zelle, in der die Suchfunktion aufgerufen wird, mit der Folge, dass sie sich wieder aufruft (eigentlich ein rekursiver Aufruf).
Wie könnte man das Problem lösen?
Hier der Code und danke im voraus. Richard
Function Search_Zminmax(dummy As String) As Double
Search_Zminmax = 999999
Worksheets("Rio").Range("a1:d2000").Find(dummy, LookIn:=xlValues).Activate
Search_Zminmax = Range(ActiveCell.Column, ActiveCell.Row + 1).Value
Sheets("Database").Select
End Function