Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1512to1516
1512to1516
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zwei Tabellen zusammenfügen in eiber neuen Tabelle

Forumthread: Zwei Tabellen zusammenfügen in eiber neuen Tabelle

Zwei Tabellen zusammenfügen in eiber neuen Tabelle
05.09.2016 09:45:31
Shahed
Hallo Liebe Spezialisten ;-)
also ich möchte gerne die Inhalte von zwei Tabellen (jeweils 31 Spalten) zusammen in einer anderen Tabelle fügen. (VBA)
Tabelle1= Nebenrechnung 2 und Tabelle2 = Nebenrechnung 3 und Zieltabelle= ErfassSH VorEr .(ziel Tabelle ist bereit vorhanden)
Die Überschriften sind gleich. also Die Inhalten von zwei Tabellen sollen in der Tabelle ErfassSH VorEr erscheinen.
Kann jemand mir weiterhelfen.
Herzlichen vielen Dank im Voraus.
Shahed
Anzeige

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zwei Tabellen...
05.09.2016 10:32:13
Shahed
Hallo Danke erstmal für die schnelle Rückmeldung,
es handelt sich um eine Ecxel Datei mit mehreren Blättern. allerdings sollten zwei Blätter in ein anderes Blatt zusammengefügt werden.
Anzahl den Spalten sind immer gleich (31 Spalten) und fangen von der Spalte A an. Die erste Zeile beiden Dateien sind identisch (Überschrift). Die haben aber variable Zeilenanzahl.
In der Zieltabelle sollen die Inhalte untereinander erscheinen.
Eine Beispieldatei lade ich hier auch hoch.
https://www.herber.de/bbs/user/108022.xlsx
Vielen Dank
Beste Grüße
Shahed
Anzeige
AW: Zwei Tabellen...
05.09.2016 10:37:41
Bernd
Hi,
also mit meinem Vorgeschlagenen Link und den dort geposteten Code müsste es mit einer kleinen Änderung funktionieren.
Problem ist nur, er listet die Treffer zwei mal auf, warum weiß ich nicht, da ich selbst auch nicht gerade ein VBA Spezialist bin, sollte also nur mal als Ansatz helfen.
https://www.herber.de/bbs/user/108023.xlsm
lg Bernd
Anzeige
AW: Zwei Tabellen zusammenfügen in eiber neuen Tabelle
05.09.2016 09:56:05
Werner
Hallo Shahed,
ein paar weitere Infos wären nicht schlecht.
1. Handelt es sich um eine Excel-Datei mit 3 Blättern?
2. Wenn ja, ist die Anzahl der Zeilen in den Quellblättern fix oder variabel?
3. Wo soll hin kopiert werden, im Zielblatt untereinander oder nebeneinander, ab welcher Zeile?
Am besten eine Beispieldatei hochladen die den Aufbau deiner Quellblätter und dein Wunschergebnis im Zielblatt zeigt.
Gruß Werner
Anzeige
AW: Zwei Tabellen zusammenfügen in eiber neuen Tabelle
05.09.2016 10:14:54
Shahed
Hallo Danke erstmal für die schnelle Rückmeldung,
es handelt sich um eine Ecxel Datei mit mehreren Blättern. allerdings sollten zwei Blätter in ein anderes Blatt zusammengefügt werden.
Anzahl den Spalten sind immer gleich (31 Spalten) und fangen von der Spalte A an. Die erste Zeile beiden Dateien sind identisch (Überschrift). Die haben aber variable Zeilenanzahl.
In der Zieltabelle sollen die Inhalte untereinander erscheinen.
Eine Beispieldatei lade ich hier auch hoch.
https://www.herber.de/bbs/user/108022.xlsx
Vielen Dank
Beste Grüße
Shahed
Anzeige
AW: Zwei Tabellen zusammenfügen in eiber neuen Tabelle
05.09.2016 10:40:33
Werner
Hallo Shahed,
teste mal:
Public Sub Zusammenführen()
Dim loLetzte As Long
Dim WSQ As Worksheet
Dim WSZ As Worksheet
Set WSZ = ThisWorkbook.Worksheets("ErfassSH_VorEr")
For Each WSQ In ThisWorkbook.Worksheets
If WSQ.Name  "ErfassSH_VorEr" Then
loLetzte = WSZ.Cells(Rows.Count, 1).End(xlUp).Row
If loLetzte > 1 Then loLetzte = loLetzte + 2
WSQ.UsedRange.Copy WSZ.Cells(loLetzte, 1)
End If
Next WSQ
Application.CutCopyMode = False
End Sub
Gruß Werner
Anzeige
AW: Zwei Tabellen zusammenfügen in eiber neuen Tabelle
05.09.2016 11:03:49
Shahed
Erstmal Vielen Dank,
also die Prozedur fügt die Inhalten von allen Blättern im Zieltabelle zusammen. Inder Datei habe ich verschiedene Tabelle, die ich nicht mit Nebenrechnung 2 und Nebenrechnung 3 zusammengefügt werden dürfen.
Könntest Du die Prozedur so ändern, dass nur die zwei Tabelle in die Zieltabelle bringt?
Herzlichen Dank
Shahed
Anzeige
AW: Zwei Tabellen zusammenfügen in eiber neuen Tabelle
05.09.2016 11:19:46
Werner
Hallo Shahed,
mittlerweile hast du ja eine Lösung.
Gruß Werner
AW: Zwei Tabellen zusammenfügen in eiber neuen Tabelle
05.09.2016 11:22:19
Shahed
ja, Dankeschön aber trozdem für deine Hilfe und Zeit ;-D
Viele Grüße
Mohsen
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
05.09.2016 11:38:25
Werner
Anzeige
AW: soll es wirklich VBA sein? ...
05.09.2016 10:04:04
...
Hallo,
... eine einfache Formel entsprechend kopiert, würde es auch tun, wenn es sich nicht gerade um Massendaten handelt. Dazu sieh z.B. mal hier: https://www.herber.de/forum/archiv/1512to1516/t1512840.htm
Gruß Werner
.. , - ...
Anzeige
AW: soll es wirklich VBA sein? ...
05.09.2016 10:29:31
Shahed
Hallo Werner,
das soll eigentlich VBA sein, da dieses Prozess die Voraussetzung für weitere VBA berechnungen ist.
Jeweils einpaar hundert Zeilen, die in nachhinein wieder sortiert und umstrukturiert weerden.
Viele Grüße
Mohsen
AW: soll es wirklich VBA sein? ...
05.09.2016 11:02:37
Gerd
Hallo Shahed! 
Sub a()
Sheets("Nebenrechnung2").Cells(1, 1).CurrentRegion.Copy Sheets("ErfassSH VorEr").Cells(1, 1)
Sheets("Nebenrechnung3").Cells(1, 1).CurrentRegion.Offset(1).Copy _
Sheets("ErfassSH VorEr").Cells(Rows.Count, 1).End(xlUp).Offset(1)
End Sub

Gruß Gerd
Anzeige
AW: soll es wirklich VBA sein? ...
05.09.2016 11:10:54
Shahed
Hallo Gerd,
vielen Herzlichen Dank.
Es funktioniert wunderbar ;-D
Dankeeeee
Viele Grüße
Shahed
AW: soll es wirklich VBA sein? ...
05.09.2016 16:31:18
Fred
Sorry, ich blick`s nicht!
Was ist denn nun das richtige VBA?
Nehme ich die Beispieldatei von Shahed und kopiere vorherigen Codes in ein Modul kommt bei mir die Meldung: "Index außerhalb des gültigen Bereichs".
Könnte man mir die Lösung auch verraten oder die korrekte Datei uploaden?
https://www.herber.de/bbs/user/108030.xlsm
Anzeige
AW: soll es wirklich VBA sein? ...
05.09.2016 20:43:29
Werner
Hallo Fred,
das liegt daran, dass die Blattnamen der Datei nicht mit denen im Code übereinstimmen.
Code: Neuberechnung2
Blatt: Neuberechnung 2
Das gleiche bei Neuberechnung3
Benenne mal die beiden Blätter um in Neuberechnung2 und Neuberechnung3 (ohne Leerzeichen).
Sub a()
Sheets("Nebenrechnung2").Cells(1, 1).CurrentRegion.Copy Sheets("ErfassSH VorEr").Cells(1, 1)
Sheets("Nebenrechnung3").Cells(1, 1).CurrentRegion.Offset(1).Copy _
Sheets("ErfassSH VorEr").Cells(Rows.Count, 1).End(xlUp).Offset(1)
End Sub
Gruß Werner
Anzeige

Forumthreads zu verwandten Themen

Zwei Spalten in jeweils zwei Tabellen miteinander
Lutz

Liebe Leute,
ich habe zwei recht umfangreiche Tabellen mit Lieferdaten und dies in zwei von einander unabhängigen Tabellen.
In der Tabelle1 stehen neben anderen die Spalten Bestellnr. und Materialnr. sowie Lieferantennr. In der Tabelle2 stehen wiederum die Spalten Bestellnr. und Materia...
08.08.2008 15:56:55
Thread-ID: 1000336
4 Beiträge
Tabellenblätter miteinander verknüpfen
Ephraim

Guten Morgen,
leider schaff ich es nicht, zwei Tabellenblätter in einer Datei miteinander zu verknüpfen. Was in Tabellenblatt 1 steht soll auch automatisch in TB2 übertragen werden. Optimalerweise soll in TB 2 lediglich eine Spalte ausgefüllt werden. Der restliche Inhalt soll geschützt sein...
18.08.2008 07:19:00
Thread-ID: 1002497
4 Beiträge
Tabelle mit Daten aus zweiter Tabelle ergänzen
Fritz_W

Hallo VBA-Experten,
die nachfolgend dargestellte Tabelle "Statistik" möchte ich entsprechend der Daten aus der Tabelle "Daten" Bereich E3:E52 jeweils wie nachfolgend beschrieben erweitern:
In der Tabelle "Daten" können im Bereich E3:E52 bis zu 50 Namen stehen.
Das Makro soll diese N...
19.08.2008 19:49:00
Thread-ID: 1003024
10 Beiträge
Eingaben aus Tabellen mit Userform befüllen
Peter

Hallo wertes Forum
ich habe da mal wieder etwas und komme nicht so richtig weiter.
Ich habe eine Tabelle
In Spalten Namen und in Zeilen Datum
Nun möchte ich gern das ganze mit Userform befüllen
also eine combobox, die mir das Datum zurürck gibt und eine die Mir die Namen a...
06.09.2008 11:42:00
Thread-ID: 1007825
4 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
aut.Füllen von Felden mittels Referenztabellen
Felden

Hallo,
ich habe folgende Situation:
Ich habe zu einer Artikelnummer eine Kundenartikelnummer und einen Preis. Diese Daten habe ich in einer "Referenztabelle", d.h. in einem eigenen Excelfile.
Ich möchte nun bei der Erstellung von Rechnungen lediglich die Artikelnummer eingeben. Exce...
24.09.2008 08:04:00
Thread-ID: 1011910
2 Beiträge
Inhalt einer Tabelle in 2. Tabelle kopieren
Thomas

Hallo Excel Gemeinde,
Den Inhalt einer Tabelle, möchte ich in eine zweite Tabelle in der gleichen Arbeitsmappe kopieren, das funktioniert schon mal.
Die zu kopierenden Daten sollen aber am Ende der bereits vorhandenen Daten angefügt werden, bisher überschreibt es mir diese aber ;-(
...
24.09.2008 22:19:00
Thread-ID: 1012186
3 Beiträge
Anzeige
Verknüpfung mit vorigem Tabellenblatt
reiner

Hallo Leute
einer Datei wird jeden Monat ein neues dem dann aktuellen Monat entsprechendes Tabellenblatt hinzugefügt. Zelle Q3 des aktuellen Tabellenblattes soll den in Zelle A3 enthaltenen Wert des Vormonats (voriges Tabellenblatt) als Verknüpfung übernehmen.
Die hierfür erforderliche...
30.09.2008 09:20:35
Thread-ID: 1013261
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
Tabelle mittels eingebundenem Java jar-file füllen
Arthur

Ein fröhliches Hallo zusammen.
Ich habe ein Java jar-file, eingebunden in eine Excel-Datei. Die darin enthaltene Funktion soll per Knopfdruck aufgerufen werden, Daten aus einer anderen Anwendung abholen und das Ergebnis in einem Worksheet eintragen.
Der Knopfdruck samt Aufruf der Funkti...
27.11.2008 15:46:00
Thread-ID: 1028425
2 Beiträge
Wie Säulendiagramm mit Tabelle mit gestapelten Säu
sohsoh

Hallo,
ich habe folgendes Problem und schon wie ein Irrer probiert, aber bis jetzt noch keine Lösung gefunden.
Ich habe zu Verschiedenen Stoffen jeweils 2 Messwerte in 3 Verschiedenen Zuständen. Jetzt möchte ich ein Säulendigramm erstellen in denen ich 3 Säulen (zu den drei Zuständen je...
14.01.2009 10:48:22
Thread-ID: 1039519
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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