Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
27.03.2020 09:31:18 |
Laura |
|
|
|
27.03.2020 10:35:13 |
Torsten |
|
|
Daten aus mehreren Dateien zusammenfassen |
27.03.2020 10:56:51 |
UweD |
|
|
|
27.03.2020 11:00:59 |
UweD |
|
|
Von:
UweD |
Datum:
27.03.2020 10:56:51 |
Views:
528 |
Rating:
|
Antwort:
|
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
27.03.2020 10:35:13 |
Torsten |
|
|
Daten aus mehreren Dateien zusammenfassen |
27.03.2020 10:56:51 |
UweD |
|
|
|
27.03.2020 11:00:59 |
UweD |
|
|