Thema Datum  Von Nutzer Rating
Antwort
27.03.2020 09:31:18 Laura
NotSolved
27.03.2020 10:35:13 Torsten
NotSolved
Rot Daten aus mehreren Dateien zusammenfassen
 27.03.2020 10:56:51 UweD
NotSolved
27.03.2020 11:00:59 UweD
NotSolved

Ansicht des Beitrags:
Von:
UweD		 Datum:
27.03.2020 10:56:51		 Views:
515		 Rating:
     
Antwort:
  Ja
Thema:
Daten aus mehreren Dateien zusammenfassen

Hallo

 

das ginge so...

 

in ein Modul

 

Option Explicit

Sub Feedback()
    On Error GoTo Fehler
    
    Dim Pfad As String, Datei As String, Ext As String, Zeile As Long
    Dim TBM As Worksheet, TBx As Workbook, Blatt
    Dim RNG1 As Range, RNG2 As Range
    
    
    Set TBM = ThisWorkbook.Sheets("Tabelle1")
    Pfad = "X:\temp\Feedback\" ' mit \ am Ende
    Ext = "*.xlsx"
    
    Zeile = 2
    With TBM
        'reset
        .UsedRange.ClearContents
        
        Datei = Dir(Pfad & Ext)
        Do While Len(Datei) > 0
        
            'Datei öffnen
            Set TBx = Workbooks.Open(Filename:=Pfad & Datei)
            
            For Each Blatt In TBx.Worksheets
                Select Case Blatt.Name
                    Case "Arbeit", "Kosten", "Lager", "Zeit", "Data"
                        'mache nichts
                    
                    Case Else
                        'kopieren 12x
                        .Cells(Zeile, 2).Resize(12, 1) = Blatt.Range("C4")
                        
                        'kopieren Bereich
                        .Cells(Zeile, 3).Resize(12, 4).Value = Blatt.Range("M10:P21").Value
                        
                        Zeile = Zeile + 12

                End Select
            Next
            
            'Schließen ohne Speichern
            TBx.Close False
            
             'nächste Datei
             Datei = Dir()
    Loop
    
    End With

    Err.Clear
Fehler:
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear

End Sub

 

LG UweD

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
27.03.2020 09:31:18 Laura
NotSolved
27.03.2020 10:35:13 Torsten
NotSolved
Rot Daten aus mehreren Dateien zusammenfassen
 27.03.2020 10:56:51 UweD
NotSolved
27.03.2020 11:00:59 UweD
NotSolved