Hallo Zusammen,
bis jetzt öffnen ich mit folgendem Code meine indv. benötigte Dateien:
Dim Erfolg As Boolean
MsgBox "Bitte 1.Datei auswählen"
Erfolg = Application.Dialogs(xlDialogOpen).Show(arg1:=".xlsx")
If Not Erfolg Then MsgBox "keine DAtei ausgewählt"
Cells.Copy
Windows("Cockpit2016.xlsm").Activate
With Workbooks("Cockpit2016.xlsm")
.Sheets("Tabelle2").Cells.PasteSpecial xlPasteAll
End With
Wenn ich immer aus unterschiedlichen Quellen Datein einfügen will, dann funktioniert der Code perfekt!
Bei der ein oder anderen Datei kommt es aber vor, dass ich eigentlich immer aus dem gleichen Ordner die aktuellste Datei öffne und in meine Hauptdatei "Cockpit2016" einfügen.
kann mand as nicht auch Ohne "DAtei Öffnen" abfrage mache, dass er immer die letzte in den order hinzugefügte Datei automtisch auswählt?
Vielen Vielen Dank für eure Hilfe
Tyroler