C:/eigene dateien/Name aus Feld f8_INTERN_Datum von Heute.
VIELEN DANK für Eure Hilfe.
Viele Grüße
Claus
Sub aaTest()
'dateispeichern unter
Dim strDateiname As String
'datumsformat ggf. anpassen, _
dabei aber möglichst nicht Punkte zum Trennen von DD, MM, YYYY verwenden
strDateiname = "C:\eigene dateien\" & ActiveSheet.Range("F8") & "_INTERN_" _
& Format(Date, "YYYYMMDD") & ".xlsm"
strDateiname = "C:\Lokale daten\Test\" & ActiveSheet.Range("F8") & "_INTERN_" _
& Format(Date, "YYYYMMDD") & ".xlsm"
'Falls Datei nicht gespeichert, dann erst speichern
If ActiveWorkbook.Saved = False Then ActiveWorkbook.Save
'Für das Fileformat muss du evtl. einen anderen Wert einsetzen _
(siehe VBA-Hilfe unter SaveAS)
ActiveWorkbook.SaveAs Filename:=strDateiname, FileFormat:=xlWorkbookNormal
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen