Formatierungen löschen
25.01.2010 11:09:58
Space
Hallo,
ich will etwas ohne die Formatierungen in der anderen Tabelle kopieren. Hier mein Code:
Sub ()
Dim wks As Worksheet
'Excel Datei Kontaktdaten.xls öffnen
Set wks = Workbooks.Open(Filename:= _
"H:\-Pfad-\Datei.xls").Sheets("Sheet1")
'Benötigte Zellen kopieren und im Tabellenblatt "Kontakte" einfügen
'Kopieren aus Kundendaten
With wks
.Range(.Cells(2, 1), .Cells(2, 1).End(xlDown)).Resize(, 22).Copy
Workbooks("Data Generator.xls").Sheets("Kundenkontakte").Range("A18").PasteSpecial _
Paste:=xlValues, _Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
End Sub
Es kommt jedoch in der fett markierten Zeile immer der Fehler:Fehler beim kompilieren - Syntaxfehler
Die Blattnamen, Dateinamen sind korrekt! Kann mir jemand weiter helfen?
Danke!
Gruß
Space