Datenauswertung mehrerer Dateien(Auswahlmenü o.ä.)

Hallo zusammen,
folgendes Problem:
Ich habe ein Auswertungsdatenblatt erstellt, in der ich für bestimmte Zellen Daten aus anderen Dateien beziehen möchte. Soweit kein Problem, denn mit einem direkten Verweis zu einer "speziellen" Datei und Zelle ist das noch lösbar für mich. Nun ändert sich aber quartalsweise der Dateiname, sodass ich momentan 2 Möglichkeiten habe.
1. ich ändere jedes Quartal die Formeln oder 2. ich behalte den Dateinamen bei. Dies wäre soweit eigentlich auch i.O., nur verliere ich dann den Überblick, welchen Status bspw. die Quelldatei hat.
Der Dateiname ist wie folgt aufgebaut: Datei_ABC_20070913.xls
Alles nach "Datei_" ist eine Variable, die sich ständig ändert bzw. ändern kann.
Hier weitere Details:
Datenbasis:
- 5 Projektstädte
- pro Projektstadt 4 Projekte, also 4 Dateien pro Stadt
Bsp:
Projektstadt1_010_20070913.xls, Projektstadt1_020_20070913.xls, usw.
Projektstadt2_010_20070913.xls, Projektstadt2_020_20070913.xls, usw.
Die Quelldaten in den o.g Dateien sollen jeweils aus dem Bereich H97-AK101 kopiert werden und in die eine Auswertungsdatei und in den dort entsprechenden Projekttabellenblättern eingetragen werden. Also Für Projektstadt1 alle Projektdaten untereinander in dem speziellen Tabellenblatt für die 1. projektstadt usw.
Nun meine Frage, ob man dies so lösen könnte, dass ich beispielsweise die zu verknüpfende Datei mir jeweils für einen Teilbereich in der Auswertungstabelle auswählen kann oder ähnliches?
Ich hoffe, ich konnte mein Problem relativ genau erklären. Falls noch Rückfragen bestehen sollten, ich stehe bereit.
Danke im Voraus für die Hilfestellungen
Viele Grüße
Patrick

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Datei_Auswahl() Dim fname As Variant fname = Application.GetOpenFilename("XLS-Dateien,*.xls") If fname False Then With ActiveSheet Workbooks.Open fname Worksheets(1).UsedRange.Copy .Range("B10") ActiveWorkbook.Close False End With End If End Sub

Sub DAS_MAKRO() ' Auszuwertende Datei öffnen und Daten aus vorgegebenen Zellen in eine separate Auswertung ' einspielen. Danach die Quelldatei wieder schliessen. Dim fname As Variant fname = Application.GetOpenFilename("XLS-Dateien,*.xls") Workbooks.Open Filename:= _ fname Sheets("Project 1 - BASELINE").Select Range("H96:AK101").Select Selection.Copy ActiveWindow.ActivateNext Range("B20:AE25").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveWindow.ActivateNext Sheets("Project 1 - ACTUAL").Select Range("H96:AK101").Select Selection.Copy ActiveWindow.ActivateNext Range("B30:AE35").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveWindow.ActivateNext Sheets("Project 1 - TARGET").Select Range("H77:AK82").Select Selection.Copy ActiveWindow.ActivateNext Range("B40:AE45").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Auswertung").Visible = True ActiveWindow.ActivateNext ActiveWindow.Close Range("A1").Select End Sub

Beliebteste Forumthreads (12 Monate)

Datenauswertung mehrerer Dateien(Auswahlmenü o.ä.)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datenauswertung mehrerer Dateien(Auswahlmenü o.ä.)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread