Daten aus mehreren Mappen per Makro sammeln

Hallo Excel-Profis,
ich hatte gestern schon mal eine Frage, ob man mit mehreren Usern an einer Excel-Datei arbeiten kann:
((((((((((((((((ich habe in unserem Unternehmen ein Programm in dem mehrere Anwender buchen.
Alle Buchungen werden in ein separates Blatt per Makro übertragen.
Nun sollen mehrere Anwender buchen - wie kann man das realisieren wenn die Buchungen eigentlich in einer Datei landen sollen?
Kann man wie bei Access mehrere in die gleiche Datei buchen lassen?))))))))))))))))))))
Aus den Antworten habe ich entnommen, dass die einzig wirklich sichere Möglichkeit das sammeln der Daten in eine separate Datei ist (hatte ich schon befürchtet).
Deswegen hier noch mal das Problem - leider weiß ich nicht, wie man so was per Makro lösen kann:
Meine einzige andere Idee ist, mehrere Excel-Dateien 1,2,3... zu machen und in einer separaten Datei alles zusammen zu ziehen?
Wenn das die einzige Lösung ist, hat jemand einen Code der so was macht?
Das Tabellenblatt heißt "Liste", Der Bereich ist von A2:W? (ändert sich ja immer)
Die Dateien würde ich in das Verzeichnis C:\Werte legen und die heißen dann Fracht1.xls, Fracht2.xls.....
Die Datei die alles sammelt würde dann FrachtGesamt heißen - wenn ich die in ein separates Verzeichnis lege, könnte man vielleicht sogar einfach alle Dateien im Verzeichnis C:\werte sammeln - egal wie viele das sind - geht das?
Wäre toll, wenn jemand eine Idee hätte.
Gruß Lutz

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Herbert,
kann sein, dass Du recht hast aber bei nicht immer gleich bleibenden Bereichen geht das nicht so gut.
Habe jetzt ein Makro gefunden, dass fast perfekt ist:

Sub Konsolidierung()
Dim MySheet As Worksheet ' aktuelles Arbeitsblatt
Dim strPath As String ' Dateipfad zum Auslesen der Dateien
Dim strFile As String ' Quelldatei
Dim wkbInput, meins As Workbook ' Quell-Arbeitsmappe
Dim wksInput As Worksheet ' Quell-Registerblatt
Dim lngTargetRow As Long ' Zeilenzähler für die Bewertungsinformationen
Dim lRow As Long ' Schleifenzähler
Dim lCol As Long ' Schleifenzähler
Dim delta As Integer
Application.DisplayAlerts = False
delta = 0
Set MySheet = ActiveSheet
Set meins = ActiveWorkbook
strPath = "C:\Fracht\Daten"
'strPath = ActiveWorkbook.Path
' Verzeichnis durchgehen und alle Dateien auslesen
strFile = Dir(strPath & "\*.xls")
Do While strFile  "" ' Schleife beginnen
If strFile = ActiveWorkbook.Name Then
' Zieldatei natürlich übergehen
Else
' Quelldatei öffnen
' und 1. Registerblatt auswählen
Set wkbInput = Application.Workbooks.Open(strPath & "\" & strFile)
Set wksInput = wkbInput.Worksheets("Liste")
' Daten auslesen und in Auswertung kopieren
wksInput.Activate
wksInput.Cells(2, 10).Select
Selection.Copy
meins.Activate
MySheet.Activate
MySheet.Cells(2 + delta, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
delta = delta + 1
' Datei schließen
wkbInput.Close
Set wkbInput = Nothing
End If
strFile = Dir ' Nächsten Eintrag abrufen
Loop
'MsgBox "Ich habe Fertig!"
End Sub

Das einzige was ich noch brauche ist in dieser Zeile:
wksInput.Cells(2, 10).Select
Der Bereich muß von A2:W? gehen, d.h. von A2 bis Spalte W und so weit runter wie das Blatt gefüllt ist - wie muß man das ändern?
Gruß Lutz

Beliebteste Forumthreads (12 Monate)

Daten aus mehreren Mappen per Makro sammeln

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread