|
Hallo, ich möchte zu der Speicherung noch den genauen Pfad und den Dateinamen vorgeben.
Im Moment wird die Datei automatisch in die eigenen Dokumente mit dem Namen "FALSE.xlsx" gespeichert.
Was muss ich einfügen?
Sheets("Filiale").Activate
Dateiname = Range("b4")
Pfad = Range("b5")
Dateiname2 = ThisWorkbook.Name
Pfad2 = ThisWorkbook.Path
Sheets("Filiale").Select
Sheets("Filiale").Copy
ActiveWorkbook.SaveAs Filename:="c:\users" = FileExtStr = ".xls": FileFormatNum = 56: FileFormatType = "xlExcel8"
ActiveSheet.Range("$D$10:$AA$321").AutoFilter Field:=2, Criteria1:="<>"
ActiveSheet.Shapes.Range(Array("Button 1")).Select
Selection.Delete
Application.ScreenUpdating = True
ActiveWorkbook.BreakLink Name:=Pfad2 & "\" & Dateiname2, Type:=xlExcelLinks
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWorkbook.Save
ActiveWindow.Close
End Sub |