Office: (Office 365) Save As im Makro

Hallo Zusammen ,

benutze ein Makro um eine Exceldatei alle 10 Minuten zu speichern.
Das Makro wird beim öffnen der Datei gestartet.
Nun haben sich einige Umstände geändert, so das die Datei auch für andere Zugriffe zusätzlich in einem anderen Ordner gespeichert werden soll.

Habe schon etwas mit save As ausprobiert.
Hat aber nicht funktioniert.
Wo muss der Pfad zum Beispiel stehen ?
Wäre für Hilfe dankbar.

Danke und Gruß Merkur

Sub AutoSpeichernEinschalten()
ZeitZuSpeichern = Now + TimeSerial(00, 10, 00)
Application.OnTime ZeitZuSpeichern, "Speichern"
End Sub

 

bei saveas

Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue. Ich baue keine Datei nach.

Sollte die Datei verlinkt werden?

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.

Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.

Bilder statt Datei | Excel ist sexy!

Es sollte ein aussagekräftiger Name sein.

Das ist nur meine Meinung zu dem Thema.

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
Hinweis - Anonymisierung und Pseudonymisierung von Beispielmappen - MS-Office-Forum
ändern.

Das ist nur meine Meinung zu dem Thema.

 

Moin!

Nun, erste Anlaufstelle sollte die VBA-Hilfe sein:
Workbook. SaveAs-Methode (Excel)

Zeig mal Dein Makro Speichern und was Du bisher versucht hast.

Gruß Ralf

 

Hallo

Hier die Lösung

Sub SpeichernUnter()

Dim sDateiname As String
sDateiname = Replace(ThisWorkbook.Name, ".x", "_Kopie.x")
ThisWorkbook.SaveCopyAs "PFAD\" & sDateiname
Application.OnTime Now + TimeValue("00:05:00"), "SpeichernUnter"

End Sub