Live-Forum - Die aktuellen Beiträge
Datum
Titel
05.11.2025 09:23:36
Bedingte Formatierung Geburtstage
04.11.2025 16:13:59
AddIn erstellen und mit Passwort schützen
04.11.2025 15:31:37
Die Summendifferenz zwischen 01.01. und heute berechnen
04.11.2025 13:05:47
Frage Bed.Format mit Reihenfolge
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
1196to1200
1196to1200
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblatt kopieren / Umbenennen / Einfügen

Forumthread: Tabellenblatt kopieren / Umbenennen / Einfügen

Tabellenblatt kopieren / Umbenennen / Einfügen
A.B.
Hallo Forum,
Ich möchte ein gesamtes Tabellenblatt von einer Datei kopieren, umbennen und mit dem neuen Namen in ein anderes Tabellenblatt einfügen.
Sheets ("alter_Name").copy funktoniert nicht, Tabellenblatt wird sofort als neue Datei abgespeichert
Windows("Datei_2.xls").Activate macht das System leider nicht mit; es bleibt auf der alten Datei stehen
Tabellenblatt umbenennen ?
Sheets("neuer_Name").paste
Ideen ?
Anzeige
AW: Tabellenblatt kopieren / Umbenennen / Einfügen
07.02.2011 10:40:53
Beverly
Hi,
meinst du, dass das Tabellenblatt in eine andere Arbeitsmappe kopiert und dann umbenannt werden soll? Wenn ich mich nicht irre, kann man das doch mit dem Makrorekorder aufzeichnen.

Anzeige
AW: Tabellenblatt kopieren / Umbenennen / Einfügen
07.02.2011 10:45:22
A.B.
Ja, theoretisch schon.
Leider gbit es in der Zieldatei bereits ein Tabellenblatt mit gleichem Namen
:-(
AW: Tabellenblatt kopieren / Umbenennen / Einfügen
07.02.2011 11:06:42
Beverly
Hi,
dann kopiere es zuerst in der Ausgangsmappe, benenne es um und verschiebe es dann in die andere Arbeitsmappe.

Anzeige
AW: Tabellenblatt kopieren / Umbenennen / Einfügen
07.02.2011 10:46:07
Gerd
Hallo A.,
Ideen, ja klar. Lies mal die Hilfe zu "Copy" genau durch. Gibst Du kein Ziel an, wird das Blatt in eine neue Datei kopiert. Die Zieldatei muss geöffnet sein.
Sub a()
ThisWorkbook.Sheets("Tabelle2").Copy after:=Workbooks("Mappe2.xls").Sheets(Workbooks("Mappe2. _
xls").Sheets.Count)
ActiveSheet.Name = "Neuer_Name2"
End Sub
Ob mit Dateiendung oder ohne hängt von den Einstellungen in den Ordneroptionen u. davon ab, ob die Zieldatei bereits gespeichert ist.
Gruß Gerd
Anzeige
AW: Tabellenblatt kopieren / Umbenennen / Einfügen
07.02.2011 14:16:08
A.B.
Hallo Danke
Klappt noch nicht ganz. Habe den Code ohne Efolg angepasst
Thisworkbook.Sheets("KKS-Liste").Copy after:=Workbooks("Valvelist_Alex_07_02_2011.xls").Sheets(Workbooks("Valvelist_Alex_07_02_2011.xls").Sheets.Count)
ActiveSheet.Name = "KKS-Liste-Original"
AW: Tabellenblatt kopieren / Umbenennen / Einfügen
07.02.2011 14:49:38
Gerd
Hallo A.,
welche Fehlermeldung steht dem "Erfolg" entgegen?
Gruß Gerd
Anzeige
;

Forumthreads zu verwandten Themen

Fehler beim Kopieren von Tabelle in neue Datei
Tabelle

Guten Abend
Aus einer Datei möchte ich gerne eine Tabelle via "Verschieben oder kopieren" in eine neue Arbeitsmappe verschieben (mittels Aktivieren des Kästchens "Kopie erstellen").
Das ist in der Regel auch kein Problem. Doch heute scheitere ich bei einer bestimmten Datei daran, da bei...
28.08.2008 17:48:35
Thread-ID: 1005548
3 Beiträge
Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
Tabellenblätter in neue Arbeitsmappe kopieren
Christian

Hallo!
ich möchte gerne per makro aus einer datei mit ca. 70 tabellenblättern 11 Blätter auswählen und in eine neue Mappe kopieren, am besten sollten auch gleich noch die verküpfungen (in der neuen mappe) gelöscht werden.
Die zu kopierenden Blätter sind nicht hintereinander, also quer ü...
10.09.2008 16:37:00
Thread-ID: 1008845
6 Beiträge
Anzeige
Tabellenblatt mit Schleife mehrfach kopieren
Markus

Hallo zusammen,
ich möchte das erste Tabellenblatt mehrfach kopieren und jeder Kopie einen anderen Namen geben. Die Namen, die vergeben werden sollen, befinden sich im ersten Tabellenblatt (Spalte Z, ab Zeile 1). Derzeit sind es 10, es kommen aber leider immer welche hinzu bzw. die Namen än...
23.09.2008 21:07:55
Thread-ID: 1011888
5 Beiträge
Tabellenblatt als Datei erstellen
Kurt

Guten Abend,
habe übers Forum dieses Makro, für das erstellen einer Tabelle als
eigenständige Datei.
Das übernehmen des Tabellennames und das erstellen des Dateinamens funktioniert.
Allerdings bleibt die neue Mappe stehen und wird nicht gespeichert.
Warum ?
Sub BlattSp...
19.11.2008 16:33:00
Thread-ID: 1026104
11 Beiträge
Anzeige
Alle Blätter in andere Mappe kopieren
Doro

Hallo Liebe Profis,
ich möchte gerne alle Tabs aus dem File DatenFile in das File AuswerteFile vor das Tabellenblatt 3 kopieren, und nutze folgenden Code:
Dim AuswerteFile As String
AuswerteFile = ThisWorkbook.Name
Dim FileToOpen
If Dir("C:\*.*") "" Then ChDir "C:\"
Fil...
26.01.2009 15:46:00
Thread-ID: 1043923
8 Beiträge
alle Tabellenblätter in anderes File kopieren
Doro

Hallo Forum!
habe eben schonmal "versucht" zu posten, aber irgendwie ist mein Beitrag weg...
Ich möchte gerne das File DatenFile öffnen, alle Tabellenblätter markieren, und dann in das File AuswerteFile kopieren, und bekomme in der letzten Zeile einen Laufzeitfehler.
Kann da jemand...
26.01.2009 16:48:18
Thread-ID: 1043937
3 Beiträge
Worksheet in andere Datei kopieren
Werner

mein VBA-Level: befriedigend
Hallo Freunde,
ich versuche eine Tabelle (Worksheet) von einer in eine andere Excel-Datei zu kopieren, und zwar so:
Workbooks("Datei1.xls").Worksheets("Zukopieren").Copy After:=Workbooks("Datei1.xls").Worksheets
(Sheets.Count)
Leider klappt das n...
03.02.2009 08:15:00
Thread-ID: 1046501
7 Beiträge
tabellenblatt in Excel mit neuer Instanz kopieren
chris

Hallo zusammen,
ich habe eine frage.Vielleicht könnt ihr mir helfen.
ich versuche eine Auswertung zu erstellen und diese soll in eine neue Instanz von Excel kopiert werden.
Aber irgendwie klappt das nicht :(
Ich habe unten einen code angefügt damit ich als erstes eine neue Insta...
10.02.2009 13:39:15
Thread-ID: 1049055
8 Beiträge
mehrere Blätter in andere Mappe kopieren
Jakob

Hallo,
mit den unten angehängten Code kopiere ich das aktuelle Blatt in eine seperate Mappe. Den Code würde ich jetzt gerne so erweitern, daß mehrere Blätter auf einmal in die gleiche Mappe kopiert werden.
Wie müßte der Code aussehen der das bewerkstellig?
Ich Danke Euch schon mal.<...
27.02.2009 14:29:50
Thread-ID: 1054785
5 Beiträge
Daten von und in andere Arbeitsmappe kopieren
und

Hallo,
ich wollte unten angeführte Makros folgendermaßen abändern:
Die Makros sollten aus Arbeitsmappe 1, die die zu ersetzenden DAten enthält, ausgeführt werden, d.h. es sollte kein Makro in Arbeitsmappe2 verwendet werden. Die Makros müssten also die Arbeitsmappe 2 öffnen, - die Werte...
28.02.2009 17:59:02
Thread-ID: 1055113
5 Beiträge
Zugriff auf Tabellenblatt in anderer Datei
Ulrich

Hallo,
ich würde gerne in einer Datei eine Zusammenfassung darstellen, und gebe dazu einen Namen eines Tabellenblattes einer anderen Datei ein, aus der dann eine Zelle übernommen wird. Ziel ist es in der Zusammenfassung z.b. 2012 als Jahr (Name des Tabellenblattes) einzugeben und ich bekomm...
01.03.2009 18:03:43
Thread-ID: 1055274
2 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

Tabellenblatt kopieren und umbenennen in Excel

Schritt-für-Schritt-Anleitung

Um ein Tabellenblatt in Excel zu kopieren, umzubenennen und in eine andere Arbeitsmappe einzufügen, kannst Du den folgenden VBA-Code verwenden. Dieser Code funktioniert in Excel 2010 und späteren Versionen.

  1. Öffne den Visual Basic for Applications (VBA) Editor mit ALT + F11.

  2. Füge ein neues Modul hinzu: Rechtsklick auf „VBAProject (DeineDatei.xlsx)” > Einfügen > Modul.

  3. Kopiere den folgenden Code in das Modul:

    Sub TabellenblattKopierenUndUmbenennen()
    ' Kopiere das Blatt
    ThisWorkbook.Sheets("Alter_Name").Copy _
        After:=Workbooks("Zielarbeitsmappe.xls").Sheets(Workbooks("Zielarbeitsmappe.xls").Sheets.Count)

    ' Umbenennen des neuen Blattes
    ActiveSheet.Name = "Neuer_Name"
End Sub

  4. Ändere die Namen „Alter_Name“ und „Neuer_Name“ sowie „Zielarbeitsmappe.xls“ entsprechend Deinen Anforderungen.

  5. Führe das Makro aus, um das Tabellenblatt zu kopieren und umzubenennen.

Häufige Fehler und Lösungen

  • Fehler: "Das Arbeitsblatt kann nicht umbenannt werden."

    • Lösung: Stelle sicher, dass kein anderes Blatt den gleichen Namen hat. Ändere den neuen Namen in der Zeile ActiveSheet.Name = "Neuer_Name".

  • Fehler: "Das Blatt kann nicht in eine neue Datei kopiert werden."

    • Lösung: Vergewissere Dich, dass die Zieldatei geöffnet ist. Der Code funktioniert nur, wenn die Zieldatei aktiv ist.

  • Fehler: "Typenübereinstimmung fehlerhaft."

    • Lösung: Überprüfe die Schreibweise der Arbeitsmappennamen und das Vorhandensein der entsprechenden Blätter.

Alternative Methoden

  1. Manuelles Kopieren:

    • Rechtsklicke auf das Tabellenblatt, wähle „Verschieben oder Kopieren“ und wähle die Zielarbeitsmappe aus.

  2. Excel-Funktionen:

    • Du kannst auch die Funktion „Blatt kopieren“ im Menü „Start“ verwenden, um das Blatt in eine andere Datei zu kopieren.

  3. Verwendung des Makrorekorders:

    • Du kannst den Makrorekorder nutzen, um den Prozess aufzuzeichnen und den VBA-Code automatisch zu generieren.

Praktische Beispiele

  • Beispiel 1: Um ein Tabellenblatt aus einer Datei „Daten.xlsx“ in eine Datei „Bericht.xlsx“ zu kopieren:

    Sub BeispielKopie()
    ThisWorkbook.Sheets("Datenblatt").Copy After:=Workbooks("Bericht.xlsx").Sheets(1)
    ActiveSheet.Name = "Kopiertes_Datenblatt"
End Sub

  • Beispiel 2: Kopiere ein Blatt und benenne es in „Kopie von [original]“ um:

    Sub KopiereUndBenenneUm()
    Dim originalName As String
    originalName = "UrsprünglichesBlatt"
    ThisWorkbook.Sheets(originalName).Copy After:=Workbooks("Ziel.xlsx").Sheets(1)
    ActiveSheet.Name = "Kopie von " & originalName
End Sub

Tipps für Profis

  • Makros automatisieren: Du kannst das Makro so einstellen, dass es bei bestimmten Ereignissen ausgeführt wird, z.B. beim Öffnen der Datei.
  • Verwendung von Variablen: Nutze Variablen für die Namen der Blätter, um den Code flexibler zu gestalten.
  • Fehlerbehandlung: Integriere Fehlerbehandlungsroutinen, um sicherzustellen, dass Dein Makro auch bei unerwarteten Situationen stabil läuft.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Tabellenblätter gleichzeitig kopieren? Du kannst eine Schleife verwenden, um durch eine Liste von Blattnamen zu iterieren und sie nacheinander zu kopieren.

2. Kann ich ein Tabellenblatt in eine neue Datei kopieren? Ja, Du kannst ein Tabellenblatt in eine neue Datei kopieren, indem Du einfach eine neue Arbeitsmappe erstellst und das Blatt dort einfügst.

3. Was passiert, wenn ich ein Blatt mit einem Namen kopiere, der bereits existiert? Wenn der Zielname bereits existiert, wird ein Fehler angezeigt. Du musst den Namen des neuen Blattes ändern, um Konflikte zu vermeiden.

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