.Find aus Direktfenster klappt, aus Formel NICHT
04.06.2004 14:38:05
Mark
habe ein kleines Problem mit Excel-VBA.
Ich hab eine benutzerdefinierte Funktion in einem Addin, die per find aus einer zentralen Arbeitsmappe einen Wert nachschlagen soll (diese ist geladen und versteckt).
Aus dem Direktfenster klappt der Aufruf und es kommt ein richtiges Ergebnis.
Der Aufruf aus einer Formel geht schief, es erscheint immer #WERT!
Wenn ich dann Debugge, erhalte ich an der Stelle mit dem Aufruf .find einen Fehler 91 Objektvariable oder with-Blockvariable nicht festgelegt.
Anbei der Quellcode:
Function GetName1( ArtNr As String) As Variant
Dim DB1 As Excel.Workbook
Stop
Set DB1 = Excel.Workbooks.Open("Macintosh HD:Users:mark:DB.xls")
If WorksheetFunction.CountIf(DB1.Sheets("Artikel").Range("Liste"), ArtNr) = 0 Then
GetName1 = ""
Else
GetName1 = DB1.Sheets("Artikel").Range("Liste").Find(ArtNr).Offset(0, 2)
End If
DB1.Close
End Function
Kann jemand mir einen Tip geben?
Mark