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

Mehrere Excel-Tabellen untereinander schreiben

Forumthread: Mehrere Excel-Tabellen untereinander schreiben

Mehrere Excel-Tabellen untereinander schreiben
18.11.2012 22:54:30
Verzweifelter
Hallo,
ich möchte per Makro mehrere Dateien, die auf verschiedenen Tabellenblättern liegen, in einem neuen Blatt zusammenführen, um sie dann hinterher mit Pivot auswerten zu können. Die Auswertungsmöglichkeiten von Pivot bei mehreren Konsolidierungsbereichen sind für diesen Zweck nicht ausreichend.
Die Tabellen sind gleich aufgebaut, kommen nur regelmäßig von verschiedenen Stellen mit neuen Daten.
Ist es also möglich, per Makro z. B. Tabelle 1 (von Blatt1), Tabelle2 (von Blatt2) und Tabelle 3 (von Blatt3) auf Blatt 4 untereinander darzustellen? und dann eventuell später nur Änderungen und neue Zeilen aus den Quelltabellen zu aktualisieren?
Über Hilfe würde ich mich sehr freuen.
Vielen herzlichen Dank schon im Voraus.
der verzweifelte Nutzer

Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Excel-Tabellen untereinander schreiben
19.11.2012 01:05:45
Peter
Lieber Nutzer,
kein Grund zur Verzweiflung! Das Untereinanderfügen mehrerer Tabellen (mit dem gleichen Aufbau) per Makro ist kein Problem. Für ein solches kleines Programm fehlen jedoch noch einige Anhaltspunkte:
1. Wenn die Dateien von verschiedenen Stellen kommen, müssten diese ja zunächst in die Sammeltabelle, auch das könnte per Makro besorgt werden.
2. Sind die ankommenden Dateien von der Anzahl her endlich und haben sie festgelegte Namen?
3. Wenn Pkt. 2 mit "ja" beantwortet werden kann, müssen dann die eingehenden Dateien in der Zieldatei
nocheinmal auf den einzelnen Arbeitsblättern erscheinen, oder genügt die Zusammenfassung auf einem Blatt?
Es wäre gut, wenn Du eine Musterdatei hochladen könntest. Ich bin dann gerne bereit, weiter zu helfen.
Mit freundlichem Gruß
Peter Kloßek

Anzeige
AW: Mehrere Excel-Tabellen untereinander schreiben
19.11.2012 10:59:14
verzweifelter
Hallo,
Hallo Peter,
als allererstes möchte ich mich für Deine Hilfsbereitschft bedanken.
hier eine Beispieldatei
https://www.herber.de/bbs/user/82674.xlsx
- nur die Tabellen mit einigen Einträgen. Es sind hier im Beispiel nur zwei Arbeitsblätter, in der endgültigen Datei werden es dann drei Blätter mit drei Tabellen sein, die zusammengefügt werden.Die ausführlichere Beispieldatei war zu groß (wegen s-verweisen, quelladressen, bedingten Formatierungen und Drop-Down Menüs).
Ich wollte aus den ankommenden Dateien die Tabellenblätter jeweils per Hand in die Arbeitsmappe einfügen und die alten Versionen herausnehmen, um das Ganze zu vereinfachen. Den Tabellenblättern wollte ich dann immer feststehende Namen geben: Auftrag 1, Auftrag 2 und Auftrag 3.
Wenn es aber ohne großen Aufwand möglich wäre, dieses Einfügen der Tabellenblätter per Makro zu erledigen und sie dann in das Arbeitsblatt, was die Quelle für die Pivot-Auswertungen ist, einzufügen, dann wäre das super. Es wären maximal zwei Tabellen, die ankommen - die dritte ist in der von mir bearbeiteten Arbeitsmappe gespeichert in der auch die Zusammenfassung dann stehen soll.
Was die feststehenden Namen angeht: ich kann die per Mail zu mir kommenden Dateien immer unter feststehenden Namen an immer der selben Stelle im gleichen Verzeichnis wie die Zusammenfassung speichern.
Ist es möglich auch Formatierungen automatisch mitzukopieren? Es werden auf jeden Fall noch bedingte Formatierungen auftauchen. Und eine Frage zum Kopieren generell: werden die Daten (Zahlen und Text) kopiert oder auch die hinterlegten Formeln? Für mich würde es ausreichen, wenn die Daten kopiert werden und dann bei Änderung im Quellblatt aktualisiert werden können, das wäre wegen der sverweis-Formeln, die in den Originalquellen teilweise hinterlegt werden, einfacher.
Vielen Dank schon einmal im Voraus und ganz ganz herzliche Grüße
der verzweifelte Nutzer

Anzeige
AW: Mehrere Excel-Tabellen untereinander schreiben
19.11.2012 11:17:10
Peter
Hallo,
schönen Dank für das Hochladen der Datei. Ich gehe mal davon aus, dass jede Datei über ein oder mehrere Arbeitsblätter verfügt, die allesamt untereinander geschrieben werden sollen. Werde mich gleich an die Arbeit machen - es wird aber etwas dauern.
MfG
Peter Kloßek

Anzeige
AW: Mehrere Excel-Tabellen untereinander schreiben
19.11.2012 11:54:54
der
Hallo Peter,
toll, dass Du so schnell geantwortet hast. Es geht pro Datei nur um ein einziges Tabellenblatt, welches herauskopiert werden soll - die anderen Blätter sind: Adressliste für die SVerweise, Inhalte der Drop-Down-Felder und eventuell einige Pivot-Auswertungen. Für meine Datei ist aber jeweils nur ein einzelnes Blatt wichtig.
Toll, dass es Leute wie Dich gibt, die ihr Wissen Rat suchenden zur Verfügung stellen -- ganz herzlichen Dank dafür!
Der (jetzt nicht mehr) verzweifelte Nutzer

Anzeige
..was bedeutet die Info-Name.....
19.11.2012 12:09:26
robert
Hi Namenloser
Du solltest schon mit einem realen Namen abschliessen-siehe wie es Peter macht ;-)
Gruß robert

AW: Mehrere Excel-Tabellen untereinander schreiben
19.11.2012 13:23:01
Peter
Hallo,
schön, dass Du Dich noch mal gemeldet hast; ich war schon auf dem Holzweg gewesen. Es ist also nur ein Arbeitsblatt pro Datei. Bitte, schlage das zu kopierende Blatt auf und speichere die Datei auf einen gesonderten Pfad. Genauso alle anderen in Frage kommenden Dateien, einschließlich Deiner eigenen. Es dürfen hier keine anderen Dateien stehen. Die "Regie"-Datei bitte auf einen anderen Pfad speichern! In meiner Lösung kommen mehrere gleichartige Arbeitsblätter in einer Datei vor. Du kannst damit experimentieren und jeweils verschiedene Arbeitsblätter aufschlagen, dann speichern und die Konsolidierung vornehmen.
Hier die ZIP-Datei:
https://www.herber.de/bbs/user/82677.zip
Bitte, teile mir mit, ob es damit klappt oder ob noch Anpassungen vorgenommen werden müssen.
MfG
Peter Kloßek

Anzeige
AW: Mehrere Excel-Tabellen untereinander schreiben
20.11.2012 08:57:23
Dagmar
Hallo Peter,
vielen Dank für die Datei, ich sitze jetzt daran und werde schauen, ob es klappt.
Herzliche Grüße
Dagmar
(ich wusste nicht, dass man hier generell unter Klarnamen schreibt, sorry)

Muss man nicht, Hptsache (Vor)Name! ;-) Gruß owT
20.11.2012 10:46:57
Luc:-?
:-?

@Dagmar....
20.11.2012 14:25:24
robert
Hi Dagmar
Du kannst ruhig Deine Beiträge zB. mit "Verzweifelte" einstellen,
als Gruß am Ende sollte aber schon ein realer Name stehen ;-)
Gruß
robert

Anzeige
AW: @Dagmar....
21.11.2012 11:17:30
Dagmar
Hallo,
ich bin jetzt dabei, die Datei zu bearbeiten und das Makro anzupassen, damit ich dabei lerne, wie das Ganze funktioniert. Leider scheitere ich schon ziemlich am Anfang und bekomme immer eine Fehlermeldung, dass mit der Select Methode Range("A2:W5000").Select etwas nicht stimmt. Woran könnte das liegen?
Private Sub CommandButton2_Click()
'Hier wird der Bereich a2 bis w1000 geleert, damit dann die neuen DAten eingefügt werden können
Sheets("Auftrag").Select
Range("A2:W5000").Select
Selection.ClearContents
End Sub
Weiß jemand einen Rat für mich
Vielen Dank
Dagmar

Anzeige
Lösung gefunden für Select-Problem
21.11.2012 11:56:09
Dagmar
Hi,
Habe noch ein wenig herumprobiert, jetzt sieht es so aus und geht: 
Private Sub CommandButton2_Click()
Worksheets("Auftrag").Select
ActiveSheet.Range("A2:W5000").Select
Selection.ClearContents
End Sub
Mal sehen, ob der Rest auch klappt. Auf jeden Fall schon einmal vielen Dank an Peter vor allem. Werde mich wieder melden, wenn es nicht weiter geht.
Viele Grüße
Dagmar

Anzeige
AW: Lösung gefunden für Select-Problem
21.11.2012 16:30:42
Peter
Hallo Dagmar,
Vorsicht mit dem Löschen von Daten. Mein Lösungsansatz sieht vor, dass es eine Datei "Regie" gibt, aus der heraus das Ganze gesteuert wird. Gelöscht wird der Bereich "a2:w5000" im Arbeitsblatt "Konsolidierung" in der Datei "Regie" - und nicht in der Datei "Auftrag1". Man kann nicht hergehen, und Teile von dem Makro einfach woandershin versetzen, dann funktioniert das Ganze nicht mehr. Hier noch mal die Vorgehensweise:
1. Eröffne einen Pfad neu speziell für die Auftragsdateien.
2. Öffne die 1. Auftragsdatei und wähle das Arbeitsblatt aus, welches Du konsolidieren willst.
3. Speichere die Datei in den neu eingerichteten Pfad.
4. Verfahre ebenso mit den anderen Auftragsdateien.
5. Öffne die "Regie"-Datei (die kannst Du irgendwo unterbringen, jedoch nicht auf dem Pfad mit den Auftragsdateien).
6. Trage bitte unter "Sammelpfad für Auftragskonsolidierung" den Pfadnamen, den Du eingerichtet hast, ein.
7. Betätige dann den Button "Konsolidierung starten".
Wenn sich der Inhalt einer Auftragsdatei ändert, so verfahren wie oben beschrieben und die Datei in dem speziellen Pfad überschreiben (ersetzen). In der Datei "Regie" einfach neu starten. Die Aktualisierung befindet sich anschließend in dem Arbeitsblatt "Konsolidierung".
Wenn weitere Fragen auftauchen sollten, einfach nochmal melden.
Mit freundlichem Gruß
Peter Kloßek
Anzeige

Forumthreads zu verwandten Themen

Ordnerinhalt in Tabelle schreiben
Johann

Hallo Excel-Profis!
Ich brauch wieder einmal eure Hilfe.
Im Archiv habe ich mir den nachfolgenden Code besorgt und ein wenig verändert.
Der Code schreibt den Inhalt des aktuellen Ordners und der Unterordner in die Spalte B einer Tabelle und verlinkt noch dazu die einzelnen Einträge...
15.08.2008 17:19:52
Thread-ID: 1002256
8 Beiträge
Datensätze in Tabellenblätter schreiben
TomTom


Hi,
ich habe eine Excelmappe mit 4 Bättern. Auf dem ersten Blatt (Spalte A) stehen die Rohdaten drin. Die sehen in etwar so aus:
START;flag,2,23,,,,34,45,33,45,,,,,,,56
ATTEMPT;flag,1,45,,12,,34,,,45,,,,,7,,56
START;flag,2,23,,,,34,45,33,45,,,,,,,56
STOP;flag,3,45,,5,,,...
30.09.2008 13:43:00
Thread-ID: 1013375
3 Beiträge
Userform Textboxen Text in Tabelle schreiben
Erich

Hallo Excelprofis,
habe ein Problem und hoffe ich könnt mir weiterhelfen.
ich habe eine Userform mit 100 Textboxen
1. ich will den inhalt der Textboxen 1 - 50 in die Tabelle Gültigkeit Spalte A 1 bis A50 eintragen den inhalt der Textboxen 51 - 100 in die Spalte B 1 bis B50
2...
18.11.2008 19:16:31
Thread-ID: 1025756
6 Beiträge
Range in Tabelle schreiben
Bertram

Hallo zusammen,
ich sehe wahrscheinlich den Wald vor Bäumen nicht mehr.
Die angehängte Bsp-Datei ist nur ein Nachbau einer viel komplexeren Datei, sollte das Problem aber zeigen.
https://www.herber.de/bbs/user/57540.xls
Ich möchte im Blatt 'Ausgabe' ein Produkt wählen und im Be...
11.12.2008 10:06:00
Thread-ID: 1031945
7 Beiträge
Werte in Tabelle schreiben
uw

Hallo,
ich habe in einer Tabelle die Tagessummen, die in eine andere Tabelle übertragen werden sollen.
In dem Beispiel sind die Daten in dem Blatt "Ausgangstabelle".
Diese Tabelle wird jeden Tag aktualisiert.
In jedem neuen Monat steht wieder in Zelle "B2" der Monatserste.
P...
17.12.2008 16:58:50
Thread-ID: 1033661
6 Beiträge
2 Sheets auf einer Seite!??
Timmy

Liebe Excler,
ich moechte folgendes erreichen.
Und zwar habe ich Daten auf einem Spreadsheet, die ich unabhaengig voneinander bearbeiten will.
Ich habe eine Beispieldatei angehaengt und etwas dazu erlautert...
https://www.herber.de/bbs/user/59047.xls
Ich hoffe, ich habe es...
03.02.2009 19:43:19
Thread-ID: 1046763
3 Beiträge
Anzeige
Array in Tabelle schreiben
eres

Schönen Gruß in mein Lieblings-Forum,
ich lese sequentiell aus einer riesigen csv-Datei die ersten 50.000 Sätze in ein Array. Nach dem Einlesen möchte ich die Werte in ein sheet schreiben.
Dim HilfsArray(1 To 50000) As String
Dim i as long
Open Input_File For Input As #1
D...
08.04.2009 14:15:07
Thread-ID: 1067735
5 Beiträge
Inhalt in Tabellenblätter schreiben
StefanS

Hallo,
kurz vor Feierabend hätte ich noch eine kleine Frage an Euch:
Wie stelle ich es an, dass wenn der Inhalt der Zelle (1, 6) doppelt oder mehrfach vorkommt, das Register mit der nächsten Zahl beschrieben wird.
Beispiel:
Zelle (1, 6) hat den Wert 11 und folgt 4x untereinande...
12.05.2009 15:38:14
Thread-ID: 1074620
15 Beiträge
Pivottabelle über mehrere tabellenblätter
Rocky

Hallo Excelfans,
ich hab eine Datei mit drei identischen Tabellenblättern (Daten natürlich unterschiedlich).
ich möchte nun alle über eine Pivottablle auswerten.
Wie geht das am besten?
siehe Beispiel: https://www.herber.de/bbs/user/62378.zip
Gruß Rocky
Wenn unter den...
11.06.2009 18:24:19
Thread-ID: 1080807
9 Beiträge
Anzeige
Pivot aus mehreren Arbetsblättern
vespa

Hallo zusammen,
bin auf Excel 2007 umgestiegen. Ich versuche jetzt ein Pivot-Tabelle aus mehreren Arbeitsblättern zu erstellen. Kann mir jemand sagen wie das in Excel 2007 funktioniert?
Danke und Gruß
Vespa
21.07.2009 11:04:14
Thread-ID: 1090154
7 Beiträge
Mehrere Tabellen zusammenführen
Peter

Hallo,
ich habe folgende Herausforderung zu meistern, und hoffe auf Eure Hilfe!
Ich habe 12 Excel-Datein (Jan - Dez), die jeweils eine Tabelle mit den Spaltenüberschriften: Produktkürzel, Bezeichnung, Produktnummer und Anzahl enthalten. In den Zeilen stehen die jeweils im Monat verkauft...
29.07.2009 14:41:05
Thread-ID: 1092257
7 Beiträge
Altersdaten aus mehreren Arbeitsblättern ermitterl
GILARD@AOL.com

Hallo zusammen. Ich habe insgesamt fünf Arbeitsblätter in denen uner anderem in der Spalte F das Alter verschiedener Personen mit einer Formel berechnet wird. Nun möchte ich gerne wissen, wieviele Personen in der Altetsgruppe 0 bis 14, 15 bis 21, 22 bis 45, 46 bis 61 und älter als 61 sind.
...
03.09.2009 08:07:11
Thread-ID: 1100213
4 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Mehrere Excel-Tabellen untereinander zusammenführen

Schritt-für-Schritt-Anleitung

Um mehrere Excel-Tabellen untereinander zu schreiben, kannst Du ein Makro verwenden. Hier ist eine einfache Anleitung, um dies zu erreichen:

  1. Öffne Excel und erstelle eine neue Arbeitsmappe.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Füge ein neues Modul hinzu:

    • Klicke auf Einfügen > Modul.

  4. Kopiere den folgenden Code in das Modul:

    Sub TabellenZusammenfuehren()
   Dim ws As Worksheet
   Dim wsZiel As Worksheet
   Dim letzteZeile As Long
   Dim i As Integer

   Set wsZiel = ThisWorkbook.Sheets("Zusammenfassung") ' Arbeitsblatt für die Zusammenfassung

   For i = 1 To ThisWorkbook.Sheets.Count
       Set ws = ThisWorkbook.Sheets(i)
       If ws.Name <> "Zusammenfassung" Then
           letzteZeile = wsZiel.Cells(wsZiel.Rows.Count, 1).End(xlUp).Row + 1
           ws.UsedRange.Copy wsZiel.Cells(letzteZeile, 1)
       End If
   Next i
End Sub

  5. Schließe den VBA-Editor und kehre zu Excel zurück.

  6. Führe das Makro aus:

    • Gehe zu Entwicklertools > Makros, wähle TabellenZusammenfuehren und klicke auf Ausführen.

Diese Schritte ermöglichen es Dir, mehrere Tabellenblätter untereinander zusammenzuführen.

Häufige Fehler und Lösungen

  • Fehler: "Select Methode nicht gefunden"

    • Lösung: Stelle sicher, dass Du die richtigen Arbeitsblätter und Bereiche angibst. Verwende Worksheets("Name").Range("A2:W5000") anstelle von Select.

  • Fehler: Daten werden nicht kopiert

    • Lösung: Überprüfe, ob das Makro die richtigen Blätter berücksichtigt. Achte darauf, dass das Zielblatt existiert.

  • Fehler: Makro funktioniert nicht

    • Lösung: Stelle sicher, dass Du die Makros in der Datei aktivierst und dass Du die richtigen Berechtigungen hast.

Alternative Methoden

Wenn Du nicht mit Makros arbeiten möchtest, kannst Du auch die Funktion „Kopieren und Einfügen“ verwenden:

  1. Kopiere die Daten von einem Arbeitsblatt.
  2. Wechsle zum Zielarbeitsblatt, klicke auf die Zelle, unter der die Daten eingefügt werden sollen, und wähle Einfügen.
  3. Wiederhole den Vorgang für alle anderen Blätter.

Eine weitere Alternative ist die Verwendung von Power Query, um mehrere Excel-Dateien automatisch zusammenzuführen.

Praktische Beispiele

  1. Zusammenführen von zwei Excel-Tabellen: Wenn Du zwei Tabellen hast, die gleich aufgebaut sind, kannst Du sie einfach untereinander in ein neues Blatt einfügen.

    Beispiel:

    • Tabelle 1: A1:B10
    • Tabelle 2: A1:B10
    • Resultat im Zielblatt: A1:B20

  2. Dynamisches Zusammenführen: Mit Power Query kannst Du mehrere Excel-Dateien in einem Ordner automatisch zusammenführen. So bleibt die Übersichtlichkeit gewahrt und Du kannst jederzeit neue Daten hinzufügen.

Tipps für Profis

  • Verwende benannte Bereiche: Es kann hilfreich sein, benannte Bereiche in Deinen Excel-Dateien zu nutzen, um die Daten einfacher zu referenzieren.

  • Aktualisierungen automatisieren: Stelle sicher, dass Deine Makros so eingerichtet sind, dass sie Daten automatisch aktualisieren, wenn sich etwas in den Quellblättern ändert.

  • Fehlerprotokollierung: Füge eine Fehlerprotokollierung in Dein Makro ein, um Probleme schnell zu identifizieren.

FAQ: Häufige Fragen

1. Ist es möglich, mehrere Excel-Dateien automatisch zusammenzuführen? Ja, Du kannst VBA oder Power Query verwenden, um mehrere Excel-Dateien in einer Arbeitsmappe zusammenzuführen.

2. Wie kann ich zwei Excel-Tabellen untereinander zusammenführen, wenn sie unterschiedliche Spaltenbreiten haben? Du kannst die Spaltenbreiten manuell anpassen oder die Daten in eine einheitliche Struktur bringen, bevor Du sie zusammenführst.

3. Werden die Formeln beim Kopieren auch übernommen? Das hängt von Deiner Kopiermethode ab. Wenn Du „Werte einfügen“ wählst, werden nur die Ergebnisse übernommen, nicht die Formeln.

4. Wie kann ich Pivot-Tabellen aus mehreren Arbeitsblättern erstellen? Du kannst Pivot-Tabellen aus einem konsolidierten Arbeitsblatt erstellen oder die Funktion „PivotTable“ verwenden, um mehrere Datenquellen zu kombinieren.

Beliebteste Forumthreads (12 Monate)

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