Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
884to888
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
884to888
884to888
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Daten aus mehreren XLS Dateien exportieren

Daten aus mehreren XLS Dateien exportieren
11.07.2007 09:39:00
Enjoy82
Hallo,
Ich habe einen Ordner "Aktuell" und einen Ordner "Übersicht" erstellt.
Im Ordner "Übersicht" befindet sich die Datei "Gesamtliste.xls".
Im Ordner "Aktuell" befinden sich die Files "1.xls", "2.xls" und "3.xls".
Ich möchte nun ein Makro in der Gesamtliste.xls schreiben, dass bei Ausführung nacheinander die Tabelle
1.xls, 2.xls und 3.xls öffnet, jeweils den Wert aus der Zelle A1 ausliest und diese Werte dann
in "Gesamtliste.xls" in die Zellen A1, A2 bzw. A3 einträgt.
PS: Die Dateien 1.xls, 2.xls und 3.xls sollen nach dem Auslesen des Wertes wieder geschlossen werden.
Kann mich dabei bitte jemand unterstützen?
Danke im Voraus
ROBERT

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

Betreff
Datum
Anwender
Anzeige
AW: Daten aus mehreren XLS Dateien exportieren
11.07.2007 10:33:32
Wolli
Hallo Robert? Warum muss es ein Makro sein? Du kannst doch einfach einen externen Bezug verwenden, der die Zahlen zieht! Gruß, Wolli

AW: Daten aus mehreren XLS Dateien exportieren
11.07.2007 10:34:00
haw
Hallo Robert,
so z.B..:

Sub DatenListen()
Dim wbG As Workbook, wb As Workbook, i%, Pfad$, efz%
Pfad = "C:\Daten\Aktuell\"
Workbooks.Open Filename = "C:\Daten\Übersicht\Gesamtliste.xls"
Set wbG = ActiveWorkbook
For i = 1 To 3
Workbooks.Open Filename = Pfad & i & ".xls"
Set wb = ActiveWorkbook
If wbG.Worksheets(1).Range("A1").Value = "" Then
efz = 1
Else
efz = wbG.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
wbG.Worksheets(1).Cells(efz, 1).Value = wb.Worksheets(1).Range("A1").Value
wb.Close False
Next i
End Sub


Gruß
Heinz

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige