Rückgabewert aus Funktion
23.09.2014 10:48:06
yummi
ich steh gerade auf dem SChlauch. Ich habe mir folgende Funktion geschrieben:
Function myfind(ByVal wks As Worksheet, ByVal strRange As String, ByVal strWert As String) As _
Range
Dim rng As Range
Set rng = wks.Range(strRange).Find(strWert)
myfind = rng
End Function
und würde gern die Zelle oder halt den Range in der der Wert gefunden wurde an die aufrufende Stelle zurück geben.
So bekomme ich immer den Fehler, dass der with block nicht festgelegt ist.
Könnt ihr mir bitte eien Tipp geben, was ich falsch mache
Danke
yummi