Tabelle automatisch mit Datum und Uhrzeit abspeichern

[Wexel]

Hallo zusammen,

mit diesem Befehl speichere ich mein aktuelles Tabellenblatt ins Archiv. Das klappt auch super.


Speichert Arbeitsblatt unter Dateiname im Ordner Archiv Ingredenzien

ActiveSheet.SaveAs Filename:="C:\Users\Wexel\Downloads\Wochenbestand\Archiv\Ingredenzien\Ingredenzien " & Format(Now, "yyyy_mm_dd_hhmm") & ".xlsm"


Leider bleibt das Tabellenblatt aber geöffnet, schließt sich nicht wieder von alleine. Wer hat eine Idee ??

Vielen Dank in Voraus

[RPP63]

Moin!
Füge am Ende folgendes ein:
ActiveWorkbook.Close False

Alternativ könntest Du auch die .SaveCopyAs-Methode nehmen.
(die funktioniert aber nur mit einem Workbook, nicht mit einem von mehreren Sheets)


Gruß Ralf

[Wexel]

Moin Ralf,

danke, das funzt, die Datei schließt.
Danach wird aber alles grau, heißt ich befinde mich sozusagen in keinem Modul..

[RPP63]

Nun, da hast dann eine Excel-Instanz ohne geöffnetes Workbook.
Excel schließt man mit
Application.Quit
Allerdings sollte man vorher prüfen, wie viele Mappen geöffnet sind:
Application.Workbooks.Count
Da aber auch eine evtl. vorhandene ausgeblendete Personal.xlsb in der Auflistung ist, wird es umfangreicher.

Sub SchliessMich()
Dim x&, i&
Const WbP$ = "PERSONAL.XLSB"
For i = 1 To Workbooks.Count
  If Workbooks(i).Name = WbP Then x = 1
Next
If Workbooks.Count = x Then Application.Quit
End Sub

Gruß Ralf

[Wexel]

Ich glaube ich habe mich bei der Problembeschreibung ausgedrückt.

Ich bin also in meinem Bestand. Nachdem ich diesen erfasst habe, speichere ich diesen unter einem Dateinamen im Archiv mit Datum und Uhrzeit in einer neuen Datei ab.

Diese neue Datei öffnet sich dann neben meiner bestehenden Bestanddatei automatisch.

so:
ActiveSheet.SaveAs Filename:="C:\Users\Wexel\Downloads\Wochenbestand\Archiv\Ingredenzien\Ingredenzien " & Format(Now, "yyyy_mm_dd_hhmm") & ".xlsm"
Jetzt möchte ich diese Archiv Datei wieder schließen.so:
ActiveWorkbook.Close False

Jetzt möchte ich aber wieder in meine Ursprungsdatei Namens Bestand um hier noch einige Dinge zu ändern.

Mit den Befehlen oben, bin ich wie gesagt aus meinem Makro raus..

[RPP63]

Siehe Dir noch einmal meine erste Antwort an.
Nutze die .SaveCopyAs-Methode
https://msdn.microsoft.com/de-de/library...35014.aspx

Gruß Ralf

[Wexel]

Ja, fündig geworden, eingebaut klappt.
Vielen Dank und schönen Abend.