Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1488to1492
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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.

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

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

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

Anzeige
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

300 Forumthreads zu ähnlichen 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
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
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
Daten per Klick in ein anderes Tabellenblatt
Dirk

Hallo @all,
möchte gerne verschiedene Daten aus dem Tabellenblatt Lieferschein (neu) in das Tabellenblatt Datenbank per Klick übernehmen. Dann wieder neue Daten eingeben im Lieferschein und wieder klick...und die Daten müssten dann wieder in das Tabellenblatt Datenbank eine Zeile Tiefer (+1...
10.09.2009 09:58:37
Thread-ID: 1101665
3 Beiträge
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
4
5
2
2
3
3
9
2
6
5
5
7
2
4
4
4
5
7
10
5
1
7
9
2