Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Excel Liste speichern?????

Excel Liste speichern?
19.05.2015 09:43:49
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel Liste speichern?
19.05.2015 10:11:35
Nepumuk
Hallo,
so:
ActiveWorkbook.SaveAs Filename:=strDateiname, FileFormat:=xlExcel8
Gruß
Nepumuk

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige