Aus Formular Daten an Excel senden bringt Fehler

[dierk1804]

Hallo zusammen,
ich benötige schon wieder Hilfe. Diesmal kommt bei meinem Exportversuch nach Excel eine Fehlermeldung:
"... Außerhalb einer Prozedur ungültig."
Der Code:
Dim wbook1 As New Excel.Application
Dim varKW As Integer
Dim varMerkmal As String
Dim VarArtikel As String
Dim VarSumme As Integer

varKW = Me.KW
varMerkmal = Me.Merkmal
VarArtikel = Me.Artikel_Nr
Var Stueck = Me.Summe

wbook1.Workbooks.Open ("C:\BTE\FB-32-03 PDCA Vorlage.xlsx")
wbook1.Visible = True

wbook1.ActiveWorkbook.ActiveSheet.Cells(f, 14) = varKW
wbook1.ActiveWorkbook.ActiveSheet.Cells(B, 7) = varMerkmal
wbook1.ActiveWorkbook.ActiveSheet.Cells(B, 4) = varArtikel_Nr
wbook1.ActiveWorkbook.ActiveSheet.Cells(f, 15) = VarSumme

Was mache ich falsch??

Gruß, Dierk

[dierk1804]

Sorry Leute,

habe das Problem selber gelöst. Fehler im Dateinamen eines Feldes.