Sub kopieren()
Dim I As Integer
I = ActiveSheet.UsedRange.Rows.Count
Range(“A3:F” & I).Copy
End Sub
Jetzt öffne ich eine andere Excel-Datei und möchte den zuvor kopierten Tabellenbereich in diese Datei mit folgendem Makro einfügen (in die nächste leere Zeile; Tabelle ist fortlaufend!):
Sub einfuegen()
Dim y%
y = Cells(Rows.Count, 1).End(xlUp).Row
Range(“A” & y + 1).Select
ActiveSheet.Paste
End Sub
Irgend etwas muss bei dem “einfuegen-makro” nicht stimmen. Wenn ich dieses Makro starte, wird immer folgender Fehler angezeigt:
„Laufzeitfehler ‚1004’: Die Paste-Methode des Worksheet-Objektes konnte nicht ausgeführt werden.“
Die erste freie Zelle in Spalte A wird zwar selektiert, nur das Einfügen funktioniert nicht.
Bin für jeden Tipp dankbar!!!!! EILT!!!!!
Vielen Dank für Eure Bemühungen im Voraus!
Gruß,
Goofe