Thema Datum  Von Nutzer Rating
Antwort
Rot Mehrere Excel Dateien zu einer Zusammenfassen
 08.05.2018 09:37:43 lionel2
NotSolved
08.05.2018 11:24:18 Gast63094
NotSolved

Ansicht des Beitrags:
Von:
lionel2		 Datum:
08.05.2018 09:37:43		 Views:
2059		 Rating:
     
Antwort:
  Ja
Thema:
Mehrere Excel Dateien zu einer Zusammenfassen
Hallo, Ich habe ca. 90 Excel Dateien, die alle eine Tabelle mit genau den selben Bezeichnungen enthalten (Material, Werk, Bezeichnung, Stückzahl,...). Nun möchte ich diese 90 Dateien zu einer zusammenführen und verwende folgendes Makro: Sub Zusammenfuehren() Dim strVerzeichnis As String Dim strTyp As String Dim strDateiname As String Dim lngZeile As Long strTyp = "*.xlsx*" Application.ScreenUpdating = False strVerzeichnis = ThisWorkbook.Worksheets("Sheet1").Range("A1") '<==Verzeichnis steht in A1 If Right(strVerzeichnis, 1) <> "\" Then strVerzeichnis = strVerzeichnis & "\" strDateiname = Dir(strVerzeichnis & strTyp) lngZeile = 2 With ThisWorkbook.Worksheets("Tabelle1") '<==Zieltabelle anpassen Do While strDateiname <> "" Workbooks.Open Filename:=strVerzeichnis & strDateiname ActiveWorkbook.Worksheets(1).Range("A1:L1020").Copy .Cells(lngZeile, 1) '<==Quelltabelle anpassen .Range(.Cells(lngZeile, 3), .Cells(lngZeile + 14, 3)) = ActiveWorkbook.Name 'Daten in Quelltabelle löschen ActiveWorkbook.Worksheets(1).Range("A1:L1020").ClearContents '<==Quelltabelle anpassen 'Quellmappe speichern und schließen ActiveWorkbook.Close True strDateiname = Dir lngZeile = lngZeile + 15 Loop End With Application.ScreenUpdating = True End Sub Leider kommt bei der Zeile: strVerzeichnis = ThisWorkbook.Worksheets("Sheet1").Range("A1") immer eine Fehlermeldung, dass der Index außerhalb des gültigen Bereichs liegt. Selbstverständlich habe ich für A1 das passende Verzeichnis (F:\Config\Profil\Desktop\PCC SAP Listen\Sicherung PCC Stücklisten\5200) eingefügt. Könnte mir hier vielleicht jemand helfen?

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Mehrere Excel Dateien zu einer Zusammenfassen
 08.05.2018 09:37:43 lionel2
NotSolved
08.05.2018 11:24:18 Gast63094
NotSolved