Wer kann mir mein script anpassen, damit alle Register einzelne Dateien werden, benannt nach der jeweiligen Registerbezeichnung? Alle Register haben gleichen Aufbau. Der Dateiname sollte bestehen aus folgender Reihenfolge:
1. "Text" (wird einmalig im VBA festgelegt
2. Zelleinhalt von N3
3. akt. Datum + Zeit
Danke für eure Hilfe! Gruß Horst
Sub Tab_Blatt_Speichern43()
Dim strPfad As String
Dim strDateiname As String
Application.ScreenUpdating = False
strPfad = "C:\Programm QSB\dat_Ziel\"
'? strDateiname = "Auszug Jahr Filter " & Format(Now(), "yyyy mm dd hh-mm")
ActiveSheet.Copy
ActiveWorkbook.SaveCopyAs (strPfad & strDateiname & ".XLS")
' ActiveWorkbook.Close savechanges:=False
' entfällt Msgbox "Das Blatt wurde unter " & strPfad & strDateiname & " gespeichert!"
Application.ScreenUpdating = True
End Sub