Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
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
1488to1492
1488to1492
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle in andere Tabelle kopieren

Forumthread: Tabelle in andere Tabelle kopieren

Tabelle in andere Tabelle kopieren
03.05.2016 08:16:11
Rene
Hallo zusammen,
ich wollte per VBA Spalten von einer Tabelle in eine andere kopieren.
laut Makrorecorder funktioniert es nicht ganz.
Sub Makro5()
' Daten werden kopiert und in eine andere Datei kopiert.
Range("D3:D999").Select
Application.CutCopyMode = False
Selection.Copy
Range("E3:K999").Select
Application.CutCopyMode = False
Selection.Copy
Range("M3:M999").Select
Application.CutCopyMode = False
Selection.Copy
Range("R3:R999").Select
Application.CutCopyMode = False
Selection.Copy
Range("S3:S999").Select
Application.CutCopyMode = False
Selection.Copy
Range("Q3:Q999").Select
Application.CutCopyMode = False
Selection.Copy
End Sub

1_Liste
L:\Verpackungsplanung\280_VPTA Zeiten\280_10_VPTA_Listen\
2_Liste
L:\VPTA-Zeitmessung\Vorbereitung_VPTA\
Mein Makro wollte irgenwie nicht von Tabelle in Tabelle hüpfen.

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle in andere Tabelle kopieren
03.05.2016 08:43:47
ChrisL
Hi Rene
Wenn beide Mappen bereits geöffnet sind:
Sub Makro5()
Dim WB1 As Workbook, WB2 As Workbook
Dim WS1 As Worksheet, WS2 As Worksheet
Set WB1 = ThisWorkbook
Set WB2 = Workbooks("Mappe1.xlsx")
Set WS1 = Worksheets("Tabelle1")
Set WS2 = Worksheets("Tabelle1")
WS1.Range("D3:D999").Copy WS2.Range("D3")
WS1.Range("K3:K999").Copy WS2.Range("K3")
' usw.
End Sub
cu
Chris

Anzeige
AW: Tabelle in andere Tabelle kopieren
03.05.2016 08:55:09
Rene
Vielen Dank, und nun etwas schwerer.
er soll Liste 2 öffnen das einfügen und dann speichern und wieder schließen.

AW: Tabelle in andere Tabelle kopieren
03.05.2016 09:23:51
UweD
Hallo
dann so
Sub Makro5()
Dim WB1 As Workbook, WB2 As Workbook
Dim WS1 As Worksheet, WS2 As Worksheet
Const Pfad = "L:\VPTA-Zeitmessung\Vorbereitung_VPTA\"
Const Datei = "Mappe2.xlsx"
Set WB1 = ThisWorkbook
Set WB2 = Workbooks.Open(Pfad & Datei)
Set WS1 = WB1.Worksheets("Tabelle1")
Set WS2 = WB2.Worksheets("Tabelle1")
WS1.Range("D3:D999").Copy WS2.Range("D3")
WS1.Range("K3:K999").Copy WS2.Range("K3")
' usw.
WB2.Close savechanges:=True
End Sub
LG UweD

Anzeige
AW: Tabelle in andere Tabelle kopieren
03.05.2016 10:45:39
Rene
Super Vielen Dank,
habe es auch angepasst an meine Dateien, bekomme aber eine Fehler meldung
Sub Makro5()
' Daten werden kopiert und in eine andere Datei kopiert.
Dim WB1 As Workbook, WB2 As Workbook
Dim WS1 As Worksheet, WS2 As Worksheet
Const Pfad = "L:\VPTA-Zeitmessung\06 Vorbereitung VPTA\"
Const Datei = "151202_LIST_Vorbereitung_Liste_TEST.xlsx"
Set WB1 = ThisWorkbook
Set WB2 = Workbooks.Open(Pfad & Datei)
Set WS1 = WB1.Worksheets("Tabelle7")
Set WS2 = WB2.Worksheets("Tabelle1")
WS1.Range("D3:D999").Copy WS2.Range("A3")
WS1.Range("E3:E999").Copy WS2.Range("B3")
WS1.Range("F3:F999").Copy WS2.Range("C3")
WS1.Range("G3:G999").Copy WS2.Range("D3")
WS1.Range("H3:H999").Copy WS2.Range("E3")
WS1.Range("J3:J999").Copy WS2.Range("F3")
WS1.Range("J3:J999").Copy WS2.Range("G3")
WS1.Range("K3:K999").Copy WS2.Range("H3")
WS1.Range("L3:L999").Copy WS2.Range("I3")
WS1.Range("M3:M999").Copy WS2.Range("J3")
WS1.Range("Q3:Q999").Copy WS2.Range("N3")
WS1.Range("R3:R999").Copy WS2.Range("O3")
WS1.Range("S3:S999").Copy WS2.Range("P3")
WB2.Close savechanges:=True
End Sub
Userbild

Anzeige
AW: Tabelle in andere Tabelle kopieren
03.05.2016 10:52:01
ChrisL
Hi Rene
Und wie lautet die Fehlermeldung?
Ich tippe in der Ausgangsdatei (diejenige Mappe von der aus du das Makro startest) gibt es keine Tabelle7.
cu
Chris

AW: Tabelle in andere Tabelle kopieren
03.05.2016 11:44:13
Rene
Ic habe es in Tabelle 7 verschoben, Laufzeitfehler 9 Index nicht im gültigen Bereich.

AW: Tabelle in andere Tabelle kopieren
03.05.2016 12:47:31
ChrisL
Hi René
Der Fehler sagt, dass es die Tabelle nicht gibt. Falls du die "internen" Tabellennamen verwendest:
Set WS1 = WB1.Tabelle7
Sonst lade das Beispiel mal hoch, dann können wir uns selber überzeugen, ob es die Tabelle gibt oder nicht :)
cu
Chris

Anzeige
AW: Tabelle in andere Tabelle kopieren
04.05.2016 05:59:24
Rene
Fehler erkannt, wenn man ein Rechtschreibfehler hat ;)

AW: Tabelle in andere Tabelle kopieren
03.05.2016 10:57:04
UweD
Hi
dann gibt es das Blatt "Tabelle7" in Datei1 (die Datei, in der das Makro steht) nicht
;

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
2 Combobox in UF in Tabelle1 u. Daten in Tabelle 2
Bernhard

Guten Abend liebe Excelprofis,
ich komme nicht weiter, folgende Aufgabenstellung zu lösen:
Ich rufe in Tabelle 1 eine Userform auf, die 2 ComboBoxen hat. (ArtikelNr. ArtikelBezeichnung). In Tabelle 2 stehen in Spalte A die ArtikelNrn. und in Spalte B die ArtikelBezeichnungen untereinand...
17.09.2008 21:32:00
Thread-ID: 1010532
5 Beiträge
Anzeige
Daten aus Tabelle in eine andere Tabelle
Cornelia

Ich habe 2 Tabellen mit dem gleichen Aufbau.
Tabelle 1 soll die Daten eingetragen werden. Von mehreren Leuten. Deshalb eben seperat.
Tabelle 2 soll die Daten aus Tabelle 1 übernehmen. Jeweils ein Blatt mit identischen Blattnamen aus Tabelle 1. Bisherige Lösung von mir in jede Zelle rein...
01.10.2008 08:11:00
Thread-ID: 1013510
6 Beiträge
Bereich von Tabelle1 als Grafik in Tabelle2 einfüg
Tabelle1

Hallo Leute,
ich komm irgendwie nicht weiter und benötige Hilfe.
es soll z.B. von Sheets("Tabelle1") Range("a1:b5")
als Grafik
in Sheets("Tabelle2")
Gruss
Atikar
19.11.2008 17:09:19
Thread-ID: 1026118
3 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
Anzeige
Daten in andere Tabelle übertragen
Karsten

Guten Morgen,
verzweifelt bin ich auf der Suche nach einer Problemlösung für folgende Aufgabenstellung:
In Datei A, Tabelle 1 stehen in A1, A2 und A3 Daten. Diese sollen in eine andere Exceldatei kopiert werden in A1=A1, A2=B2 und A3=C3 und das auch noch fortlaufend. Also wenn z.B. Zeil...
08.04.2009 11:26:01
Thread-ID: 1067662
4 Beiträge
Tabelleninhalt in eine andere Arbeitsmappe kopiere
Himmelsbach

Hallo zusammen,
Ich hoffe es kann mir jemand bei meinem Problem weiter helfen, denn ich habe keine Idee wie ich meine Aufgabe automatisieren kann, ansonsten werde ich wohl Stunden damit zubringen müssen Tausende Zellen zu kopieren.
Also zu meiner Aufgabenstellung, reduziert auf 3 Tabell...
10.06.2009 16:57:46
Thread-ID: 1080549
4 Beiträge
Kopieren in andere Tabelle
liese

Hallo Forumfreunde!
Bitte um Hilfe zu folgendem Problem:
Bei Doppelklick im Bereich H10:H15 in Tabelle1 (z.B. H7) soll der Zellinhalt nach Tabelle2
in Zelle D5 kopiert werden und der Inhalt zwei Zellen neben dem Doppelklick (J7)
ebenfalls nach Tabelle2 in K10 kopiert werden.
...
19.08.2009 13:20:01
Thread-ID: 1097094
10 Beiträge
Anzeige
Tabelleninhalte auslesen u. in eine andere Tabelle
Ralph

Hallo "ZUSAMMEN,
ich bin heute diesem Forum beigetreten um meine -nicht allzu guten- Excel-Kenntnisse zu erweitern.
Derzeit beschäftige ich mich damit, aus einer bestehenden Tabelle1 bestimmte Werte (z.B. wenn der
Umsatz kleiner 250,-- EUR ist) in eine Tabelle2 zu übertragen. Bis je...
23.09.2009 20:23:41
Thread-ID: 1105052
7 Beiträge
Ausgeblendeter Bereich NICHT mitkopieren, wie?
Jessi

Hallo zusammen,
nutze für eine große Excel-Tabelle die Funktion "Shift"+"Alt"+"Pfeil" um Bereiche zusammenzuklappen, somit wird die Tabelle wesentlich übersichtlicher, da nur die Headlines der Bereich zur Summary-Übersicht benötigt werden. Wenn ich allerdings den "zusammengeklappten" Bereic...
26.09.2009 10:59:48
Thread-ID: 1105674
6 Beiträge
Anzeige
Werte in anderes Tabellenblatt übertragen
Marcus

Hallo, zusammen,
Ich habe hier ein dolles Makro, was mir hier jemand aus diesem Forum geschrieben hat. Dieses Makro funktionierte bisher auch ganz gut, bis durch ein Zufall ein Fehler entdeckt wurde. Dieser Fehler liesse sich durch genau festgelegte Bedingungen umgehen, aber vielleicht läss...
03.10.2009 20:46:05
Thread-ID: 1106914
6 Beiträge
Tabelleninhalte auslesen u. in eine andere Tabelle
Ralph

Antwort auf Dein Ergebnis zu meiner Anfrage "Tabelleninhalte auslesen u. in eine andere Tabelle"
Hallo Matthias,
bin wieder an Bord und begeistert von Deiner Lösung. Klappt prima! Super... Super...
Habe versucht dieses VBA zu verstehen... aber keine Chance! Kannst Du mir vielleicht...
06.10.2009 19:23:15
Thread-ID: 1107569
8 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

Tabelle in andere Tabelle kopieren

Schritt-für-Schritt-Anleitung

Um Daten automatisch in andere Tabellen zu kopieren, kannst Du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11 in Excel.

  2. Füge ein neues Modul hinzu:

    • Klicke im Menü auf Einfügen und wähle Modul.

  3. Kopiere den folgenden Code:

    Sub DatenKopieren()
   Dim WB1 As Workbook, WB2 As Workbook
   Dim WS1 As Worksheet, WS2 As Worksheet

   ' Quell- und Ziel-Workbooks
   Set WB1 = ThisWorkbook
   Set WB2 = Workbooks.Open("Pfad\zu\deiner\Zielmappe.xlsx") ' Passe den Pfad an

   ' Quell- und Ziel-Worksheet
   Set WS1 = WB1.Worksheets("Tabelle1") ' Quelle
   Set WS2 = WB2.Worksheets("Tabelle1") ' Ziel

   ' Daten kopieren
   WS1.Range("D3:D999").Copy WS2.Range("D3")
   WS1.Range("K3:K999").Copy WS2.Range("K3")

   ' Ziel-Workbook speichern und schließen
   WB2.Close savechanges:=True
End Sub

  4. Passe den Code an:

    • Ändere den Pfad und die Tabellennamen entsprechend Deiner Dateien.

  5. Führe das Makro aus:

    • Drücke F5 oder klicke auf Ausführen, um das Makro zu starten.

Häufige Fehler und Lösungen

  • Laufzeitfehler 9: Index nicht im gültigen Bereich:

    • Dieser Fehler tritt auf, wenn die angegebene Tabelle nicht existiert. Überprüfe die Schreibweise des Tabellennamens. Verwende gegebenenfalls Set WS1 = WB1.Tabelle7, wenn Du die internen Tabellennamen verwendest.

  • Fehlermeldung beim Öffnen der Datei:

    • Stelle sicher, dass der Pfad zur Datei korrekt ist und dass die Datei existiert.

Alternative Methoden

Wenn Du keine VBA-Programmierung verwenden möchtest, kannst Du auch die Funktion "Kopieren und Einfügen" in Excel nutzen:

  1. Markiere die gewünschten Zellen in der Quelltabelle.
  2. Drücke CTRL + C, um die Zellen zu kopieren.
  3. Wechsle zur Zieltabelle und wähle die Zielzelle aus.
  4. Drücke CTRL + V, um die Daten einzufügen.

Diese Methode ist jedoch nicht automatisiert und erfordert manuelles Eingreifen.

Praktische Beispiele

  1. Spalte kopieren in andere Tabelle:

    WS1.Range("A:A").Copy WS2.Range("A:A") ' Kopiert die gesamte Spalte A

  2. Daten von einer Tabelle in eine andere übertragen:

    • Du kannst mehrere Spalten gleichzeitig übertragen, indem Du einfach die gewünschten Bereiche kopierst und einfügst.

Tipps für Profis

  • Automatisierung: Überlege, das Makro so zu gestalten, dass es bei bestimmten Ereignissen (z.B. beim Öffnen der Datei) automatisch ausgeführt wird.
  • Fehlerbehandlung: Implementiere Fehlerbehandlungsroutinen, um das Makro robuster zu gestalten.
  • Dokumentation: Kommentiere Deinen Code, damit Du oder andere ihn später leichter verstehen können.

FAQ: Häufige Fragen

1. Wie kann ich eine ganze Tabelle in eine andere kopieren?
Du kannst die gesamte Tabelle kopieren, indem Du den Bereich A1:Z1000 (oder einen anderen Bereich) kopierst und in die Ziel-Tabelle einfügst.

2. Kann ich Daten automatisch in andere Tabellen kopieren?
Ja, mit VBA kannst Du Daten von einer Tabelle in eine andere übertragen, ohne manuelles Eingreifen. Nutze dazu das oben beschriebene Makro.

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