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
Sorry Leute,
habe das Problem selber gelöst. Fehler im Dateinamen eines Feldes.