Excel Dateien vergleichen mithilfe von Userform
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!!!
Antwort schreiben
Antwort 1 von Saarbauer vom 07.07.2021, 07:48 Options
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
Antwort 2 von Swiftnes vom 07.07.2021, 09:27 Options
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ß
Antwort 3 von fedjo vom 08.07.2021, 16:46 Options
Antwort 4 von Swiftnes vom 09.07.2021, 10:47 Options
Hallo,
alles klar, die Datei ist hier hochgeladen:
http://www.file-upload.net/download-1751754/Beispiel-VBA-
Userform.rar.html
Gruß