Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei Speichern

Datei Speichern
16.12.2006 01:13:49
swen
Hallo an alle,
ich habe folgenden code um meine Arbeitsmappe zu speichern,
ActiveWorkbook.SaveAs Filename:=strWorkbookNameinklPath, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Da gibt es aber ein Problem und zwar möchte ich gerne er unten im Fenster
wo die Datei art (.xls .txt etc.) ausgewählt wird als standard .xls
eingetragen ist (derzeit steht da alle Datein).
kann mir jemand helfen
Gruß
Swen

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei Speichern
16.12.2006 07:15:38
Erich
Hallo Swen,
was steht in strWorkbookNameinklPath?
Hast du diese Variable vielleicht vorher mit GetSaveAsFilename() belegt?
Dabei könnte man den Dateityp so festlegen:
strWorkbookNameinklPath = Application.GetSaveAsFilename(FileFilter:="Excelmappe (*.xls), *.xls")
Dann erscheint im GetSaveAsFilename()-Dialog der gewünschte Dateityp.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: Datei Speichern
17.12.2006 21:12:32
Swen
Hallo an alle, HalloEhrich,
ich habe das wie folgt gemacht:
Workbooks.Add
intRechenoptionCount = 0
strWorkbookNameinklPath = Application.GetSaveAsFilename(initialFilename:= _
"c:\AutoAuswertung.xls")
Application.ScreenUpdating = True
ActiveWorkbook.SaveAs Filename:=strWorkbookNameinklPath, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Application.ScreenUpdating = False
strWorkbookName = ActiveWorkbook.Name
ActiveSheet.Name = "AutoAus"
Ich wollte eigentlich nur das ein Neues Workbook erstellt wird und dann gefragt wird wo dieses hin gelegt werden soll und wie es heißen soll.
Als standard wert soll als Filename "AutoAuswertung" eingetragen sein und
die Datei soll eigentlich eine excel arbeitsmappe sein ".xls"
aber wie schon beschrieben macht er immer als datei format alle datein rein!
Gruß
Swen
Anzeige
AW: Datei Speichern
17.12.2006 23:00:50
Erich
Hallo Swen,
das Problem entsteht nicht beim SaveAs, sondern vorher beim GetSaveAsFilename.
In meinem vorigen Beitrag hatte ich auf den wesentlichen 2. Parameter "FileFilter" hingewiesen. Versuchs mal mit 
   strWorkbookNameinklPath = Application.GetSaveAsFilename( _
InitialFileName:="c:\AutoAuswertung.xls", _
FileFilter:="Excelmappe (*.xls), *.xls")
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: Datei Speichern
18.12.2006 21:10:30
swen
vielen dank klappt super!

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige