Live-Forum - Die aktuellen Beiträge
Datum
Titel
09.10.2025 19:27:32
Ungewollter Zeilensprung beim Löschen einer Spalte
09.10.2025 17:12:32
Rechnen in Zeile nach Auswahl Dropdown
09.10.2025 16:26:10
Sortenreine LKWs Filtern
09.10.2025 13:43:40
Mittelwertwenn aus unterschiedlichen Tabellenblättern
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
660to664
660to664
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tab-Blatt kopieren und am Ende einfügen - Abbruch

Forumthread: Tab-Blatt kopieren und am Ende einfügen - Abbruch

Tab-Blatt kopieren und am Ende einfügen - Abbruch
31.08.2005 15:28:19
beckersbest
Hallo Experten,
langsam weiß ich einfach nicht mehr weiter. Ich habe ein Makro, welches ein bestimmtes Tabellenblatt je nach Auswahl mehrmals kopiert und am Ende einfügt. Soweit so gut, zumindest funktioniert es grundsätzlich problemlos.
Allerdings - und zwar nach genau 47 Mal - hängt sich die Wiederholungsschleife auf. Und ich weiß einfach nicht warum. Sollte ich also z.B. das Makro nur einmal für 50 zu kopierende und am Ende einzufügende Blätter aufrufen oder das Makro zwei Mal mit z.B. 25 und 28 Kopiervorgängen, jedes Mal kommt diese Fehlermeldung (nach in Summe 47 Durchläufen):
Laufzeitfehler '1004': Die Copy-Methode des Worksheet-Objektes konnte nicht ausgeführt werden.
Dabei sieht der relevante Teil des Makros wie folgt aus:
For x = 1 to auswahl
neues_Blatt = Worksheets.Count + 1
Sheets("Quellblatt").Copy after:=Worksheets(Worksheets.Count)
Sheets(neues_Blatt).Name = "Testblatt" & x
'Quelldatenblatt manipulieren ...
Next
Der Debugger verweist auf die Zeile mit ...Copy after:= ...
Woran kann das liegen? An der Quelldatenblatt-Manipulation ja schließlich nicht, da diese z.B. im ersten Durchlauf funktioniert (die Manipulation ist übrigens recht umfangreich). Auch ist es später nicht einmal mehr möglich, manuell per Blattauswahl - Rechtsklick und Kopieren... das Quelldatenblatt zu kopieren und am Ende einzufügen. Erst, wenn Excel komplett geschlossen und neu gestartet wird, funktioniert alles wieder bis zur besagten Stelle.
Mir erscheint hier ein Speicherüberlauf - in welcher Form auch immer - in Frage zu kommen. Kann das jemand bestätigen? Wenn ja, was ist zu tun?
Vielen Dank schon jetzt,
mit freundlichen Grüßen
Thorsten
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tab-Blatt kopieren und am Ende einfügen - Abbruch
31.08.2005 15:53:50
Manfred
Versuch doch mal folgenden Code
For i = 1 To 50
Sheets("Tabelle1").Select
Sheets("Tabelle1").Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = "Testblatt" & i
Next
gruß Manfred
AW: Tab-Blatt kopieren und am Ende einfügen - Abbr
31.08.2005 15:59:44
beckersbest
Hallo Manfred,
bringt leider keine Verbesserung :-(
Vielleicht noch weitere Vorschläge ?
Viele Grüße
Thorsten
Anzeige
AW: Tab-Blatt kopieren und am Ende einfügen - Abbr
31.08.2005 16:24:33
Manfred
Hallo Thorsten,
Der gegebene Code geht in jedem Fall mit leeren Tabellenblättern. Habe es bis 100 ausprobiert.
Bei gefüllten Blättern mit diversen Formaten ist es sicherlich sinnvoll nach jeder
Kopie die ganze Datei zu speichern.
Gruß Manfred
AW: Tab-Blatt kopieren und am Ende einfügen - Abbr
31.08.2005 16:28:54
beckersbest
Hallo Manfred,
bei dem angegebenen Code gebe ich Dir vollkommen Recht, da hab' ich's auch bis 100 probiert, kein Problem. Darum hab ich auch noch den Hinweis auf die umfangreichen Manipulationen gegeben, allerdings liegt es wohl eher am zu kopierenden Inhalt und weniger an den späteren Manipulationen.
Leider reicht einfaches Abspeichern nicht aus, die Datei muss schon geschlossen werden. Das macht es leider unmöglich, das Makro in der "Problem"-Datei zu hinterlegen ...
Viele Grüße
Thorsten
Anzeige
;

Forumthreads zu verwandten Themen

Verlinken auf Blatt mit UDF nicht möglich
Alexandra

Hallo an alle,
ich will heute gleich eine zweite Frage loswerden:
In einem Arbeitsblatt benutzt die Bedingte Formatierung 2 Konditionen mit der UDF HasFormula. Die UDF befindet sich in einem VB-Modul. Damit die UDF verwendet werden kann, muss die Option "Makros aktivieren" beim Öffnen...
02.07.2009 16:11:47
Thread-ID: 1086007
7 Beiträge
Funktion kopieren bis Ende Tabelle
jo_cindy

Hallo, für euch ist das sicher einfach, aber ich bekomme folgenden Schritt nicht hin. Ich habe über Makro aufnehmen eine einfache Funktion. Es sollen 4 aufeinanderfolgende Werte in einer Zeile addiert werden. Nun soll sich aber in dem Makro diese Formel selbstständig über alle Zeilen kopieren,...
14.10.2009 17:23:17
Thread-ID: 1109648
5 Beiträge
Anzeige
2 Tabellenblätter in ein PDF nicht möglich
Joachim

Hallo,
ich möchte per VBA das 3. und 4. Tabellenblatt als PDF in EIN Dokument bringen:
Dim n As Integer
Sheets(3).Select
For n = 3 To Sheets.Count
Sheets(n).Select False
Next
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Adobe PDF", Collate:=True
25.11.2009 08:17:45
Thread-ID: 1119865
6 Beiträge
kopieren eines großen Tabellenblatts nicht möglich
Bibabutzel

Hallo zusammen,
der nette Sepp (Josef Ehrensberger) aus diesem Forum hat mir ein Makro geschrieben, das nach Erfüllung verschiedener Bedingungen mehrere neue Tabellenblätter erzeugt, indem ein "Vorlage-Tabellenblatt" kopiert wird. Das Makro funktioniert tadellos - allerdings nur, wenn das "...
15.01.2010 23:04:46
Thread-ID: 1130392
8 Beiträge
Anzeige
Funktion kopieren bis Ende Tabelle
jo_cindy

Hallo Leute, hab da mal eine Verständnisfrage:
With Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)).Offset(, 23)
Was bedeutet dieser Befehl im Einzelnen?
Er bewirkt doch, dass die Formeln in der Spalte wo der Befehl gesetzt wird, solange kopiert werden, bis in Spalte 1 keine Wert...
02.02.2010 12:32:34
Thread-ID: 1135057
3 Beiträge
Anzeige
Makro/VBA Sheets kopieren und einfügen
Thomas

Hallo liebe EXCEL-Spezialisten,
ich würde gerne wissen, ob ihr mir bei folgendem Anliegen weiterhelfen könntet:
Ich habe eine EXCEL-Datei erstellt, in der Schaltflächen hinterlegt sind, die spezielle Aufgaben erfüllen, u.a. Dateien öffnen, dann fragen, wo man sie speichern möchte, um so...
02.02.2011 14:19:48
Thread-ID: 1198561
3 Beiträge
Formeln nach unten kopieren bis anzugebender Zeile
Stefan

Hallo.Ich habe folgendes ProblemIch möchte von VBA in einem Sheet eine Formel nach unten kopieren lassen.
Bislang sieht das bei mir so aus: Range("G1:G1").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-2]="""","""",C[-1]/C[-2])"
Selection.AutoFill Destination:=Range("G1:G...
13.05.2002 16:02:06
Thread-ID: 120530
4 Beiträge
VBA kopieren und zeilen einfügen
dirk0011

Hallo zusammen,
habe ein ganz kleines Problem. Mit dem Button Werte Kopieren in dem Reiter "zusammenfassung" kopiert mir das Script wunderbar jeden neuen Eintrag von den dahinter liegenden Reitern. Jetzt kommt die Frage dazu.
Ich möchte gerne eigentlich immer die in grau markierten Über...
17.12.2012 14:53:15
Thread-ID: 1291240
18 Beiträge
Inhalt Tabellenblatt kopieren und einfügen
Chris

Hallo zusammen!
Ich bräche etwas Hilfe von euch spezialisten (:
In der Excel Datei in der gearbeitet wird gibt es ein Tabellenblatt in dem alle Informationen stehen die dann per Makro in andere Tabellenblätter innerhalb der selben Datei gefiltert übertragen werden.
Nun soll aber da...
20.02.2014 12:10:26
Thread-ID: 1350487
3 Beiträge
VBA, Fehlermeldung bei Zeile kopieren und einfügen
André

Hallo,
ich möchte über der aktuellen Cursorposition eine Zeile einfügen und die Zeile 4 dort hinein kopieren. Die Zeile 4 ist ausgeblendet.
...
Worksheets("LH").Rows(ActiveCell.Row).Insert
Worksheets("LH").Rows(4).Copy Destination:=Worksheets("LH").Rows(ActiveCell.Row)
Works...
29.06.2014 17:45:38
Thread-ID: 1368013
4 Beiträge
VBA Tab1 Zeilen kopieren und in Tab2 einfügen
mehmet
Hallo Forum,
ich komme einfach nicht weiter.
Es sollen die Inhalte (Value) von Tab1 N110:U130 in Tab2 Spalte AA..:AN.. (Zeilen in gelb) eingefügt werden.
Es soll also in Tab1 Zelle N110 und Zelle O110 geguckt werden ob Zellen belegt sind.
Wenn beide Zellen belegt, dann soll Tab1 Zei...
24.10.2014 21:12:24
Thread-ID: 1388524
14 Beiträge
VBA: Kopieren und Einfügen
AdoJ

Hallo,
ich hab folgendes Problem, bei dem ich nicht weiter kommen und auch sonst nicht wirklich Hilfe gefunden habe:
Ich möchte Daten in Blatt X eingeben und die sollen dann per Klick in eine Tabelle in Y übertragen werden.
Dabei sollen die Daten Fortlaufend eingefügt werden - wenn...
22.12.2014 01:12:29
Thread-ID: 1399295
9 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Tab-Blatt kopieren und am Ende einfügen in Excel

Schritt-für-Schritt-Anleitung

Um ein Excel-Tabellenblatt zu kopieren und am Ende einzufügen, kannst Du folgendes VBA-Makro verwenden:

Sub CopyTabAtEnd()
    Dim i As Integer
    For i = 1 To 50
        Sheets("Quellblatt").Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = "Testblatt" & i
    Next i
End Sub

In diesem Makro wird das Tabellenblatt "Quellblatt" 50 Mal kopiert. Das neue Blatt wird am Ende der bestehenden Blätter eingefügt. Achte darauf, dass der Name des neuen Blatts einzigartig ist, um Fehler zu vermeiden.

Häufige Fehler und Lösungen

Fehler: Laufzeitfehler '1004'
Dieser Fehler tritt auf, wenn das Kopieren des Blattes nicht möglich ist, oft nach mehreren Kopiervorgängen. Mögliche Lösungen sind:

  1. Speichere die Datei regelmäßig. Wenn Du viele Blätter kopierst, kann Excel an seine Speichergrenzen stoßen. Speichere die Datei nach einer bestimmten Anzahl von Kopiervorgängen.

  2. Schließe und öffne Excel. Manchmal kann ein Neustart von Excel helfen, um temporäre Speicherprobleme zu lösen.

  3. Vermeide leere Blätter. Bei gefüllten Blättern funktioniert das Kopieren in der Regel besser. Teste den Code mit leeren Blättern.

Alternative Methoden

Wenn das Kopieren eines Blatts nicht möglich ist, kannst Du folgende Alternativen nutzen:

  • Manuelles Kopieren: Rechtsklick auf den Tab und "Kopieren" wählen. Anschließend das Zielblatt auswählen und "Einfügen" klicken.

  • Excel-Formeln: Wenn Du nur Daten übertragen möchtest, kannst Du die Inhalte mithilfe von Formeln oder durch "Kopieren und Einfügen" übertragen.

Praktische Beispiele

Hier sind einige praktische Anwendungen des VBA-Codes:

  1. Kopieren von Berichten: Wenn Du regelmäßig Berichte erstellen musst, kannst Du das Makro anpassen, um unterschiedliche Blätter zu kopieren und sie in einer neuen Datei zu speichern.

  2. Einstellen von Datenformaten: Stelle sicher, dass die Formatierungen der kopierten Blätter konsistent bleiben, indem Du das Format im Code angibst.

ActiveSheet.Cells.Copy
Worksheets("Zielblatt").Cells.PasteSpecial Paste:=xlPasteAll

Tipps für Profis

  • Verwende Variablen: Um den Code flexibler zu gestalten, definiere Variablen für die Quell- und Zielblätter.

  • Fehlerbehandlung einfügen: Implementiere eine Fehlerbehandlung mit On Error Resume Next, um den Code robuster zu machen.

  • Automatisierung: Wenn Du häufig Blätter kopieren und einfügen musst, überlege, ob Du das gesamte Verfahren automatisieren kannst, um Zeit zu sparen.

FAQ: Häufige Fragen

1. Warum kann ich mein Excel-Blatt nicht kopieren?
Das kann mehrere Ursachen haben, wie z.B. zu wenig Speicher oder dass das Blatt gesperrt ist. Stelle sicher, dass Du keine geschützten Blätter bearbeitest.

2. Gibt es eine maximale Anzahl an Blättern in Excel?
Ja, die maximale Anzahl an Blättern ist theoretisch unbegrenzt, jedoch durch den verfügbaren Speicher deines Systems begrenzt.

3. Wie kann ich ein neues Tabellenblatt am Ende einfügen?
Nutze den Befehl Sheets.Add After:=Sheets(Sheets.Count) um ein neues Blatt am Ende der Liste einzufügen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige