Zellen aus Dokument kopieren COMPILE ERROR

Sub DatenExtrahieren()

Dim wbQuelle As Workbook, wksQuelle As Worksheet, ZeileQ

Dim wbZiel As Workbook, wksZiel As Worksheet, ZeileZ, ZelleZiel As Range

'Objekt in Arbeitsmappe mit den Datenbank Daten

Set wbQuelle = ActiveWorkbook

Set wksQuelle = wbQuelle.Worksheets(1) 'oder = ActiveSheet

'Neue Arbeitsmappe mit einem Tabellenblatt anlegen und Zielobjekte

Workbooks.Add Template:=xlWBATWorksheet

Set wbZiel = ActiveWorkbook

Set wksZiel = wbZiel.Worksheets(1)

'Spaltentitel in Zeile 1 des Zieltabellenblattes einfügen

With wksZiel

ZeileZ = 1

.Cells(ZeileZ, 1) = "Firma"

.Cells(ZeileZ, 2) = "Information1"

.Cells(ZeileZ, 3) = "Information2"

.Cells(ZeileZ, 4) = "Information3"

End With

With wksQuelle

'Zeilen in Quelltabelle abarbeiten

'Zeile 74 = 1. Datenzeile mit auszulesenden Daten

'67 = Anzahl Zeilen pro Datensatz

For ZeileQ = 74 To .Cells.SpecialCells(xlCellTypeLastCell).Row Step 67

ZeileZ = ZeileZ + 1 'nächste Einfügezeile im Zieltabellen Blatt

Set ZelleZiel = wksZiel.Zeile(ZeileZ, 1) 'Zelle in Spalte A der Zieltabelle

ZelleZiel.Value = .Cells(ZeileQ, 2).Text 'Wert aus Spalte B (2)

Set ZelleZiel = wksZiel.Zeile(ZeileZ, 2) 'Zelle in Spalte B der Zieltabelle

ZelleZiel.Value = .Cells(ZeileQ + 2, 2).Text 'Wert aus Spalte B (2), 2 Zeilen weiter  _

unten

Set ZelleZiel = wksZiel.Zeile(ZeileZ, 3) 'Zelle in Spalte C der Zieltabelle

ZelleZiel.Value = .Cells(ZeileQ + 5, 2).Text 'Wert aus Spalte B (2), 5 Zeilen weiter  _

unten

Set ZelleZiel = wksZiel.Zeile(ZeileZ, 4) 'Zelle in Spalte D der Zieltabelle

ZelleZiel.Value = .Cells(ZeileQ + 1, 14).Text 'Wert aus Spalte N (14), 1 Zeile weiter  _

unten

Next

End With

wksZiel.Columns.AutoFit

End Sub