Find-Methode in Function, geht soetwas?
Uwe
In einer Funktion, die als Benutzerfunktion in as Zellenformel aufgerufen werden soll, möchte ich eines als Range-Objekt übergebenen Bereich eine bestimmte Zeilenummer mit der Find-Methode ermitteln.
Der Aufruf als Zellenformel in der Zelle B1 in der Tabelle1:
=Test(A1; Tabelle2!$A$1:$G$20)
führt in die Routine:
Function Test(rng As Range, PS As Range) As Double
Dim rng1 As Range, suche as sting
suche = ....
Set rng1 = PS.Columns(2).Find(suche)
End Function
Hier jedoch verweist die Variable rng1 immer ins Nichts ( rng1 = Nothing ), obwohl PS im Überwachungsfenster einen gültigen Eintrag zeigt.Über einen Sub-Aufruf kann die betrefende rng1-Zelle problemlos angesprochen werden.
Wieso funktioniert eine Range-Methode ( hier z.B. Find() ) nicht in einem "Function"-Aufruf?
Erklärungen, die dieses Verhalten Begründen oder mir meinen Fehler aufzeigen, würden mein Verständnis zu diesem Punkt erweitern.
Gruß!