Hallo zusammen,
Ich habe hier ein Programm mit folgendem Code:
Function Basisdaten(Spalte as Int) as String
Basisdaten = docBasisdatei.Range(
Start:=oBasisdatentabelle.Cell(zeile, Spalte).Range.Start, End:=oBasisdatentabelle.Cell(zeile, Spalte).Range.End - 1)
End Function
Mit folgendem Aufruf:
'Alle Variablen sind global definiert
Dim zeile as int
Dim docBasisdatei as Word.Document
Dim oBasisdatentabell as object
'außer diese
Dim Wert as String
Set docBasisdatei = Documents.Add("datei.dot")
Set oBasisdatentabelle = docBasisdatei.Tables(1)
Wert = Basisdaten(1)
Wenn ich den Code aus der Funktion direkt in der Sub ausführe funktioniert es. Wenn ich die Funktion aufrufe, gibt es einen Fehler wenn die eine Zeile ausgeführt werden soll: Error 91: Object variable or With block variable not set.
Die "datei.dot" wird auch in einem früheren Schritt als AddIn installiert.
Kann mir bitte jemand erklären, warum das nicht funktioniert!!!
Ich bin für jede Hilfe dankbar. Ich arbeite unter Word 2003. |