Informationen aus geschlossenen Dateien

Liebe Excel-Freak´s...
seit Tagen beobachte ich dieses Forum und finde es sehr gut, wie untereinander geholfen wird...! Ist heute nicht mehr wirklich "normal":
Trotzdem habe ich zu meinem Problem noch keine wirkliche Lösung gefunden:
Ich habe in einem separatem Ordner alle Angebote des Monats gestellt. Immer das selbe Layout. Nur ist jedes einzelne Angebot natürlich unter einem anderen Namen gespeichert und enthält andere Werte.
Jetzt möchte ich in einer übergeordneten Datei diese erfaßten Angebote "auslesen" (Kunden-Nr., Name, Wert, etc.), um einen Überblick zu bekommen, was wann an wen angeboten wurden.
Meine Frage: Geht das überhaupt und wenn ja, wie??? Habe leider nicht wirklich VBA-Kenntnis, bin jedoch in allem anderen, was EXCEL betrifft, schon versiert...!
Vielen Dank für Unterstützung.
Gruß, Ingo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Ingo,
kopier folgendes Makro in eine neue Arbeitsmappe (mit Alt+F11 in den VBA-Editor gehen, dort mit Einfügen-Modul ein neues Modul einfügen und das Makro in das rechte Fenster kopieren).
Mit:


ThisWorkbook.Sheets(1).Range("A65536").End(xlUp).Offset(1, 2) = _
Workbooks(f.Name).Sheets(1).Range("Verweis auf Zelle Wert")

wird jeweils ein Merkmal aus jeder Datei in deine leere Arbeitsmappe kopiert. Das erste in Spalte A, das zweite in Spalte B usw. Die Spalte gibst du jeweils als zweite Zahl in der Klammer nach "Offset" an (0=Spalte A, 1=Spalte B usw.). Obige Zeile brauchst du einmal für jedes zu kopierende Merkmal. Ausserdem musst du natürlich den Pfad "C:\Temp\" anpassen.


Sub Uebersicht()
Dim fso As Object, fo As Object, f As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set fo = fso.GetFolder("C:\Temp\")
On Error GoTo Fehler
Application.ScreenUpdating = False
For Each f In fo.Files
Workbooks.Open (f.FullName)
'Übersicht nächste freie Zeile, Spalte A
ThisWorkbook.Sheets(1).Range("A65536").End(xlUp).Offset(1, 0) = _
Workbooks(f.Name).Sheets(1).Range("Verweis auf Zelle Kunden-Nr.")
'Übersicht nächste freie Zeile, Spalte B
ThisWorkbook.Sheets(1).Range("A65536").End(xlUp).Offset(1, 1) = _
Workbooks(f.Name).Sheets(1).Range("Verweis auf Zelle Name")
'Übersicht nächste freie Zeile, Spalte C
ThisWorkbook.Sheets(1).Range("A65536").End(xlUp).Offset(1, 2) = _
Workbooks(f.Name).Sheets(1).Range("Verweis auf Zelle Wert")
'usw. für die restlichen Daten
Workbooks(f.Name).Close False
Next f
Fehler:
Application.ScreenUpdating = True
End Sub

Gruß Ingolf

Beliebteste Forumthreads (12 Monate)

Informationen aus geschlossenen Dateien

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread