xlsm als xlsx gespeichert -> lässt sich nicht öffn
22.08.2016 10:05:06
Aaron
ich stecke schon wieder fest.
Eine xlsm-Datei will ich ohne Makros speichern.
Dafür verwende ich folgenden Code:
Sub Speichern xlsm-->xlsx ()
'Variablen festlegen
'Datum
Dim Datum
'Nachname Kunde
Dim Name
'Vorname Kunde
Dim Vorname
'fortlaufende Speicherzahl
Dim Zahl
'Speicherpfad
Dim Speicherpfad
'Dateiname
Dim Dateiname
'Variablen bestimmen
'Datum3
Datum = WS1.Range("B32").Text
'Nachname Kunde
Name = WS1.Range("B7").Value
'Vorname Kunde
Vorname = WS1.Range("B9").Value
'fortlaufende Speicherzahl
Zahl = InputBox("Bitte vergeben Sie eine laufende Nummer, sofern zu einem Kunden am selben _
Tag mehrere Abrechnungen erstellt werden.")
'Speicherpfad
Speicherpfad = "C:\Users\XXXXXXXX\Desktop\Test\"
'Dateiname
Dateiname = Datum & "_" & Name & " " & Vorname & Zahl & ".xlsx"
'Kopie von Datei als xlsx speichern
ActiveWorkbook.SaveCopyAs Filename:=Speicherpfad & Dateiname
Die Datei wird auch erstellt und nach der Größenangabe sind auch Daten hinterlegt.
Wenn ich die Datei jedoch öffnen möchte erhalte ich folgende Fehlermeldung:
Die Datei kann von Excel nicht geöffnet werden, da das Dateiformat oder die Dateierweiterung _
ungültig ist.
Überprüfen Sie, ob die Datei beschädigt ist und ob die Dateierweiterung dem Dateiformat entspricht.
Wenn ich statt xlsx in xlsm speichere erhalte ich die selbe Meldung.
Über die "Öffnen und reparieren"-Funktion habe ich leider auch keine Lösung erhalten...
Wäre klasse, wenn jemand im Forum eine Lösung parat hat.
Vielen Dank im Voraus für eure Rückmeldungen.
Gruß
Aaron