Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
920to924
920to924
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten aus mehreren Mappen zusammenfassen

Forumthread: Daten aus mehreren Mappen zusammenfassen

Daten aus mehreren Mappen zusammenfassen
08.11.2007 10:32:00
michi
Hallo Liebe Gemeinde,
ich hab ca. 60 arbeitsmappen, die ich auswerten will.
also aus tabellenblatt 1 bereich a15:c45, der dann ein eine neue arbeitsmappe kopiert werden soll. das ganze wie gesagt ca. 60 mal so dass aber die daten immer in diese eine mappe kopiert werde, damit ich sie dann dort auswerten kann.
Leider hab ich keine Ahnung wie ich das ganze automatisiert abelaufen lassen kann.
hasbs schon mit pivot probiert komm das aber nicht so richtig weiter.
hoffe ich habe mich einigermassen verständlich ausgedrückt.
danke für eure hilfe
michi

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten aus mehreren Mappen zusammenfassen
08.11.2007 11:52:00
Rudi
Hallo,
sollte klappen:

Sub DatenKopieren()
Dim oFS As Object, oFolder As Object, oFile As Object
Dim wksNeu As Worksheet, wksDaten As Worksheet
Dim strFolder As String
With Application.FileDialog(4)
.InitialFileName = "n:\"
.InitialView = 2
.Title = "Bitte einen Ordner wählen"
If .Show = -1 Then
strFolder = .SelectedItems(1)
End If
End With
If strFolder  "" Then
Application.ScreenUpdating = False
Set oFS = CreateObject("scripting.filesystemobject")
Set oFolder = oFS.getfolder(strFolder)
Set wksNeu = Workbooks.Add.Sheets(1)
For Each oFile In oFolder.Files
Set wksDaten = Workbooks.Open(oFile).Sheets(1)
wksDaten.Range("A15:C45").Copy wksNeu.Cells(65536, 1).End(xlUp).Offset(1, 0)
wksDaten.Parent.Close False
Next oFile
Application.ScreenUpdating = True
End If
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Daten aus mehreren Mappen zusammenfassen
08.11.2007 12:07:09
Chris
Servus Michi,
da gibt es so viele Beispiele im Archiv dafür! Aber, ich wll mal nicht so sein.

Sub t ()
Dim I As Integer
Dim DateiName As String
With Application.FileSearch
.NewSearch
.LookIn =" C\...." ' Hier dein Pfad
' .SearchSubFolders = True kann man optional setzten, falls nicht alle Dateien im  _
benannten Ordner sind, sondern evtl. in Unterordnern
.Filename = "*" & ".xls" ' Alle Dateien (xls) im Pfad
If .Execute() > 0 Then
For I = 1 To .FoundFiles.Count
DateiName = Dir(.FoundFiles(I))
Workbooks.Open Filename:= .FoundFiles(I)
ActiveWorkbook.Sheets(1).Range("A15:C45").Copy ThisWorkbook.Sheets(1).Cells( _
Rows.Count, 1).End(xlUp).Offset(1, 0)
ActiveWorkbook.Close
Next I
End if
End With
End Sub


Ich gehe davon aus, dass alle Arbeitsmappen in einem Ordner liegen.
Gruß
Chris

Anzeige
AW: Daten aus mehreren Mappen zusammenfassen
08.11.2007 12:26:00
michi
jeppo..funktioniert alles bestens. vielen dank euch beiden.
hab im übrigen schon vorher geschaut aber nix passendes gefunden.
danke nochmal
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige