Mappe auf USB speichern

[Atlanos]

Salut
 Comment puis-je enregistrer automatiquement une feuille Excel entière sur une clé USB en un seul clic ?
---
Hi
 How can I automatically save an entire Excel sheet to a USB with one click?
..tnx

Hi Wie kann ich mit einem Klick automatisch eine ganze Excel-Tabelle auf einem USB-Stick speichern? ..tnx

[maninweb]

Hallo,

warum jetzt drei Sprachen in diesem deutschen Forum? Und warum mehrfach derselbe Beitrag im Forum?

Den Beitrag im Access-Forum habe ich gelöscht. Dieser Beitrag passt zudem nicht zu den früheren Beiträgen von Dir.
Bis das geklärt ist, habe ich Dich erstmal auf Moderierte Beiträge gesetzt, was heißt, dass Beiträge von Dir
dann freigeschaltet werden müssen. Gegebenenfalls bitte per PN Kontakt aufnehmen.

Gruß

[maninweb]

Hallo,

herzlichen Dank für die Klärung. Das Konto läuft wieder normal, also unmoderiert.

Gruß

[maninweb]

Hallo,

ich schätze mal, Du hast die Frage auch hier gestellt: https://www.clever-excel-forum.de/Thread...rn-auf-USB

Dazu zunächst der Hinweis, dass wir Crosspostings - also das Schreiben der Frage derselben Frage in verschiedenen Foren - zwar erlauben,
es aber gut und sinnvoll die Beiträge in den verschiedenen Foren untereinander zu verlinken. Denn sonst arbeiten mehrere Helfer/innen
gleichzeitig an Deinem Problem, ohne voneinander zu wissen.

Jetzt zur Frage: damit Du eine Auswahl der USB-Laufwerke treffen kannst, bräuchtest Du bspw. eine Userform.
Ich habe Dir mal eine Beispieldatei erstellt, Du im Modul noch das Speichern ergänzen und testen müsstest.

Gruß

[Atlanos]

MsgBox strDrive
    ThisWorkbook.SaveAs frmDrives & ":\excel\" & Format(Now, "yyyy.mm.dd") & ".xlsm"
   
  End If

----
dann bräuchte ich nur diese Zeile so umzuändern ? Oder?

[maninweb]

Hallo,

Die Zeile mit MsgBox kannst Du wegmachen und die andere Zeile auskommentieren.

Gruß

[Kuwer]

Hallo,

ändere die Zeile in

Code:

ThisWorkbook.SaveAs strDrive & ":\" & Format(Now, "yyyy_mm_dd") & ".xlsm"

Gruß Uwe