Ich verwende nachstehenden Code, um xls-Dateien auf xlsm-Dateien umzustellen. Das klappt. Nun möchte ich auch xls-Dateien auf xlsx-Dateien umstellen. Da erhalte ich eine VBA-Fehlermeldung "Fehler beim Kompilieren: Variable nicht definiert" und markiert wird xlOpenXLMWorkbook
Mir ist nicht klar, wo das Problem liegt. Wenn ich manuell von xls auf xlsx umstelle und dies mit dem Makrorecorder aufzeichne, wird die gleiche Variable geliefert.
Wer kann mir helfen?
Danke, Peter
With ActiveWorkbook
' Dateiformat prüfen
If .FileFormat = xlWorkbookNormal Or .FileFormat = xlExcel8 Then
' Dateinamen merken
OldFile = .FullName
' Datei im neuen Dateinformat speichern
''.SaveAs Filename:=Replace(OldFile, "xls", "xlsm"), FileFormat:=xlOpenXMLWorkbookMacroEnabled
.SaveAs Filename:=Replace(OldFile, "xls", "xlsx"), FileFormat:=xlOpenXLMWorkbook
End If
End With