Habe leider nichts zu dem Thema gefunden, wenn jemand ein ähnliches Problem schon gelöst hat wäre ich auch für ein Link dankbar.
Die Komplexität des problems ist folgende:
1. Die Dateien werden Maschinel erstellt (Täglich oder fast Täglich) besitzen alle den selben Namen (können also nicht gleichzeitig geöffnet werden bzw. in ein Ordener reinkopiert werden)
2. Die Auswertung dieser Dateien soll ein mal im Monat erfolgen und ist sehr aufwendig da etwa 20-30 Ordener * 1 Datei * 4 Reiter/Arbeitsblätter
3. Hilfreich wäre wenn man alle Werte aus den 4 Arbeitsblätter und 20 Exceldateien zu einer Tabelle zusammenfassen könnte. (Der Tabellenkopf ist überal gleich)
4. Die Daten liegen immer im Bereich (B3 bis F3-200) "Datum" "Uhrzeit" "Nummer" "Anzahl" "Variante" (ein Arbeitsblatt kan auch leer sein)
Folgenden code konnte ich schon finden um die 4 Arbeitsblätter einer Datei zu Konsolidieren.
Sub Konsolidieren()
'Konsolidierung ohne Überschriften ( Zeile 1 )
Dim Wks As Worksheet
Dim Bereich As Range
Dim strLC As String
Dim i As Integer
Set Wks = Worksheets.Add
Wks.Name = "Konsolidierung"
For i = 2 To Worksheets.Count
With Worksheets(i).UsedRange
strLC = .Cells(.Rows.Count, .Columns.Count).Address
Set Bereich = .Range("A2:" & strLC)
Bereich.Copy Destination:= _
Wks.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End With
Next i
End Sub
Dieser Code bringt mich zwar einen kleinen Schrit weiter aber ich muss denn in 20 Dateien ausführen und hab dann immer noch 20 Dateien in 20 Ordnern die ich auswerten soll.
Würde mich freuen wenn mir jemand helfen kann.
MfG Alex
|