Abändern eines bestehenden Makros
Kaspar
Habe ein Makro übernommen, das eine Arbeitsmappe resp. bestimmte Laschen daraus ohne Formeln und dergl. (--> d.h. nur die blossen Zahlen) in einem vorgegebenen Ordern abspeichert als xls abspeichert. Ich möchte nun, dass das Format von xls auf xlsx speichert.
hier das Makro:
Sub SaveAsEmailVersion()
' SaveAsEmailVersion Macro
Application.Run "RefireBLP"
ActiveWorkbook.SaveAs FileName:="S:\Kunden\xy\125648\PF E.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Sheets("Watch List").Select
Application.Run "BLPLinkReset"
Application.Run "RefireBLP"
Sheets(Array("Watch List", "Security List", "Struki", "Portfolio DB", "AssCurrAlloc", " _
Charts", "RUST", "Y und C", "Codes")).Select
Sheets("Watch List").Activate
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
Sheets("Security List").Select
Application.Run "BLPLinkReset"
ActiveWorkbook.Save
Application.Run "RefireBLP"
End Sub
Kann mir da jemand weiterhelfen?
Beste Grüsse
Kaspar