Thema Datum  Von Nutzer Rating
Antwort
06.09.2017 14:32:50 Peter
NotSolved
Blau Daten aller EXCELs eines Ordners zusammenfassen
 08.09.2017 19:07:13 Ben
Solved
11.09.2017 12:33:36 Peter
NotSolved

Ansicht des Beitrags:
Von:
Ben		 Datum:
08.09.2017 19:07:13		 Views:
558		 Rating:
     
Antwort:
 Nein
Thema:
Daten aller EXCELs eines Ordners zusammenfassen

Hallo Peter,

mit diesem Code kann man aus allen Arbeitsmappen die gesuchte Tabelle importieren:

Sub ImportFiles()
    Dim sFilename As String
    Dim sPath As String, sTable As String, sAddr As String
    Dim wbk As Workbook, rng As Range
    Dim rngP As Range
    Dim lngRow As Long
    sPath = ThisWorkbook.Names("Dateipfad").RefersToRange.Value
    sPath = sPath & IIf(Right(sPath, 1) = "\", "", "\")
    sTable = ThisWorkbook.Names("Registerblatt").RefersToRange.Value
    sAddr = ThisWorkbook.Names("StartZelle").RefersToRange.Value & ":" & ThisWorkbook.Names("EndZelle").RefersToRange.Value
    
    sFilename = Dir(sPath & "*.xlsx")
    lngRow = 5
    Do Until sFilename = ""
        Set wbk = Application.Workbooks.Open(sPath & sFilename)
        Set rng = wbk.Worksheets(sTable).Range(sAddr)
        rng.Copy
        ThisWorkbook.Worksheets(1).Cells(lngRow, 2).PasteSpecial xlAll
        ThisWorkbook.Activate
        ThisWorkbook.Worksheets(1).Activate
        Set rngP = Selection
        rngP.Columns(1).Offset(ColumnOffset:=-1).Value = sPath & sFilename
        lngRow = lngRow + rng.Rows.Count
        Application.CutCopyMode = False
        wbk.Close False
        sFilename = Dir()
        
        VBA.DoEvents
    Loop
End Sub

LG, Ben

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
06.09.2017 14:32:50 Peter
NotSolved
Blau Daten aller EXCELs eines Ordners zusammenfassen
 08.09.2017 19:07:13 Ben
Solved
11.09.2017 12:33:36 Peter
NotSolved