VBA hängt sich auf beim Einfügen großer Datenmenge
03.11.2016 11:31:21
Pascal
vorab: Ich habe bereits viel Zeit darin investiert eine Lösung auf mein Problem irgendwo zu finden und bin leider gescheitert. Ich hoffe, dass mir hier jemand weiterhelfen kann! :)
Folgendes Problem:
Ich habe ein Makro geschrieben, bei welchem unter anderem eine große, sich monatlich verändernde Datenmenge zunächst gefiltert wird und die gefiliterten Daten anschließend in eine neue Registerkarte kopiert wird. Auf Basis dieser Daten soll sich eine Pivottabelle aktualisieren. Anschließend sollen die Filter der Rohdatenbank nach neuen Kriterien gesetzt werden und der Prozess für eine zweite Tivottabelle wiederholt werden.
Das Makro hierzu sieht wie folgt aus. Ich habe das Makro teilweise "aufgenommen" und den Code dann händisch abgeändert - das ist mein erstes Makro überhaupt und ich lerne Programmieren gerade erst also bitte kein Hate :D
Sub Aktualisieren_PM()
' Aktualisieren_PM Makro
Sheets("Aktueller RS3-Report").Select
Cells.Select
Range("G1").Activate
Range("A1:N10732").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("P3:R6"), Unique:=False
ActiveWindow.SmallScroll Down:=-12
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Rohdaten Kst-Sicht").Select
Range("Tabelle14[[#Headers],[Project]]").Select
ActiveSheet.Paste
Range("O3").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.ClearContents
Range("O2").Select
Selection.AutoFill Destination:=Range("Tabelle14[PSP-Element]")
Range("Tabelle14[PSP-Element]").Select
Sheets("Kst-Sicht ED PM").Select
Range("F10").Select
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
Sheets("Aktueller RS3-Report").Select
Range("B4123").Select
ActiveSheet.ShowAllData
Columns("A:A").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$A$153288").AutoFilter Field:=1, Criteria1:= _
"=*ed_01*", Operator:=xlAnd
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Rohdaten Service-Sicht").Select
Range("Tabelle2[[#Headers],[Subtask]]").Select
Range("Tabelle2[[#Headers],[Project]]").Select
ActiveSheet.Paste
Range("O3").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.ClearContents
Range("O2").Select
Selection.AutoFill Destination:=Range("Tabelle2[PSP-Element]")
Range("Tabelle2[PSP-Element]").Select
Sheets("Service-Sicht ED PM").Select
Range("D12").Select
ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh
Sheets("Aktueller RS3-Report").Select
ActiveSheet.ShowAllData
Range("H9").Select
Rows("1:1").Select
Selection.AutoFilter
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Sheets("Kst-Sicht ED PM").Select
Columns("B:D").Select
Selection.EntireColumn.Hidden = True
Range("H23").Select
End Sub
Die Fehlermeldung:
"Laufzeitfehler '-2147417848 (80010108)':
Die Methode 'Paste' für das Objekt '_Worksheet' ist fehlgeschlagen
Der Fehler wird mir in der Zeile ActiveSheet.Paste angezeigt (fett markiert). Ich habe bereits andere Möglichkeiten ausprobiert wie die Zelle A1 auswählen und dann mit ActiveCell.PasteSpecial einfügen aber das hat alles nicht funktioniert.
Weiterer Hinweis:
Wenn ich die Exceldatei schließen möchte, wird mir außerdem die Fehlermeldung angezeigt:
Das Bild ist zu groß und wird abgeschnitten
Angeblich könnte die Ursache für das Problem also darin liegen, dass irgend ein Programm auf meinen Zwischenspeicher zugreifen möchte oder ähnliches, ich habe allerdings keine Ahnung welches das sein könnte..
Ich danke euch schon im Voraus für eure Hilfe!!
Viele Grüße,
Pascal