Fehler bei Copy-Methode

Hallo,
ich habe ein Makro, das ein Kollege von mir geschrieben hat, der aber schon seit Jahren nicht mehr im Unternehmen ist. Dieses Makro läuft in Excel XP super durch. In Excel 2010 läuft es aber immer an derselben Stelle auf einen Fehler.
Es kommt die Meldung "Laufzeitfehler '1004': Die Copy-Methode des Range-Objektes konnte nicht ausgeführt werden." Wenn ich dann auf "Debuggen" klicke, werden die beiden letzten Zeilen aus dem folgenden Makro-Auszug markiert.
...
Worksheets("PL KG").Activate
Cells.Select
Selection.ClearContents
Range("A1").Select
Worksheets("Formatierung_1").Range(Sheets("Formatierung_1").UsedRange.Address).Copy _
Destination:=Worksheets("PL KG").Range("A" & Cells(Rows.Count, 1).End(xlUp).Row)
Worksheets("Formatierung_2").Range(Sheets("Formatierung_2").UsedRange.Address).Copy _
Destination:=Worksheets("PL KG").Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1)
...
Bei meinen diversen Versuchen das Makro ans Laufen zu kriegen habe ich festgestellt, dass es funktioniert sobald ich als Ziel im Sheet "PL KG" die Zelle A1 mit Range oder Cells angebe. Das hilft mir aber leider nicht, da ja der Inhalt von zwei Tabellen zusammen in eine Tabelle soll.
Dazu passt auch, dass ich die beiden untersten Befehle umdrehen kann. Es wird immer der obere Befehl ausgeführt, der nächste Befehl bringt dann die Fehlermeldung.
Ich habe auch das "...Row +1)" mal durch "... Offset (1,0)" ersetzt, hat aber leider keine Veränderung gebracht.
Erfolglos war auch der Versuch die Befehle auseinander zu nehmen, also erst das Sheet aktivieren, dann die Zellen markieren und kopieren, Sheet "PL KG" aktivieren, unterste Zeile bestimmen und einfügen. Aber sobald ich dann einen Paste-Befehl für eine Zelle einsetze, die nicht A1 ist, bekomme ich wieder die Fehlermeldung.
Weiß da jemand Rat?
Vielen Dank im Voraus.
MfG
Ines

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

With Worksheets("PL KG") .Cells.ClearContents Worksheets("Formatierung_1").UsedRange.Copy _ .Cells(Rows.Count, 1).End(xlUp) Worksheets("Formatierung_2").UsedRange.Copy _ .Cells(Rows.Count, 1).End(xlUp).Offset (1) End With

With Worksheets("PL KG") .Cells.ClearContents Worksheets("Formatierung_1").UsedRange.Copy _ .Cells(.Rows.Count, 1).End(xlUp) Worksheets("Formatierung_2").UsedRange.Copy _ .Cells(.Rows.Count, 1).End(xlUp).Offset (1) End With

Worksheets("PL KG").Cells.ClearContents Worksheets("Formatierung_1").UsedRange.Copy _ Worksheets("PL KG").Cells(Rows.Count, 1).End(xlUp) Worksheets("Formatierung_2").UsedRange.Copy _ Worksheets("PL KG").Cells(Rows.Count, 1).End(xlUp).Offset(1)

Hallo Reinhard,
der Grund ist, dass es viele Tabellenblätter sind und viele Makros, die sich gegenseitig aufrufen. Ich habe alle möglichen Werte und für dieses Problem unnötigen Makros aus der Datei entfernt, sie aber nicht klein genug für den Upload bekommen. Deshalb wollte ich die Datei komplett neu erstellen. Leider bleibe ich wieder an der Copy-Methode hängen, diesmal aber in einer kleinen Datei, die ich hochladen kann. In der Datei sind zwei Makros: SpaltensortierungAnpassen und SpaltensortierungAnpassen1. SpaltensortierungAnpassen funktioniert, enthält aber viele Select-Befehle, die man ja eigentlich vermeiden sollte. Ich verstehe aber nicht warum SpaltensortierungAnpassen1 nicht funktioniert.
Wäre echt super, wenn Du da noch eine gute Idee für mich hättest.
Danke und Gruß
Ines
https://www.herber.de/bbs/user/79960.xlsm

Sub SpaltensortierungAnpassen1() 'Die Daten für die Kostenstellen aus dem SAP HR so ändern, dass sie für den Upload 'genutzt werden können Application.ScreenUpdating = False 'Inhalt von Tabellenblatt "KST" in Tabellenblatt "Arbeitsblatt_KST" kopieren Worksheets("KST").Copy Destination:=Worksheets("Arbeitsblatt_KST").Cells(1, 1) Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread