Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
920to924
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige