Find Methode
18.01.2007 14:48:11
Daniel
kann mir jemand verraten, warum die Find-Methode bei mir im Direkt-Fenster funktioniert, aber nicht, wenn ich die entsprechende VBA-Funktion in einer Zelle hinterlege?
Beispiel:
Public
Function fct_Finde(strFind)
Dim rngFind As Range
With Workbooks("Test.xls").Worksheets("Tabelle1")
Set rngFind = .Range("A1:A100").Find(strFind)
If Not rngFind Is Nothing Then
Debug.Print rngFind.Row
End If
End With
End Function
Mit dieser Funktion suche ich in der angegeben Range einen Wert. Wenn dieser Wert gefunden ist, wird die zugehörige Zeile ausgegeben. Wenn ich die Funktion in eine Zelle schreibe funktioniert es nicht, im Direkt-Fenster schon. Die Variable strFind wird ordnungsgemäß übergeben. Es gibt auch keine Fehlermeldung. Der gesuchte Wert wird einfach nicht mehr gefunden. In Excel 2003 tritt der Fehler bei mir nicht auf, nur in Excel XP. Warum? Vielen Dank für die Hilfe...
Gruß Daniel