Supportnet / Forum / Tabellenkalkulation
"Speichern unter" per Makro od. VBA aus Fußbereich?
Frage
Hallo zusammen,
ich habe eine Datei mit mehreren Tabellenblättern erstellt. Wenn sich in dieser Datei etwas tut, sollte die Datei immer unter einem neuen Namen abgespeichert werden, damit alle alten archiviert werden.
Ist dies per Makro od. VBA möglich??? Der aktuelle "Stand" wird immer in der Fußzeile gepflegt, es wäre natürlich perfekt, wenn der Dateiname aus der Fußzeile entnommen werden könnte.
Gibt es die Möglichkeit dies in einem vorgefertigten Pfad abzuspeichern??
In Sachen VBA bin ich ein absoluter Neuling, darum schon mal vielen Dank für eure Hilfe.
Mfg
Joe
Antwort 1 von fürLau
Hallo
Zu Deiner Frage: Ja, das ist möglich.
Wo in der Fußzeile steht der aktuelle Name der Arbeitsmappe und wie sollen die Mappen fortlaufend nummeriert werden?
Wie heißt der vorgefertigte Pfad?
Gruß
Zu Deiner Frage: Ja, das ist möglich.
Wo in der Fußzeile steht der aktuelle Name der Arbeitsmappe und wie sollen die Mappen fortlaufend nummeriert werden?
Wie heißt der vorgefertigte Pfad?
Gruß
Antwort 2 von Baenker
Hi,
also in der Fußzeile rechts unten wird dann immer versorgt: "Stand: 15.05.2006"
Die perfekte Lösung wäre, wenn er die Datei dann immer so ablegt unter "20060515.xls" im Ordner "O:\Arbeit\_Historie" ablegt.
Es würde sonst auch reichen, wenn er es nur unter 15.05.2006 ablegt.
Vielen dank schon mal.
also in der Fußzeile rechts unten wird dann immer versorgt: "Stand: 15.05.2006"
Die perfekte Lösung wäre, wenn er die Datei dann immer so ablegt unter "20060515.xls" im Ordner "O:\Arbeit\_Historie" ablegt.
Es würde sonst auch reichen, wenn er es nur unter 15.05.2006 ablegt.
Vielen dank schon mal.
Antwort 3 von fedjo
Hallo,
wenn die Datei unter dem aktuellen Datum gespeichert werden soll,
dann ist es nicht notwendig auf die Fusszeile zuzugreifen.
Gruß
fedjo
Sub Muster()
Dim strDateiname As String
Dim strAntwort As String
strDateiname = Date & ".XLS"
ActiveWorkbook.SaveAs ("O:\Arbeit\_Historie" & strDateiname)
End Sub
wenn die Datei unter dem aktuellen Datum gespeichert werden soll,
dann ist es nicht notwendig auf die Fusszeile zuzugreifen.
Gruß
fedjo
Sub Muster()
Dim strDateiname As String
Dim strAntwort As String
strDateiname = Date & ".XLS"
ActiveWorkbook.SaveAs ("O:\Arbeit\_Historie" & strDateiname)
End Sub
Antwort 4 von fürLau
Hallo
Perfekterweise dann so:
Gruß
Perfekterweise dann so:
strDateiname = format(Date, "yyyy")& format(date,"mm")& format(Date, "dd")& ".xls" Gruß
Antwort 5 von fürLau
Nachtragskorrektur:
strDateiname = format(Date, "yyyy")& format(date,"mm")& format(Date, "dd")& ".xls"
ActiveWorkbook.SaveAs ("O:\Arbeit\_Historie\" & strDateiname)
strDateiname = format(Date, "yyyy")& format(date,"mm")& format(Date, "dd")& ".xls"
ActiveWorkbook.SaveAs ("O:\Arbeit\_Historie\" & strDateiname)
Antwort 6 von CaroS
Hallo alle miteinander,
ich habe in diesem Forum letztens was gelernt und das sieht so aus:
Dim strDateiname As String
strDateiname = format(Date, "yyyy") & format(date,"mm") & format(Date, "dd") & ".xls"
ActiveWorkbook.SaveCopyAs ("O:\Arbeit\_Historie\" & strDateiname)
Ermöglicht, eine Kopie unter einem beliebigen Namen abzuspeichern und in der geöffneten Datei mit dem ursprünglichen Namen weiterzuarbeiten. Falls diese zum selben Zeitpunkt auch gleich mit gespeichert werden soll, ist noch ein einfaches ActiveWorkbook.Save einzufügen.
Gruß,
CaroS
ich habe in diesem Forum letztens was gelernt und das sieht so aus:
Dim strDateiname As String
strDateiname = format(Date, "yyyy") & format(date,"mm") & format(Date, "dd") & ".xls"
ActiveWorkbook.SaveCopyAs ("O:\Arbeit\_Historie\" & strDateiname)
Ermöglicht, eine Kopie unter einem beliebigen Namen abzuspeichern und in der geöffneten Datei mit dem ursprünglichen Namen weiterzuarbeiten. Falls diese zum selben Zeitpunkt auch gleich mit gespeichert werden soll, ist noch ein einfaches ActiveWorkbook.Save einzufügen.
Gruß,
CaroS
Antwort 7 von Baenker
Vielen Dank für eure Tipps.
Hat super hingehaut.
mfg
Joe
Hat super hingehaut.
mfg
Joe