Find Fehler bei Zugriff auf andere Datei
04.06.2004 11:28:19
Mark
ich habe ein kleines Problem mit VBA und einer benutzerdefinierten Funktion.
Ich habe in Tabelle DB.XLS Auszüge aus einer Datenbank gespeichert. Auf diese möchte ich per benutzerdefinierter Funktion zugreifen.
Solange die Funktionsbeschreibung und die Daten in der selben Excel Tabelle sind, klappt alles,
wenn ich aber eine XLA-Datei mit der Funktion anlege und mit nachfolgendem Code auf meine DB.XLS zugreife erfolgt in der Zeile .FIND Zeile immer ein Absturz mit Fehlercode 438.
nachfolgend das Modul:
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
Weiss jemand Rat.
Gruss Mark