03.11.2016, 20:57 (Dieser Beitrag wurde zuletzt bearbeitet: 03.11.2016, 20:57 von RPP63.)
Moin K! Ich zitiere mal aus Deiner Threaderöffnung:
Zitat:Jetzt soll aber nicht im Makro die Datei als solches beschrieben sein, sondern in der Excel-Oberfläche ein "Button" stehen, der die Möglichkeit bietet, eine Datei für diesen Vorgang auszuwählen. Sprich, dem starren Makro soll ein wenig Flexibilität abgewonnen werden.
Genau dies macht mein Tipp. Die durch den Dialog geöffnete Mappe ist ActiveWorkbook. (Deinen bzw. besser Gast123s Code musst Du natürlich anhängen)
Zwei andere Varianten: 1. Zuweisung zu einer Objektvariablen
Code:
Dim wkbQuelle as Workbook Set wkbQuelle = Workbooks.Open(Application.GetOpenFilename) With wkbQuelle 'Code End With
2. oder gleich ohne Objektvariable
Code:
With Workbooks.Open(Application.GetOpenFilename) 'Code End With
Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
das kann kein Makro sein. Wäre es ein Makro, würde es mit Sub ... () oder Function ... () beginnen und mit End Sub oder End Function enden. Da es das nicht tut kann es also auch kein Makro sein.
Wenn das Teil eine Existenzberechtigung kriegen kann ... dann vielleicht "Codeschnipsel".
Sorry, habe jetzt erst wieder reingeschaut und viele Antworten gesehen. Frage: ist mein Lösungsvorschlag mit der ComboBox so akzeptabel, dann sollten wir das Makro optimieren. Ein schöner Vorschlag kam von Ralf mit GetOpen, können wir ja ins Makro übernehmen.
Frage: Wie willst du in der Praxis arbeiten, es sollte ja für dich möglichst effektiv sein? Dafür gibt es mehrere Möglichkeiten. 1) Man kann in der Tabelle Dateiliste eine Grundliste für Dateien anlegen die immer vorhanden sind. Wenn nicht vorhanden über GetOpen suchen. 2) Man kann alle Datein über GetOpen öffnen und evtl. den Pfad zum Öffnen mit vorladen. 3) Man kann in der Dateiliste alle Dateien eines Pfades aufkisten. Das Makro dazu habe ich auch. 4) Man kann mit 2 ComboBoxen arbeiten. In der ersten stehen die Pfade oder beliebige Kunden-Namen die dem Pfad zugeordnet sind. In der zweiten ComboBox listet man alle Dateien die im Pfad sind auf zum auswaehlen.
Wir können in Zusammenarbeit alle Lösungs Arten programmieren, nur welche ist für dich die günstigste / Praxisgerechte ??? Da warte ich mal deine Antwort ab. Ideen habe ich genug. Brauceh aber meine Zeit zum programmieren.
Nachtrag andere Frage die ja auch wichtig ist. Ist das Kopier Makro soweit in Ordnung das es einwandfrei laäuft? Und soll die Datei nach dem kopieren wieder geschlossen werden? Wenn ja kann man den Teil des Makros schon mal als OK ansehen. Dann ginge es nur noch um optimales Datei Öffnen.
ich bin zunächst erstmal tief beeindruckt, wieviele sich "ehrenamtlich" mit meinem Porblem beschäftigen, danke.
Ich habe die Datei von Gast123 mit entsprechenden Informationen in der Tabelle "Dateiliste" gefüttert. Dann funktioniert es wie gewünscht. Für mich wäre es allerdings optimaler, wenn eben nicht im Einzelnen die Pfade und Dateinamen eingepflegt werden müssten, sondern über entsprechende Befehle ein Öffnendialog kommt, wo ich entsprechende xls auswählen kann. Zudem wird das jetzige Dropdownfeld auch bei der Menge an verschiedenen Dateien schnell unübersichtlich.
Noch eine Bitte zur Klarstellung, VBA ist in seinem Umfang für mich ein böhmisches Dorf. Ich kann Werte darin ändern, wenn ich entsprechende Zusammenhänge erkenne, aber ich kann nicht programmieren! Heißt auch im Umkehrschluss, ich verstehe oftmals die Dinge, welche ihr vorschlagt, nicht. Was kein böser Wille von mir ist.
@ Danke an Ralf für seinen Lösungsvroschlag, wurde hier übernommen.
ich habe die Beispieldatei geladen und das Makro umgeschrieben. Es gibt zwei Makros, eins nur für die Dateiliste. Damit kann man sich alle U-Ordner und Dateien eines Pfades auflisten lassen. Praktisch wenn man sich Vermerke machen will welche Datei man schon bearbeitet hat. Ist nur für die Dateiliste!
Das neue Makro benutzt den Vorschlag von Ralf zum Datei Öffnen über Dialog. Nach dem Kopieren wird sie geschlossen. Ich hoffe das die neue Beispiel Version Praxisgerechter ist. Würde mich sehr freuen.
