Zwei Exceltabellen zusammenführen

[Ubi5]

Hallo,
habe ein Problem:
Habe zwei gleichlautende Tabellen - 1. Tabelle "tab_Daten1" und 2. Tabelle "tab_Daten2" - die beiden Tabellen enthalten folgende Spalten:
Code, Firma, Betrag.
Möchte die beiden Tabellen zusammenführen und mittels einer Pivot Tabelle auswerten. Das heißt die Beträge der jeweiligen Codes zusammenzählen.
Funktioniert so etwas?
LG Ubi5

[WillWissen]

Hi,

ich würde die Daten der ersten Tabelle in die erste freie Zeile der zweiten mittels C&P einfügen und danach über Daten==> Duplikate entfernen bereinigen. Dann kannst du mit einer PT auswerten. Zum komfortableren Arbeiten zeichnest du am besten die ausgeführten Arbeitsschritte mittels Makrorekorder auf und stellst hier den Code ein. Unsere VBA-Spezies (zu denen ich allerdings nicht gehöre) werden dir dann das Makro "entschlacken" und verallgemeinern.

[Ubi5]

Verstehe - unter Code ist bei mir die Kontobezeichnung zu verstehen, das heißt, dass bei der Auswertung der beiden Tabellen nach der Kontobezeichnung gesucht wird und die verbuchten Beträge zusammen gezählt werden. Das funktioniert bei einer Tabelle einwandfrei. Bei zwei Tabellen konnte ich das noch nicht realisieren.
LG Ubi5

[WillWissen]

Hi,

hast du meinen Vorschlag mit C&P mal ausprobiert? Hier ist es noch völlig wurscht, welche Werte in den Tabellen stehen.

[RPP63]

Hi!
Mittels Tastenkombination eine Sache von Sekunden:

• Tabelle1!A2 markieren,
  
• Strg+Umsch+Ende drücken (markiert die Tabelle ab Zeile 2),
  
• Strg+c (kopiert),
  
• Strg+BildRunter (aktiviert Tabelle2)
  
• Strg+Pos1 (selektiert A1)
  
• Strg+PfeilRunter (markiert letzte belegte Zelle in Spalte A)
  
• PfeilRunter (erste freie Zelle)
  
• Enter (fügt Kopie ein)
  

Mit etwas Übung schafft man dies (Größe der Tabellen ist völlig egal) in < 10 Sekunden.

Gut, als Makro geht es mit diesem Einzeiler schneller:

Sub Konsol()

Range(Tabelle1.Cells(2, 1), Tabelle1.Cells(2, 1).SpecialCells(xlLastCell)).Copy _

 Tabelle2.Cells(2, 1).End(xlDown).Offset(1, 0)

End Sub

Gruß Ralf

[WillWissen]

Hi Ubi,

ich habe dir noch eine Lösung mit je 2 Hilfsspalten (die du in deinem Original einfach ausblenden kannst) gebastelt. Damit ersparst du dir die von uns vorgeschlagene Kopierlösung.

Tabelle1

	A	B	C	D	E
1	DE26 1234 5678 9101 10	Firma1	10,00 €	1	DE26 1234 5678 9101 10
2	DE26 4321 5678 9101 50	Firma2	11,00 €	2	DE26 4321 5678 9101 50
3	DE26 1234 5678 9101 10	Firma3	12,00 €	#NV	DE26 9101 5678 9101 11
4	DE26 9101 5678 9101 11	Firma4	13,00 €	4
5	DE26 1234 5678 9101 10	Firma5	14,00 €	#NV

Formeln der Tabelle

Zelle Formel D1 =VERGLEICH(WENN(ZÄHLENWENN($A$1:A1;A1)=1;A1;"");A:A;0) E1 =WENNFEHLER(INDEX(A:A;AGGREGAT(15;6;D:D;ZEILE(A1)));"") D2 =VERGLEICH(WENN(ZÄHLENWENN($A$1:A2;A2)=1;A2;"");A:A;0) E2 =WENNFEHLER(INDEX(A:A;AGGREGAT(15;6;D:D;ZEILE(A2)));"") D3 =VERGLEICH(WENN(ZÄHLENWENN($A$1:A3;A3)=1;A3;"");A:A;0) E3 =WENNFEHLER(INDEX(A:A;AGGREGAT(15;6;D:D;ZEILE(A3)));"") D4 =VERGLEICH(WENN(ZÄHLENWENN($A$1:A4;A4)=1;A4;"");A:A;0) E4 =WENNFEHLER(INDEX(A:A;AGGREGAT(15;6;D:D;ZEILE(A4)));"") D5 =VERGLEICH(WENN(ZÄHLENWENN($A$1:A5;A5)=1;A5;"");A:A;0) E5 =WENNFEHLER(INDEX(A:A;AGGREGAT(15;6;D:D;ZEILE(A5)));"")

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8


Tabelle2

	A	B	C	D	E	F
1	DE26 1234 5678 9101 10	Firma10	100,00 €	1	DE26 1234 5678 9101 10	237,00 €
2	DE26 1234 5678 9101 10	Firma11	101,00 €	#NV	DE26 9101 5678 9101 11	217,00 €
3	DE26 9101 5678 9101 11	Firma12	102,00 €	3	DE26 4321 5678 9101 50	116,00 €
4	DE26 4321 5678 9101 50	Firma13	103,00 €	4		-   €
5	DE26 9101 5678 9101 11	Firma14	104,00 €	#NV		-   €

Formeln der Tabelle

Zelle Formel D1 =VERGLEICH(WENN(ZÄHLENWENN($A$1:A1;A1)=1;A1;"");A:A;0) E1 =WENNFEHLER(INDEX(A:A;AGGREGAT(15;6;D:D;ZEILE(A1)));"") F1 =SUMMEWENN(A:A;E1;C:C)+SUMMEWENN(Tabelle1!A:A;Tabelle1!E1;Tabelle1!C:C) D2 =VERGLEICH(WENN(ZÄHLENWENN($A$1:A2;A2)=1;A2;"");A:A;0) E2 =WENNFEHLER(INDEX(A:A;AGGREGAT(15;6;D:D;ZEILE(A2)));"") F2 =SUMMEWENN(A:A;E2;C:C)+SUMMEWENN(Tabelle1!A:A;Tabelle1!E2;Tabelle1!C:C) D3 =VERGLEICH(WENN(ZÄHLENWENN($A$1:A3;A3)=1;A3;"");A:A;0) E3 =WENNFEHLER(INDEX(A:A;AGGREGAT(15;6;D:D;ZEILE(A3)));"") F3 =SUMMEWENN(A:A;E3;C:C)+SUMMEWENN(Tabelle1!A:A;Tabelle1!E3;Tabelle1!C:C) D4 =VERGLEICH(WENN(ZÄHLENWENN($A$1:A4;A4)=1;A4;"");A:A;0) E4 =WENNFEHLER(INDEX(A:A;AGGREGAT(15;6;D:D;ZEILE(A4)));"") F4 =SUMMEWENN(A:A;E4;C:C)+SUMMEWENN(Tabelle1!A:A;Tabelle1!E4;Tabelle1!C:C) D5 =VERGLEICH(WENN(ZÄHLENWENN($A$1:A5;A5)=1;A5;"");A:A;0) E5 =WENNFEHLER(INDEX(A:A;AGGREGAT(15;6;D:D;ZEILE(A5)));"") F5 =SUMMEWENN(A:A;E5;C:C)+SUMMEWENN(Tabelle1!A:A;Tabelle1!E5;Tabelle1!C:C)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

[Ubi5]

Danke für die Bemühungen WillWissen!

Entschuldigung - habe mein Problem nicht ganz richtig dargestellt.
Versuche es nochmal.
In den beiden Tabellen sind Buchungssätze nach Haushaltsstellen festgehalten.
z.B. Code (Haushaltsstelle), Firma, Text, Datum, Betrag usw.
Die einzelnen Datensätze getrennt nach Haushaltsstellen z.B. 5000, 5001, 5002 usw. kommen in beiden Tabellen vor.
Mittels Pivottabellenauswertung möchte ich für jede Haushaltsstelle einen Kontoauszug drucken - alle Datensätze inklusive Aufsummierung.
Mit einer Tabelle ist mir alles klar - nur mit zwei Tabellen habe ich es noch nicht herausgefunden wie das funktioniert.
LG Ubi5

[WillWissen]

Hi,

Mit einer Tabelle ist mir alles klar - nur mit zwei Tabellen habe ich es noch nicht herausgefunden wie das funktioniert.

dann kopiere, wie von Ralf und mir bereits vorgeschlagen, die erste in die zweite Datei (oder umgekehrt) und werte sie dann aus. Sollte ich dich bzw. dein Problem immer noch missverstanden haben, dann stelle mal eine Mustertabelle mit deinem Wunschziel vor.

[Rabe]

Hi,

Mittels Pivottabellenauswertung möchte ich für jede Haushaltsstelle einen Kontoauszug drucken - alle Datensätze inklusive Aufsummierung.
Mit einer Tabelle ist mir alles klar - nur mit zwei Tabellen habe ich es noch nicht herausgefunden wie das funktioniert.

kann man nicht inzwischen (>= 2013) mit der Pivot auch 2 Bereiche in zwei Tabellen als Datenbereich verwenden?

[schauan]

Hallo Ralf,

falls das gemeint ist - siehe hier :
https://support.office.com/de-de/article...fc8adeeeb5