Thema: Excel Liste speichern?????

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

Hallo,
so:
ActiveWorkbook.SaveAs Filename:=strDateiname, FileFormat:=xlExcel8
Gruß
Nepumuk

Hallo Nepomuk,
hat super geklappt. Vielen lieben Dank.
Bernie

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

Hallo,
so:
ActiveWorkbook.SaveAs Filename:=strDateiname, FileFormat:=xlExcel8
Gruß
Nepumuk

Hallo Nepomuk,
hat super geklappt. Vielen lieben Dank.
Bernie