Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
1784to1788
1784to1788
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

intelligente Tabelle kopieren

Forumthread: intelligente Tabelle kopieren

intelligente Tabelle kopieren
13.10.2020 10:39:42
Georg
Hallo zusammen,
ich hab mal wieder ein "banales" Thema, an dem ich aber verzweifele und auch irgendwie keine Lösung im Forum finde.
Ich will eine intelligente Tabelle ("TabQuelle") kopieren und eine bestehende intelligente Tabelle ("TabZiel", beginnt in Zelle J1) damit überschreiben. Das ist erstmal einfach: Range("TabQuelle[#All]").Copy Range("J1")
Die QuellTabelle kann aber immer mal Spalten und Zeilen dazubekommen, die dann entsprechend zu übernehmen sind. Auch das geht damit.
Die Zieltabelle hat aber dann einen anderen Namen!! Und daran breche ich mit die Finger. Wie benenne ich Sie um, wenn die Zeilen und Spalten flexibel sein müssen?
Viiiielen Dank für Eure Hilfe!!
Gruß Georg
https://www.herber.de/bbs/user/140850.xlsm
Anzeige

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: intelligente Tabelle kopieren
13.10.2020 10:54:37
ralf_b
ActiveWorkbook.Names("tabx").Name = "huhu"
klappt nicht
13.10.2020 11:01:18
Georg
Hallo Ralf,
danke, aber das klappt leider nicht, da die neue Tabelle (bei Dir: "tabx") immer andere Namen hat und ich mich nicht darauf beziehen kann.
AW: klappt nicht
13.10.2020 11:08:17
ralf_b
naja vielleicht ist dein Vorgehen mit diesem Drüberkopieren auch nicht ganz der richtige Weg.
Aus deinem Post geht hervor das du weist wie die Zieltabelle heisst.
Ich schätze du arbeitest da auf Zelladressbasis und nicht mit dem Listobject. Die intelligente Tabelle ist dieses Listobject. Mit deren Elementen läßt sich auch Einiges anstellen.
Anzeige
?
13.10.2020 11:10:51
Georg
Ich hab die Datei eingehängt. Da siehst Du meine mickrigen Versuche. Wie muss es denn richtig sein?
guckst du
13.10.2020 11:27:44
ralf_b
befehl einzeilig anwenden. Das Forenfenster bricht die Zeile um
ActiveSheet.ListObjects("TabQuelle").DataBodyRange.Copy ActiveSheet.ListObjects("TabZiel").DataBodyRange
fast...
13.10.2020 11:35:48
Georg
Das ist schon sehr nah dran, was ich brauche. Daten werden übertragen und der Tabellenname bleibt. Aber leider nimmt er mir die Überschriften von neuen Spalten nicht mit..
Anzeige
AW: intelligente Tabelle kopieren
13.10.2020 11:05:54
Georg
Die grundlegende Frage ist für mich: wie kopiere ich die Daten von einer int. Tabelle in eine andere int. Tabelle bei flexiblen Zeilen und Spalten, aber gegebenem Namen der Zieltabelle.
Geht doch sicher irgendwie..
AW: intelligente Tabelle kopieren
13.10.2020 11:34:54
Rudi
Hallo, 
With Sheets("Tabelle1")
.Range("TabQuelle[#All]").Copy .Range(.ListObjects(2).Name).Cells(1).Offset(-1)
End With

Gruß
Rudi
Anzeige
bingo - aber noch eine Frage
13.10.2020 11:48:35
Georg
Klasse, Rudi, vielen Dank. Das läuft in der Testdatei wie es soll. Ich werde es mal in meine Arbeitsdatei übernehmen und hoffen, dass es auch dort funzt.
Nur verstehe ich es leider nicht wirklich.
Was bedeutet: .Range(.ListObjects(2).Name).Cells(1).Offset(-1) ?
Wieso "Listobjects(2).Name", was macht "Cells" hier und warum am Schluss noch das "Offset"?
Danke für die zusätzliche Erleuchtung!
Gruß Georg
Anzeige
AW: bingo - aber noch eine Frage
13.10.2020 11:58:09
Rudi
Hallo,
deine 'intelligenten' Tabellen sind ListObjects. Listobjects(2).Name gibt eben den Namen der 2. Tabelle (TabZiel) wieder. Der Name bezieht sich aber auf J2:O9.
Range(Listobjects(2).Name)--&gt Range("TabZiel")--&gt Range("J2:O9")
Range("J2:O9").Cells(1)--&gt J2
J2.Offset(-1)--&gt J1
Gruß
Rudi
Anzeige
KLASSE!
13.10.2020 12:02:35
Georg
ok, hab`s begriffen (so mir möglich).
Vielen Dank Rudi!!!!
AW: KLASSE!
13.10.2020 13:09:14
Georg
Hallo Rudi,
jetzt doch noch eine Frage: ich muss die Daten von einer Datei zu einer anderen schaufeln. Zur Vereinfachung hatte ich das in dem o.a. Muster nicht eingebaut und dachte, dass ich das schon hin bekomme. Ich scheitere aber schon daran, die Daten von einem Register zum andern innerhalb einer Datei zu schieben, da Excel einen unzulässigen oder nicht ausreichend definierten Bereich anmeckert und den Code ".ListObjects" markiert.
Ich hab die Zieltabelle in das Register "Tabelle3" geschoben und das Makro ff. geändert: 
Sub Makro5()
Sheets("Tabelle3").Columns("N:Q").ClearContents
Sheets("Tabelle3").Range("J5:L16").ClearContents
Sheets("Tabelle1").Range("TabQuelle[#All]").Copy
Sheets("Tabelle3").Range(.ListObjects(2).Name).Cells(1).Offset (-1)
End Sub
:-((
Gruß Georg
https://www.herber.de/bbs/user/140859.xlsm
Anzeige
gefunden
13.10.2020 14:05:55
Georg
Ich hab es jetzt so gelöst: 
Sub Copy()
Sheets("Tabelle1").ListObjects("TabQuelle").Range.Copy
Sheets("Tabelle3").ListObjects("TabZiel").Range.PasteSpecial Paste:=xlPasteValues
End Sub

Eigentlich ganz einfach... :-)
;

Forumthreads zu verwandten Themen

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
VBA Code mit VBA in Tabelle kopieren - Fehler?!
Andreas

Hallo Herber Fans,
ich habe mir heute aus der Recherche eine Möglichkeit rausgesucht, einen Code über VBA in ein anderes VBA Worksheet zu kopieren. Das dies in VBA überhaupt geht ist ja schon genial. Es soll ein Code in das VBA Worksheet des activeworkbooks kopiert werden.
Der Code dafü...
11.02.2009 15:56:00
Thread-ID: 1049657
3 Beiträge
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
Anzeige
Tabelle kopieren und in andere Datei einfügen
VBAmateur

Hallo an alle,
nachdem ich mich hier schon mehrfach mit Code bedient habe, möchte ich erstmal allen danken die sich die Mühe machen für "Gottes Lohn" anderen zu helfen.
Für die Lösung meines aktuellen Problems konnte ich leider nicht das richtige finden. Vielleicht können mir die Profis...
11.11.2011 21:33:05
Thread-ID: 1237564
8 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
Anzeige
per VBA in bestimmte Tabellennamen kopieren
Nibio

Liebe Profis,
ich bin in der Lage per VBA Zellen aus aktive Tabelle in alle Tabellenblätter zu kopieren. Aber ich kann nicht, in Tabellenblätter zu kopieren die mit "Stat" als Tabellenname beginnen, z.B "Stat112, 2Stat125" usw.. Könnte mir vielleicht jemand helfen?
Z.B, kopiere bereich...
29.01.2013 02:09:43
Thread-ID: 1296439
9 Beiträge
Mit VBA Werte aus Tabellen auf übersicht kopieren
BlueJay

Guten Morgen zusammen,
habe da mal wieder eine Frage - villeicht hat ja einer von euch eine solche Lösung schon mal bearbeitet und hat noch einen Code rumliegen den ich mir schnell anpassen könnte?
Und zwar möchte ich gerne auf einer Übesichtstabelle (erste Tabelle) in der Arbeitsmappe,...
26.03.2013 09:03:33
Thread-ID: 1306002
7 Beiträge
VBA-Code Tabelle kopieren, ...
Martin

Hallo VBA-Profis,
ich möchte ein Makro mit folgenden Bedingungen erstellen: 'BESCHREIBUNG: '1. Prüfung, ob Werte in Spieler!D2:D15 stehen. ' a. wenn ja: GoTo 2. ' b. wenn nein: MessageBox: "Keine Spieler ausgewählt!"; Zelle Spieler!D2 markieren; GoTo _ Ende '2. Prüfung, ob Tabellenb...
17.04.2013 09:11:00
Thread-ID: 1309137
10 Beiträge
VBA: Durch Buttonklick Werte von Tabellen kopieren
Tabellen

Hallo zusammen,
meine Datei nähert sich immer mehr dem Ziel, doch nun fehlt mir noch ein finaler Schritt. Nachdem bereits der Zellinhalt aus einer vorhandenen Tabelle problemlos in eine andere kopiert wird (durch Buttonklick), soll nun der Zellinhalt einer weiteren Tabelle kopiert werden. I...
16.07.2013 19:08:55
Thread-ID: 1322807
3 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
Anzeige
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
Tabellenzeilen suchen, kopieren und einfügen
Chris

Hallo liebe Forumsmitglieder,
ich möchte in ein Excel Tool ein Makro einbauen, das folgende Funktionen hat:
1) Ich kann einen Dateipfad für eine Quellexcel auswählen, aus dem ich Daten Importieren möchte. (bereits erledigt)
2) Das Makro soll beim Aktivieren die Quellexcel öffnen (be...
24.09.2014 18:59:09
Thread-ID: 1383269
5 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

Intelligente Tabelle in Excel kopieren und duplizieren

Schritt-für-Schritt-Anleitung

  1. Öffne dein Excel-Dokument und identifiziere die Quelltabelle, die du kopieren möchtest (z.B. "TabQuelle").

  2. Bestimme die Zieltabelle (z.B. "TabZiel"), in die die Daten kopiert werden sollen. Diese sollte bereits existieren.

  3. Öffne das VBA-Editor (Alt + F11) und füge den folgenden Code ein:

    Sub CopyIntelligentTable()
   Sheets("Tabelle1").ListObjects("TabQuelle").Range.Copy
   Sheets("Tabelle3").ListObjects("TabZiel").Range.PasteSpecial Paste:=xlPasteValues
End Sub

  4. Führe das Makro aus. Dies wird die Daten von "TabQuelle" in die "TabZiel" Tabelle kopieren.

  5. Überprüfe die Zieltabelle auf die korrekt kopierten Werte. Achte darauf, dass die Überschriften und Daten übernommen wurden.

Häufige Fehler und Lösungen

  • Fehler: "Ungültiger Bereich"

    • Lösung: Stelle sicher, dass die Zieltabelle tatsächlich existiert und korrekt benannt ist. Überprüfe auch, ob die Tabelle in der richtigen Arbeitsmappe ist.

  • Fehler: Daten werden nicht kopiert

    • Lösung: Achte darauf, dass du die richtige Methode verwendest, um nur die Werte zu kopieren. Nutze den PasteSpecial Befehl wie im obigen Code.

  • Fehler: Überschriften werden nicht übernommen

    • Lösung: Stelle sicher, dass du die gesamte Tabelle kopierst, einschließlich der Überschrift. Verwende Range("TabQuelle[#All]"), um sicherzustellen, dass alles kopiert wird.

Alternative Methoden

  • Excel VBA Intelligente Tabelle: Du kannst auch den ListObject direkt ansprechen, um Daten zu kopieren:

    ActiveSheet.ListObjects("TabQuelle").DataBodyRange.Copy _
ActiveSheet.ListObjects("TabZiel").DataBodyRange

  • Excel Folien duplizieren: Wenn du eine Folie in Excel duplizieren möchtest, kannst du das über die Präsentationsansicht tun. Dies kann hilfreich sein, wenn du eine Tabelle auf mehreren Folien darstellen möchtest.

Praktische Beispiele

  • Beispiel 1: Daten zwischen zwei Tabellen Wenn du Daten von einer intelligenten Tabelle in eine andere innerhalb der gleichen Arbeitsmappe kopieren möchtest:

    Sub CopyData()
  Sheets("Tabelle1").ListObjects("TabQuelle").Range.Copy
  Sheets("Tabelle3").ListObjects("TabZiel").Range.PasteSpecial Paste:=xlPasteValues
End Sub

  • Beispiel 2: Dynamisches Kopieren Um flexibel mit unterschiedlichen Spalten und Zeilen umzugehen, kannst du Resize verwenden:

    Sub DynamicCopy()
  Dim sourceTable As ListObject
  Set sourceTable = Sheets("Tabelle1").ListObjects("TabQuelle")
  sourceTable.Range.Copy
  Sheets("Tabelle3").ListObjects("TabZiel").Range.Resize(sourceTable.ListRows.Count, sourceTable.ListColumns.Count).PasteSpecial Paste:=xlPasteValues
End Sub

Tipps für Profis

  • Nutze Strg + Z nach dem Kopieren, um schnell Änderungen rückgängig zu machen, falls etwas schiefgeht.
  • Verwende Namen für Bereiche in deinen Tabellen, um den Code leserlicher zu machen.
  • Experimentiere mit Schleifen in VBA, um mehrere Tabellen gleichzeitig zu kopieren oder zu duplizieren.

FAQ: Häufige Fragen

1. Wie kann ich eine intelligente Tabelle in eine andere Excel-Mappe duplizieren? Du kannst die Daten kopieren und dann in die andere Arbeitsmappe einfügen, indem du den Arbeitsmappe-Referenznamen verwendest.

2. Was ist der Unterschied zwischen einer normalen Tabelle und einer intelligenten Tabelle in Excel? Eine intelligente Tabelle (ListObject) bietet erweiterte Funktionen wie automatisches Filtern, Sortieren und einfacheres Referenzieren in Formeln.

3. Wie kann ich mehrere intelligente Tabellen gleichzeitig kopieren? Du kannst eine Schleife verwenden, um durch alle ListObjects in einem Arbeitsblatt zu iterieren und sie nacheinander zu kopieren.

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