Excel Liste speichern?????

Bild

Betrifft: Excel Liste speichern?????
von: Bernie
Geschrieben am: 19.05.2015 09:43:49

Hallo,
ich möchte ein Tabellenblatt als einzelne ExcelListe speichern. Das klappt auch ganz gut. Leider bekomme ich eine Fehlermeldung beim Wiederöffnen der abgespeicherten Liste:
"Sie versuchen eine Datei zu öffnen, deren Format von dem in der Dateierweiterung abweicht....! Hat jemand eine Idee was ich falsch mache? Ich möchte die Datei Excel 2003 kompatibel abspeichern.
Hier mein Code:
Sheets("Kopiertabelle").Copy
ActiveSheet.UsedRange.Copy
ActiveSheet.UsedRange.PasteSpecial xlPasteValues
ActiveSheet.Name = "Mein neues Tabellenblatt"
Dim strVerzeichnis As String
Dim strDateiname As String
strVerzeichnis = "G:\Meine Listen\"
strDateiname = Application.GetSaveAsFilename(InitialFileName:=strVerzeichnis & _
"Meine neue Liste" & Format(Now, "yyyy.mm.dd") & "_FINAL" & ".xls", _
FileFilter:="Microsoft Excel-Arbeitsmappe (*.xls), *.xls")
Select Case strDateiname
Case False
Exit Sub
Case Else
ActiveWorkbook.SaveAs Filename:=strDateiname
ActiveWorkbook.Close
End Select
End Sub
Vielen Dank und beste Grüße

Bild

Betrifft: AW: Excel Liste speichern?????
von: Nepumuk
Geschrieben am: 19.05.2015 10:11:35
Hallo,
so:
ActiveWorkbook.SaveAs Filename:=strDateiname, FileFormat:=xlExcel8
Gruß
Nepumuk

Bild

Betrifft: AW: Excel Liste speichern?????
von: Bernie
Geschrieben am: 19.05.2015 12:23:20
Hallo Nepomuk,
hat super geklappt. Vielen lieben Dank.
Bernie

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Excel Liste speichern?????"