Hallo,

nur ein Lösungsansatz,

in jedem Ordner erst mal die 36 Dateien zusammenfassen und dann diese Sammeldateien in einer Datei zusammenfassen.

Gruß

Helmut

Hallo Helmut,

Danke für den Tipp, hab ich dann auch so gemacht.

Dachte aber es geht irgendwie per Makro.

Gruß

m-o-m

Hallo,

eine Lösung über Makro ist bestimmt machbar, aber dazu wären ein paar Angaben mehr erforderlich, wie z.B. Dateinamen, Ordnerbezeichnung.

Gruß

Helmut

Hallo m-o-m,

nachfolgend mal ein Beispiel, dass Dir alle Exceldateien in einem Verzeichnis mit allen Unterverzeichnissen öffnet, den Wert aus Zelle B2 ausließt und zu dem Wert einer Variablen (Summe_B2) dazu addiert. Am Ende wird Dir das Ergebnis in einer MessageBox angezeigt.

Kopiere das Makro in ein StandardModul und starte das Makro "Summenbildung_start", da es ansonsten nicht funktioniert.

[b]Option Explicit

Dim Pfad As String
Dim Obj As Object
Dim Dateien As Object
Dim Durchläufe As Object
Dim Dateityp As Object
Dim i As Integer
Dim j As Integer
Dim Summe_B2 As Variant

Sub Summenbildung_start()
Pfad = "C:\Beispielmappen\"
Set Obj = CreateObject("Scripting.FileSystemObject")
Set Dateien = Obj.getfolder(Pfad)
Summenbildung
MsgBox Summe_B2
End Sub

Sub Summenbildung()
Application.ScreenUpdating = False
For Each Dateityp In Dateien.Files
If Right(Dateityp.Name, 4) = ".xls" Then
GetObject (Dateityp)
Summe_B2 = Workbooks(Dateityp.Name).Sheets(1).Range("B2") + Summe_B2
End If
Next
For Each Durchläufe In Dateien.subfolders
Set Dateien = Durchläufe
Summenbildung
Next
End Sub[/b]

Bei Problemen melde Dich. Allerdings dann bitte mit mehr angaben, wie bereits von Helmut angesprochen.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo Helmut, hallo Oliver,

Makro funzt leider nicht. (Wahrscheinlich mache ich einfach irgendwas falsch)
Ich habe die Makros in einer Excel eingefügt und diese im Ordner Rechnungen gespeichert.

Hier die Infos:

ein Ordner: Rechnungen

in diesem Ordner sind 10 Ordner, die jeweils benannt sind: 0107, 0207,0307 usw.

in diesen Ordnern sind jeweils 36 Exceldateien die wie folgt benannt sind:

in Ordner 0107: Name_01_01_KB, Name_02_01_KB, Name_03_01_KB usw.

in Ordner 0207: Name_01_02_KB, Name_02_02_KB, Name_03_02_KB usw.

in Ordner 0307 etc. wie oben

Name(überall identisch)_01(steht für das Objekt)_02(steht für den Monat)_KB(überall identisch)


In der Zeile bleibt er hängen:

Sub Summenbildung()
Application.ScreenUpdating = False
For Each Dateityp In Dateien.Files

Ich hoffe die erforderlichen Infos verständlich und ausreichend gegeben zuhaben.

Und auf jeden Fall schonmal ein großes Danke für die Mühe.

Gruß

m-o-m

Hallo m-o-m,

was sind das für Dateien, die ausgelesen werden sollen?

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hi, ich nochmal,

Du musst logischerweise im Makro in der Zeile

Pfad = "C:\Beispielmappen\"

den Pfad anpassen.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Und nochmal ich,

was man nicht im Kopf hat, hat man in den Händen...

Die Datei, in der sich das Makro befindet, darf nicht im gleichen Ordner wie die auszulesenden Dateien liegen.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}