VBScript in Excel schreiben, was mach ich falsch?

Hi zusammen,

eigentlich ist es einfach, ich möchte ein Excel-File erstellen und dann mit Werten füllen.

Das funktioniert eigentlich ganz gut, bis ich in eine Zelle eine Formel (SVerweis) einfügen will.

hier mal ein Auszug aus dem Quelltext:

dim i,j,objXL,linecount,mystring

Set objXL = WScript.CreateObject("Excel.Application")
objXL.Visible = True
objXL.WorkBooks.Add
objXL.Cells(1, 1).Value = "PC-Name"
objXL.Cells(1, 2).Value = "App-Path"
objXL.Cells(1, 3).Value = "User"
objXL.Cells(1, 4).Value = "TelNr"
objXl.Cells(1, 5).Value = "Bemerkung"
objXL.Rows("1:1").Select
objXL.Selection.Font.Bold = True
linecount = 2
'warnschwellwert = 1
'For j=0 to ubound(myarr)

'mystring = =SVERWEIS($A2;'H:\My Documents\Dokumente\Excel\INVENTAR\[chlicket-20110801-mit_Typübersicht.xls]Tabelle1'!$B$2:$H$306;6)
mystring = "=SVERWEIS($A2;" & chr(34) & "H:\My Documents\Dokumente\Excel\INVENTAR\[chlicket-20110801-mit_Typübersicht.xls]:Tabelle1" & chr(34) & "!$B$2:$H$306;6)"
msgbox mystring 'das geht ja noch
objXL.Cells(linecount, 3).Formula = mystring

In der letzten genannten Zeile flippt er dann aus und erzählt mir was von "unbekannter Laufzeitfehler", Code 800A03EC, "Laufzeitfehler in Microsoft VBScript"

Evtl. ist ja einer von Euch fitter als ich und kann mir nen Hinweis geben, wo es denn hapert¿

Danke und

Gruß aus Oberfranken

otti

mystring = "=SVERWEIS($A2;'H:\My Documents\Dokumente\Excel\INVENTAR\[chlicket-20110801-mit_Typübersicht.xls]Tabelle1'!$B$2:$H$306;6)"  
MsgBox mystring
objXL.Cells(linecount, 3).FormulaLocal = mystring