Thema Datum  Von Nutzer Rating
Antwort
14.02.2024 18:41:17 Hecktor086
NotSolved
Blau Makro in anderer Datei weiterlaufen lassen
14.02.2024 19:15:01 Gast99658
NotSolved

Ansicht des Beitrags:
Von:
Gast99658
Datum:
14.02.2024 19:15:01
Views:
106
Rating: Antwort:
  Ja
Thema:
Makro in anderer Datei weiterlaufen lassen

Dieser Haken soll dazu führen, dass die Datei gespeichert wird und in einen anderen Ordner verschoben wird.
-> Haken geht, Makro löst aus, speichern funktioniert.
Weil ich eine geöffnete Arbeitsmappe nicht verschieben kann und nach dem Schließen das Makro nicht mehr funktioniert, habe ich mir eine Hilfsdatei angelegt, in die der zu verschiebende Dateiname reinkopiert wird.

Merke: Verschieben = Kopie einer Datei speichern + alte Datei anschließend löschen

Du musst dir also nur

1) den aktuellen Dateipfad merken,

Dim FileToDelete As String
FileToDelete = ThisWorkbook.FullName

2) dann Workbook.SaveAs ausführen und dieser den neuen vollständigen Dateipfad übergeben

Nachdem dieser Befehl ausgeführt wurde, hast du die Kopie am neuen Speicherplatz vor deiner Nase und kannst die Datei an der alten Stelle löschen.

3) und zum Schluss die alte Datei löschen

'Call SetAttr(FileToDelete, vbNormal) ' den normalen Schreibschutz entfernen (nur wenn benötigt)
Call Kill(FileToDelete)

Fertsch.

 

Eine Hilfsdatei ist dafür also nicht notwendig.

 

Grüße


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
14.02.2024 18:41:17 Hecktor086
NotSolved
Blau Makro in anderer Datei weiterlaufen lassen
14.02.2024 19:15:01 Gast99658
NotSolved