Ich möchte mittels eines Makros eine Arbeitsmappe von einem Laufwerk auf ein anderes Laufwerk kopieren, ist das möglich und wenn ja, wie?
Hallo worasenior,
hier ein Beispiel zu Ihrer Frage:
Sub KopiereArbeitsmappe()
Dim quelle As String
Dim ziel As String
‚ Pfad zur Quell-Arbeitsmappe
quelle = „C:\Pfad\zur\Quell\Arbeitsmappe.xlsx“
‚ Pfad zur Ziel-Arbeitsmappe
ziel = „D:\Pfad\zum\Ziel\Arbeitsmappe.xlsx“
‚ Arbeitsmappe kopieren
FileCopy quelle, ziel
End Sub
Ersetzen Sie "C:\Pfad\zur\Quell\Arbeitsmappe.xlsx" und "D:\Pfad\zum\Ziel\Arbeitsmappe.xlsx" durch die tatsächlichen Pfade Ihrer Arbeitsmappen.
Zur Ausführung müssen Makros aktiviert sein.
MfG
Li
Hallo Herr Lippmann,
vielen Dank für die Information – Modul arbeitet korrekt!
mfg worasenior
Nachtrag zu Makros:
Datei > Optionen > Vertrauenstellungscenter > Einstellungen für das … > Makroeinstellungen > Alle Makros aktivieren.
Die Einstellung nach dem Ausführen des Skripts wieder auf das ursprüngliche Sicherheitsniveau zurücksetzen.
MfG
Li