nach vielen Eigenversuchen bitte ich um Eure Hilfe, da ich nicht weiter komme.
Ich habe mit "Makro aufzeichnen" mir ein Modul erstellt, welches mir hilft ausgewählte Daten von einer Datei in eine andere zu schreiben. Bevor jedoch geschrieben wird sollte das Tabellenblatt "daten" in Datei drehen.xls geleert werden. Das passiert auch, jedoch beim ActiveSheet.Paste Befehl geht es nicht weiter. Hier kommt der Fehler die Paste-Methode konnte nicht asugeführt werden.
wenn ich die Zeile "Range("A1:AH3333").ClearContents" entferne gibt es keine Fehler, jedoch wird auch nicht gelöscht. Wie kann ich das Problem lösen?
Hier mein Anfänger VBA-Code
Sheets("Arbeitsgänge").Select
Selection.AutoFilter Field:=7, Criteria1:="=450"
Cells.Copy
Workbooks.Open Filename:="\\B1\Fertigungsinseln\drehen.xls"
Sheets("Daten").Select
' Cells.Select
' Selection.ClearContents
' Workbooks("drehen").Worksheets("daten").Range("A1:AH3333").ClearContents
Range("A1:AH3333").ClearContents
Range("A1").Select
ActiveSheet.Paste
Cells.EntireColumn.AutoFit
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
Ich bitte euch um Eure Unterstützung, da ich nicht mehr weiter komme.
Besten Dank für Eure Hilfe
Mit freundlichem Gruß
Hermann