speicherunter XLSX nicht xls

Question

Hallo,

habe hier einen kleinen Code der nur xls speichert und nicht xlsx!
Haben excel 2010 und würde das Blättle auch in dem Format abspeichern.


Sub SpeichernUnter()
Dim NeuerName As String
NeuerName = Range("W4")
If NeuerName = "" Then
MsgBox ("Kein richtiger Name vergeben, bitte geben sie einen gültige BlattNr. ein")
Exit Sub
End If
ActiveWorkbook.SaveAs "Z:\_Neumann\BVBsG1\2012\" & NeuerName & ".xls"
End Sub


Hat jemand eine Idee? In xlsx ändern bringt nichts!

Gruß
Tobias

Answer 1

Hallo,

ändere die letzte Codezeile von

ActiveWorkbook.SaveAs "Z:\_Neumann\BVBsG1\2012\" & NeuerName & ".xls"

in

ActiveWorkbook.SaveAs "Z:\_Neumann\BVBsG1\2012\" & NeuerName & ".xlsx"

Gruß
Rainer

Answer 2

Moin,

das geht leider nicht dann führt er es gar nicht mehr aus!

Gruß Tobias

Answer 3

Hallo Tobias,

sorry, da Deine Datei ja ein Makro beinhaltet musst Du anstatt .xlsx
.xlsm verwenden.

Gruß
Rainer