Hallo zusammen,
ich habe einen Code der mir Speichern unter Fenster öffnet mit ein paar vorgaben.
Hier der Code
Dim varFilename As Variant
varFilename = Application.GetSaveAsFilename( _
InitialFileName:="Telefonliste", _
FileFilter:="csv (*.csv), *.csv", _
Title:="als csv speichern")
If varFilename <> False Then
ThisWorkbook.ExportAsFixedFormat _
Type:=xlTypeCSV, _
Filename:=varFilename
End If
Allerdings habe ich eine Problem die Datei wird nicht als CSV Datei abgespeichert sondern als PDF Datei. Woran kann dies liegen?
Vielen Dank im Voraus
LG
xGT86 |