Hallo zusammen,
es gibt folgendes Problem mit meinem Excel-Makro:
Ich habe eine Hauptdatei mit 12 Spalten, die Anhand des Datums (Spalte 11) und einer ID (Spalte 12) gefiltert wird. Diese gefilterten Zeilen sollen in eine Output-Datei kopiert und abgespeichert werden.
Hierzu habe ich folgenden Ausschnitt des Codes:
Windows("Hauptdatei.xlsx").Activate
Sheets("Basis").Select
ActiveSheet.Range("$A$1:$AZ$80000").AutoFilter Field:=11, Criteria1:= _
"=" & Date, Operator:=xlAnd
ActiveSheet.Range("$A$1:$AZ$80000").AutoFilter Field:=12, Criteria1:=werkID
Range("A2:J80000").Select
Selection.Copy
Workbooks.Open Filename:= _
"ABC:\Output.xls"
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("2:2000").Select
Rows("2:2000").EntireRow.AutoFit
Range("A2").Select
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _ "..."
Führe ich den Befehl aus, so erhalte ich beim Selection.PasteSpecial - Befehl die Fehlermeldung, dass der zu kopierende Bereich mit dem Einfügebereich nicht übereinstimmt. Dies wundert mich sehr, da die Selektion zumindest wunderbar funktioniert.
Für jegliche Hilfe wäre ich sehr dankbar.
MfG
|