Daten aus einer anderen Datei auslesen

Hallo zusammen,
ich habe eine Excel-Datei erstellt, die ich an ein paar Freunde weitergegeben habe, die in dieser Datei jeweils Werte im Tabellenblatt "Tabelle1" und "Tabelle2" in den Feldern Z3S2 bis Z40S3 eingeben.
In dieser Tabelle gibt es jedoch einige Fehler (falsche Formate, Fehler in Formeln, etc.). Ich habe nun eine neue Datei gebastelt, die von den Freunden genutzt werden soll/kann. In diese neue Datei sollen jetzt die Daten aus der alten Datei einmalig eingelesen werden, damit die alte Datei überflüssig ist, gelöscht werden kann und alle alten und neuen Daten in einer Datei erfasst sind.
Die Datei befindet sich jedoch nicht immer im gleichen Ordner, da jeder die Datei an einem anderen Ort auf seinem PC gespeichert hat. Ich kann leider nur vorgeben, dass die alte Datei bei allen den gleichen Namen hat (z.B. Alt.xls).
Gibt es eine Möglichkeit, die alte Datei per Makro auszulesen?
Schon im Voraus vielen Dank
Jürgen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Jürgen,
baue das folgende Makro in deine Neue Datei ein. Tabellenname bitte anpassen.
Der alte Dateiname wird im Makro per Dialog abgefragt. Da Excel nicht parallel zwei Dateien gleichen Namens öffnen kann, muss die neue Datei ggf. einen anderen Dateinamen haben oder die alte Datei muss vorher umbenannt werden!
Gruß
Franz


Sub DatenAktualiseren()
Dim wbAlt As Workbook, wbNeu As Workbook, strWks As String
Dim wksNeu As Worksheet, wksAlt As Worksheet
Dim varDatei
varDatei = Application.GetOpenFilename(Filefilter:="Excel (*.xls),*.xls", _
Title:="Bitte Alte Datei mit Daten auswählen", MultiSelect:=False)
If varDatei = False Then GoTo Ende
strWks = "Tab001" 'Name der Tabelle mit den zu kopierenden Daten
Set wbNeu = ThisWorkbook
Set wksNeu = wbNeu.Worksheets(strWks)
Set wbAlt = Workbooks.Open(FileName:=varDatei)
Set wksAlt = wbAlt.Worksheets(strWks)
With wksAlt
.Range(.Cells(3, 2), .Cells(40, 3)).Copy Destination:=wksNeu.Cells(3, 2)
Application.CutCopyMode = False
End With
wbAlt.Close savechanges:=False
Ende:
Set wbAlt = Nothing: Set wbNeu = Nothing
Set wksAlt = Nothing: Set wksNeu = Nothing
End Sub

Beliebteste Forumthreads (12 Monate)

Daten aus einer anderen Datei auslesen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

329 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten aus einer anderen Datei auslesen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

329 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread