Excel Dateien vergleichen mithilfe von Userform

Question

Hallo zusammen,

ich habe ein größeres Problem, da meine VBA-Kenntnisse nicht gerade sehr weit
reichen.
Folgendes Problem:

Ich habe drei Excel Dateien (Ich nenn sie jetzt mal "Aktuelle Werte 1.xls", "Aktuelle
Werte 2.xls" und "Forecasts.xls"). "Aktuelle Werte 1.xls" und "Aktuelle Werte 2.xls"
sind nicht immer die gleichen Excel Dateien, sondern hängen immer von dem
jetzigen Zeitpunkt ab (Also im März sind es andere Dateien als im folgenden
November).

Jetzt will ich mit einer Userform die drei Excel Dateien mithilfe eines
Commandbuttons auswählen und den jeweiligen Pfad in einer Textbox anzeigen
lassen. Dazu habe ich schon einen Code gefunden:

Dim File1 As String
File1 = Application.GetOpenFilename("Microsoft Excel-File (*.xls), *.xls")
TextBox1 = File1

Sobald die drei Dateien ausgewählt sind muss ich Rechnungen unter diesen drei
Dateien durchführen und die Werte in einer Vorgefertigten Exceldatei (z.B. namens
"Monitor.xls") eintragen lassen.
Wie mach ich das am Besten? Sollte ich da die Dateien öffnen und nach Beenden
der Rechcnungen wieder schließen lassen? Wenn ja wie? Wie gesagt das
Problem ist, dass die Dateien nicht immer gleich sind und somit nicht einfach im
Code fixiert werden können (wie z.B. "Workbooks.Open "C:\Aktuelle Werte 1.xls")

Ich hoffe meine Erläuterung ist verständlich, denn so einfach ist es nicht.

Vielen Dank schonmal für eure Hilfe!!!

Answer 1

hallo,

ich hoffe es richtig verstanden zu haben, aber danach brauchst du für die Berechnung in "Monitor" nur die drei erforderlichen Dateien öffnen und es müsste mit den Berechnungen funktionieren.

Das Problem leigt wahrscheinlich in den Namen der Dateien, da in "Monitor" verweise auf die jeweilgen Dateinamen sind und diese wären jeweils anzupassen. Ohne den Aufbau der Tabellen zu kennen ist hier ein guter Rat schwierig.

Gruß

Helmut

Answer 2

Hi!

Erstmals vielen Dank für die schnelle Antwort.

Gut ich hab es hinbekommen, dass sich die ausgewählten
Dateien öffnen mit:

Workbooks.Open Filename:=TextBox2

Wenn ich jetzt aber mit diesen Dateien arbeiten will, muss ich ja
Variablen zuweisen und die Sheets auswählen, aber wie "spreche"
ich jetzt die Dateien an? Z.B.:

Dim wkbook1 as Workbook

Set wkbook1 = Workbooks.Open:=Textbox1

Das funktioniert bei mir nicht. Normalerweise müsste bei
":=Textbox1" ein Pfad zu einer Datei hinzu. Da sich der Dateiname
aber ständig ändert, weiß ich nicht wie ich sie in dem Moment
direkt ansprechen kann.

Ich bitte um Verzeihung, da ich keine Dateien zur Verfügung stellen
kann. Wenn meine Erklärungen nichts taugen, dann probier ich
mal ein Beispiel dafür zu machen, nur dann bräuchte ich Hilfe,
einen guten Upload Server zu finden.

Wie gesagt, nochmals vielen Dank für die schnelle Antwort!

Gruß

Answer 3

Hallo,
du kannst hier deine Dateien uploaden:
http://www.file-upload.net/

Gruß
fedjo

Answer 4

Hallo,

alles klar, die Datei ist hier hochgeladen:

http://www.file-upload.net/download-1751754/Beispiel-VBA-
Userform.rar.html

Gruß