Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1520to1524
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Automatisches Öffnen von indiv. Datein

Automatisches Öffnen von indiv. Datein
05.11.2016 07:37:52
indiv.
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatisches Öffnen von indiv. Datein
05.11.2016 12:22:11
indiv.
Hi,
hier http://www.ms-office-forum.net/forum/showthread.php?t=183417
findest Du einen Code von HaJo.
Du mußt nur den Pfad anpassen und das "x" nach "xls" anfügen.
Schöne Grüße,
Michael
Anzeige

157 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige