Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1568to1572
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
1568to1572
1568to1572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mehrere Excel-Dateien zusammenfügen

mehrere Excel-Dateien zusammenfügen
12.07.2017 10:01:28
Tobi
Ich bräuchte dringend eure Hilfe, da ich mich mit Makros in Excel überhaupt nicht auskenne.
Und zwar habe ich folgendes Problem:
Ich habe 1200 Excel-Dokumente in einem Ordner mit jeweils einem Arbeitsblatt und dem gleichen Aufbau/Form.
Aus diesen Dokumenten möchte ich in einem neuen Dokument jeweils die Zelle D5 und D13 der 1200 Tabellen in eine Gesamttabelle automatisiert kopieren-sodass der Wert der Zelle D5 in A1 bis Ax und D13 in B1 bis Bx kopiert wird.
Ich danke im Voraus für eure Hilfe !!!

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrere Excel-Dateien zusammenfügen
12.07.2017 11:06:53
Tino
Hallo,
kannst mal so testen.
Tabellenname der in den externen Dateien verwendet wird anpassen
Pfad wo diese liegen anpassen
Ausgabe Tabelle anpassen
Sub Test()
Dim ArFiles(), ArAusgabe(), sPath$, sDir$, n&
Dim ExTabellenName$

'Name der Tabelle in der externen Datei 
ExTabellenName = "Tabelle1"

'Pfad zum Ordner 
sPath = "C:\Ordner\Ordner\"
ChDrive sPath
ChDir sPath

sDir = Dir(sPath & "*.xls?", vbNormal)
Do While sDir <> ""
    n = n + 1
    Redim Preserve ArFiles(1 To n)
    ArFiles(n) = sDir
    sDir = Dir$()
Loop

If n > 0 Then
    Redim ArAusgabe(1 To Ubound(ArFiles), 1 To 3)
    For n = Lbound(ArFiles) To Ubound(ArFiles)
        'Datei-Name 
        ArAusgabe(n, 1) = ArFiles(n)
        'Zelle D5 
        ArAusgabe(n, 2) = "='" & sPath & "[" & ArAusgabe(n, 1) & "]" & ExTabellenName & "'!R5C4"
'        Zelle D13 
        ArAusgabe(n, 3) = "='" & sPath & "[" & ArAusgabe(n, 1) & "]" & ExTabellenName & "'!R13C4"
    Next n
    
    With Tabelle1 'Ausgabe Tabelle 
        'alte Daten löschen ab A2 
        .Range("A2", .Cells(.Rows.Count, 1)).EntireRow.Delete
        'Ausgabe ab A2 
        With .Range("A2").Resize(Ubound(ArAusgabe), Ubound(ArAusgabe, 2))
            .FormulaR1C1 = ArAusgabe 'Formel einfügen 
            .Value = .Value 'nur Werte 
            .EntireColumn.AutoFit 'Spaltenbreite einstellen 
        End With
    End With
End If
End Sub
Gruß Tino
Anzeige
AW: mehrere Excel-Dateien zusammenfügen
12.07.2017 11:27:01
Tobi
Vielen Dank für die schnelle Antwort
Eine Frage habe ich jedoch noch...Was meinst du mit "Tabellenname der in den externen Dateien verwendet wird anpassen" - es sind 1200 verschiedene Tabellennamen
AW: mehrere Excel-Dateien zusammenfügen
12.07.2017 11:36:05
Tino
Hallo,
es gibt diese 1200 Excel-Files und in dieser ist ja eine Tabelle und diese hat einen Namen.
Wenn alle Dateien gleich aufgebaut sind,
müsste in jeder dieser eine Tabelle mit dem Namen Tabelle1, Tabelle2 oder Tabelle3 enthalten sein.
Gruß Tino
AW: mehrere Excel-Dateien zusammenfügen
12.07.2017 12:03:23
Tobi
ok also sozusagen der Name des Arbeitsblattes
Zum Testen muss ich die Zeile...
5 - mit dem Namen des Arbeitsblattes
7 - Pfad meiner Daten
10 - Ausgabedatei
...ändern.
Oder noch weitere Zeilen ?
Bitte zusätzlich um eine einfache Kurzanleitung, wie ich es in Excel einbringe.
Danke !!!
Anzeige
genau so sollte es gehen...
12.07.2017 12:12:17
Tino
Hallo,
zumindest in meinen Test-Aufbau geht es so der nach deiner Beschreibung aufgebaut war.
Gruß Tino
AW: mehrere Excel-Dateien zusammenfügen
12.07.2017 12:58:05
Tobi
Bitte noch um eine Beschreibung wie ich das Makro in Excel erstelle
Danke
AW: mehrere Excel-Dateien zusammenfügen
12.07.2017 14:19:33
Tino
Hallo,
  • Öffne Excel

  • Drücke Alt+F11

  • Gehe ins VBAProject dieser Exceldatei

  • Rechte Maus – Einfügen – Modul

  • Code in diesem Modul einfügen

  • Gehe auf die Tabelle, Zeichne einen Button und weise dem dieses Makro zu.

    • Gruß Tino

    108 Forumthreads zu ähnlichen Themen

    Aus zwei Tabellen eine Machen
    SebastianSchelb

    Hallo ich brauche euere Hilfe. Aleine schaffe ich es einfach nicht.
    Ich habe eine zwei Tabelle mit Wörtern die zusammengefasst werden soll in eine Tabelle, in welcher aber kein Wort doppelt sein soll. Die anzahl der Wörter der 1. und 2. Tabelle vareieren von Tag zu Tag
    Tabelle 1 (in der...
    06.10.2008 14:52:00
    Thread-ID: 1014455
    5 Beiträge
    Anzeige
    2 Word-Dateien zusammenfügen
    HansP

    Hallo! Im Kern wäre das eine Frage für ein Word-Forum, aber das Ganze muss über Excel laufen...
    Ich füge in 2 Word-Dateien Daten aus einer Excel-Tabelle ein. Klappt prima. Nun muss ich aber, die beiden Word-Dateien zu einer zusammenfügen. Ich aus organisatorischen Gründen, kann ich die beid...
    03.07.2009 15:47:16
    Thread-ID: 1086110
    2 Beiträge
    aus mehreren Datesätze EINER machen
    Joachim

    Hallo zusammen,
    vielleicht kann mir jemand helfen: Ich habe eine Excelmappe mit Daten ab Zeile 15.
    Jede Zeile ist immer ein Datensatz. Ein Datesatz sieht so aus (ich nenn nur mal die betroffenen Zellen):
    Spalte D :
    reiner Text (string) zB: "LAGER"
    Spalte E :
    Preis (Zahl...
    14.09.2009 14:27:52
    Thread-ID: 1102643
    14 Beiträge
    Anzeige
    Mehrere Abfragen in einer Summe zusammenfassen
    Jan

    Liebe Exel-Profi's,
    ich habe ein Problem bei einer Formel. Ich möchte auf einer Übersichtsseite (Tabellenblatt 1) in einer Zelle eine Summe mehrerer Abfragen zusammen fassen. Im Tabellenblatt 2 werden Daten eingegeben.
    Im Klartext soll folgendes abgefragt werden:
    Wenn A1 = "Versich...
    14.09.2011 07:32:16
    Thread-ID: 1229794
    7 Beiträge
    aus 2 Listen eine machen
    Uppe

    Hallo Experten,
    ich steh grad etwas auch dem Schlauch. Das Internet hat mir bisher leider auch nicht geholfen, vielleicht suche ich nach den falschen Schlagwörtern!?
    Also, mein Problem:
    Ich habe eine Liste1 mit Servern und diversen Daten zu diesen. Die Servernamen kommen in der List...
    12.07.2012 13:22:57
    Thread-ID: 1270771
    5 Beiträge
    Berechnung in mehreren Dateien, zusammenfügen
    Tobias

    Hallo!
    Ich benötige nochmal euere Hilfe.
    Ich habe einen Ordner mit vielen .xls Dateien. Aus jeder dieser Dateien muss ich die Werte von A1:A30 (in unterschiedlicher Reihenfolge) in eine Vorlage kopieren. In der Vorlage werden von allen .xls Dateien bestimmte Werte zusammengefasst. Hier...
    05.11.2012 10:30:01
    Thread-ID: 1285296
    3 Beiträge
    Mehrere Exceldateien in einer Datei zusammenfassen
    Chris

    Hallo Forum,
    ich habe folgendes Problem:
    ch bin total Ratlos, habe ein paar ansätze, aber nichts konkretes bin in Makro Programmierung nicht wirklich gut.
    Folgendes Szenario:
    Ich habe mehrere Exceldateien mit gleicher Struktur in einem Verzeichnis liegen. Alle diese Dateien möch...
    19.02.2013 15:03:28
    Thread-ID: 1300053
    4 Beiträge
    alle Dateien im Verzeichnis als pdf speichern
    Uwe

    Hallo,
    wie kann man alle xls-Dateien in einem Verzeichnis als pdf-Datei speíchern.
    26.04.2013 09:27:18
    Thread-ID: 1310572
    4 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
    4
    1
    1
    13
    2
    6
    4
    2
    3
    3
    2
    1
    5
    2
    2
    5
    1
    1
    1
    6
    3
    10
    1
    1
    2