Daten aus anderer Mappe auslesen - Nr. 3

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub auswerten() Dim name As String Dim pfad As String Dim datei As Workbook Dim ziel Dim ende As Long Dim daten Dim datum As String Dim zeile As Long Dim summe As Double Dim i As Long, j As Long Dim quellspalte Dim summen(5) pfad = "meinPfadzurDatei" 'hier den Pfad zur Datein eintragen , könnte man auch _ raussuchen lassen name = "quelle.xls" 'hier den Dateinamen eintragen Set ziel = ActiveSheet ende = ziel.Cells(ziel.Rows.Count, 1).End(xlUp).Row quellspalte = Array(7, 8, 9, 14, 15) Application.ScreenUpdating = False If Right(pfad, 1) "\" Then pfad = pfad & "\" Set datei = Workbooks.Open(pfad & name) daten = datei.Worksheets(1).UsedRange datei.Close saveChanges:=False datum = daten(2, 3) zeile = 0 For i = 3 To 7 summe = 0 For j = 0 To UBound(quellspalte) summe = summe + daten(i, quellspalte(j)) Next summen(zeile) = summe zeile = zeile + 1 Next For zeile = 1 To ende If ziel.Cells(zeile, 1) = datum Then ziel.Cells(zeile, 3) = summen(2) ziel.Cells(zeile, 4) = summen(0) ziel.Cells(zeile, 5) = summen(1) ziel.Cells(zeile, 6) = summen(3) Exit For End If Next zeile Application.ScreenUpdating = True MsgBox "Die Auswertung ist beendet!", , "Ende" End Sub

Hallo Andreas,
dadurch, dass die Kostenstellenspalten in der Praxis ganz unterschiedlich angeordnet sein können, ist die Lösung des Problems leider nicht ganz einfach. Ich habe neben Deinem Auswertungs-Schema eine Hilfskonstruktion gesetzt. Dabei gehe ich davon aus, dass sich die Anzahl der Kostenspalten nicht erhöht.
Ich schlage die folgende Dateiorganisation vor.
1) Lege einen Speicherordner für alle Quelldateien sowie die Zieldatei fest. In meinem Beispiel E:\Musterloesungen\Andreas_Quelle_und_Ziel\.
2) Alle auszuwertenden Quelldateien bekommen einen einheitlichen Namensstamm. In meinem Beispiel Quelle. Der Namensstamm wird durch den Monat (einschl. Jahr) ergänzt, die Verbindung erfolgt durch einen Unterstrich. Dahinter die Dateiendung .xlsx.
3) Da, wo dies in dem Makro1 der Zieldatei vermerkt ist, bitte die Bezeichnungen auf Deine Namen abändern.
4) Die gelben Felder in der Zieldatei bitte entsprechend ausfüllen.
5) Speichere die Dateien auf den von Dir gewählten Pfad ab.
Anschließend kannst Du mit dem Test beginnen: Monat auswählen und Ausführen klicken.
Hier die Zieldatei
https://www.herber.de/bbs/user/124995.xlsm
und hier die drei Quelldateien
https://www.herber.de/bbs/user/124996.xlsx
https://www.herber.de/bbs/user/124997.xlsx
https://www.herber.de/bbs/user/124998.xlsx
Bei dieser Lösung ist es egal, in welchen Spalten die gewünschten Kostenstellen stehen. Auch die Reihenfolge der Kosten in den Quelldateien spielt keine Rolle. Der Lohn sollte jedoch stets an letzter Stelle stehen. Die Auswertung kann auch um weitere Kostenstellen ergänzt werden (Spalten M bis Z).
Bitte mal ausprobieren; Rückmeldung wäre schön.
Mit freundlichem Gruß
Peter Kloßek

Hallo Andreas,
nach ausgiebigen Tests habe ich jetzt keinen Fehler mehr feststellen können. Hiermit sende ich Dir die Dateien.
Diese Datei bitte speichern unter "Speicherprogramm1.xlsm"
https://www.herber.de/bbs/user/125039.xlsm
Die folgende Datei bitte speichern unter "Ersatzmappe.xlsx"
https://www.herber.de/bbs/user/125040.xlsx
Die Arbeitsmappe "Speicherprogramm1.xlsm" bitte aufrufen und in den gelben Feldern Deine Angaben eintragen. Danach müssen die Makros an den benannten Stellen auf Deine Bedürfnisse geändert werden. Dies betrifft den Makro10 im Modul 1. Außerdem muss das automatische Öffnen aktiviert und geändert werden. Klicke hierzu bitte bei den Makros auf "Diese Arbeitsmappe". Die Scharfstellung erfolgt durch das Entfernen der Hochkommas (') am Anfang der Befehle. Ich empfehle, vor der Aktivierung die Datei zu speichern unter "Speicherprogramm1.xlsm".
Wenn Du alle Änderungen und die Aktivierung durchgeführt hast, bitte das Speicherprogramm abspeichern unter "Speicherprogramm.xlsm" (ohne die 1). Achtung, auf diese Datei kannst Du später nicht mehr zugreifen! Daher das Duplikat unter "Speicherprogramm1.xlsm"
Für die automatische Speicherung gehe bitte in dieser Reihenfolge vor:
1) Alle Anwendungen schließen, der Windows-Explorer kann geöffnet bleiben.
2) Öffne die Lexware-Datei (Export)
3) Rufe die Datei "Speicherprogramm.xlsm" auf
Gleichzeitig wird die "Ersatzmappe.xlsx" aufgerufen. In diese leere Mappe wird der Inhalt der Lexwaremappe kopiert und dann mit dem eingetragenen Datei-Namensstamm plus Monat/Jahr gespeichert. Zum Schluss wird das Auswertungstool, welches Du erfolgreich getestet hast, geladen und die anderen Dateien geschlossen. Sollte die Lexware-Datei fehlen oder sollten mehr als 3 Dateien im Hauptspeicher stehen, kommt eine Fehlermeldung und das Programm wird beendet. Nach dem Laden der Lexware-Datei genügt also ein Doppelklick im Internet-Explorer auf die Datei "Speicherprogramm.xlsm".
Mit freundlichem Gruß
Peter Kloßek

Beliebteste Forumthreads (12 Monate)

Daten aus anderer Mappe auslesen - Nr. 3

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

346 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten aus anderer Mappe auslesen - Nr. 3

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

346 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread