folgendes makro speichert meine Datei im angegebenen Ordner.
Nun möchte ich gleichzeitig noch in einem 2. Ordner speichern (Dateiname bleibt).
Wie muss das makro erweitert werden?
Danke für Eure Hilfe Gruss volker
'SpeichernUnter()
Speicher = ActiveWorkbook.Name
Dim DName, Dateiname, Pfad
Pfad = "\\Server04\av\SharePoint_Beschlaglisten"
DName = Speicher
Dateiname = Pfad & "\" & DName
ThisWorkbook.SaveAs Filename:=Dateiname