VBA - Speicherpfad und -name vorgeben.
25.10.2017 09:27:23
Philipp
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