|
Hallo zusammen,
ich habe ein Problem beim speichern durch ein Makro, da ich nun Excel 2010 nutze und das Makro aus einer Programmierung von Excel 97 ist.
Das Makro sieht wie folgt aus, was muss ich korrigieren?
Sheets("Filiale").Activate
Dateiname = Range("b4")
Pfad = Range("b5")
Dateiname2 = ThisWorkbook.Name
Pfad2 = ThisWorkbook.Path
Sheets("Filiale").Select
Sheets("Filiale").Copy
ActiveWorkbook.SaveAs Filename:=Pfad & Dateiname, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
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
Danke für Eure Hilfe! |