Dateiname aus Zelle

Hallo Experten,
Ich hab mich nun den halben Tag durchs Forum gehangelt und komm irgendwie doch auf keinen grünen Zweig...
ich habe ein Datenblatt, das von den verschiedensten Leuten verwendet wird; dieses liegt als Vorlage auf dem Server. (N:\Abteilung\Gruppe\Vorlage.xlt)
Nun habe ich mit "Verketten" aus mehreren Zellen den Dateinamen zusammengebastelt, das klappt soweit ganz gut.
Nun soll beim Speichern der "Speichern unter"-Dialog geöffnet werden, damit das ausgefüllte Datenblatt in einem Unterordner (z.B. N:\Abteilung\Gruppe\Anlage\) gespeichert werden kann; natürlich nun als .xls und nicht mehr als .xlt
Solange die Vorlage ein .xls ist, funktionieren einige Makros, die ich hier gefunden habe; speichere ich es aber als .xlt, geht gar nix mehr.
Hat jemand einen Tip?
Vielen Dank
Daniel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub MakroSaveAs() Dim KommaOrPunkt As String Dim strDateiname As String Dim varReturn 'Pfad wo gespeichert werden soll Const strPath As String = "N:\Abteilung\Gruppe\Anlage\" 'aktueller Dateiname der im Dialog angezeigt wird strDateiname = ThisWorkbook.Name 'Login Laufwerk ChDrive Left$(strPath, 2) 'Login Pfad ChDir strPath 'Dialog Speichern unter varReturn = Application.GetSaveAsFilename(InitialFileName:=strDateiname, FileFilter:= _ "Excel Files (*.xls), *.xls", Title:="Mappe Speichern") If varReturn "" Then KommaOrPunkt = IIf("0.5" * 2 = 1, ".", ",") If (Replace(Application.Version, ".", KommaOrPunkt) * 1)

Hallo,
so ist es besser, sonst funktioniert der Abbruch nicht.

Sub MakroSaveAs()
Dim KommaOrPunkt As String
Dim strDateiname As String
Dim strReturn As String
'Pfad wo gespeichert werden soll
Const strPath As String = "N:\Abteilung\Gruppe\Anlage\"
'aktueller Dateiname der im Dialog angezeigt wird
strDateiname = ThisWorkbook.Name
'Login Laufwerk
ChDrive Left$(strPath, 2)
'Login Pfad
ChDir strPath
'Dialog Speichern unter
strReturn = Application.GetSaveAsFilename(InitialFileName:=strDateiname, FileFilter:= _
"Excel Files (*.xls), *.xls", Title:="Mappe Speichern")
If strReturn  CStr(False) Then
KommaOrPunkt = IIf("0.5" * 2 = 1, ".", ",")
If (Replace(Application.Version, ".", KommaOrPunkt) * 1)

Gruß Tino

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dateiname aus Zelle

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread