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