Falsche Berechnung!!!

Ich habe eine Funktion eingebunden und verwende diese in einer Formel. Funktioniert erstmal recht gut. Die Funktion steht unten.

Beim neuerlichen öffnen des Sheets werden falsche Werte ausgegeben! Erst wenn ich die Formel neu berechne (neu kopiere) erhalte ich die richtigen Werte.

Wo liegt denn da das Problem??

Function vorhergehende_kleinere_Zeile(x As Range) As Long
Dim z, s As Long
Dim i As Long
z = x.Row
s = x.Column
vorhergehende_kleinere_Zeile = z
For i = z To 1 Step -1
If Cells(i, s) = x.Value - 1 Then
vorhergehende_kleinere_Zeile = i
Exit Function
End If
Next
End Function

Bitte um Hilfe
Danke, Karl