Save as / Speichern ohne Namen / If Filename

Sub speichern() If Filename = "Vorlage.xls" Or Filename = "Vorlage1.xls" Or Filename = "Vorlage.xlt" Or _ Filename = "Vorlage1.xlt" Or Filename = "*.xlt" Or Filename = "Vorlage1" Then ChDir _ "C:\DATEN\BH\" ActiveWorkbook.SaveAs Filename:= _ "C:\DATEN\BH\" _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False Else ActiveWorkbook.Save End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Heiko
Gerne gebe ich noch einige Mehrinformationen:
1. Ich habe ein File Vorlage.xlt abgespeichert
2. Wenn ich dieses File öffne, habe ich in einer eigens angelegten Symbolleiste einen Button "speichern" --- Funktion: ActiveWorkbook.Save
3. Wenn ich den SaveKnopf drücke, speichert er mir das Excel einfach unter Vorlage1.xls ab, das möchte ich nicht, sondern es soll das "save as" Fenster kommen wo ich den Pfad auswählen kann und den Namen eingeben muss. Dieser Name ist völlig individuell, jedoch immer eine Nummer
4. Wenn ich die Vorlage nun einmal verwendet und als "Nummer" z.b. 11155427.xls abgespeichert habe und dann dieses File wieder öffne, DANN ist es ok, wenn ich auf den SaveButton klicke und er einfach nur speichert.
Weisst du nun was ich mit meinem Code versucht habe? :-)
Gruss
Matthias

Sub Speichern() Dim varFileName As Variant If UCase(Right(ThisWorkbook.Name, 3)) = "XLT" Then varFileName = Application.GetSaveAsFilename(InitialFileName:="C:\Daten\BH\", _ FileFilter:="EXCEL Files (*.xls), *.xls") If varFileName = False Then Exit Sub ChDir "C:\DATEN\BH\" ActiveWorkbook.SaveAs Filename:=varFileName, _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False Else ActiveWorkbook.Save End If End Sub

Hallo Heiko
Das kann ich leider fast nicht bewerkstelligen, ist sehr komplex geworden das File, und möchte es nicht publizieren (viele Privatangaben drin).
Vielleicht kannst du es anhand dieses Scriptes noch einmal versuchen? Das habe ich auch hier gefunden: (den Teil: If Datename = "Vorlage.xlt" Exit Sub) habe ich selber "reinkommentiert". Das Problem jedoch auch da - egal ob ich File, Datei, Dateiname, Filename etc. wähle, irgendwie erkennt er diesen nicht .... Hat ein XLT vielleicht gar keinen Dateinamen da es ohnehin später automatisch als XLS abgespeichert wird?


Sub Speichern()
Dim Pfad$, Datei$, Filter$, Endg$, File
If Datename = "Vorlage.xlt"
Exit Sub
Else
Pfad = "C:\S\"
Datei = ""
If Datei = "1" Then
MsgBox "Zelle einhält keinen Eintrag"
Exit Sub
End If
Endg = ".xls"
If InStr(Datei, Endg) = 0 Then 'Prüfung ob Zelle bereits Endung enthält
Datei = Datei & Endg
End If
Filter = "Excel Files (*" & Endg & "), *" & Endg
File = Application.GetSaveAsFilename(Pfad & Datei, Filter)
If File  False Then ActiveWorkbook.SaveAs Filename:=File
End If
End Sub

Sub Speichern() Dim varFileName As Variant 'If UCase(Right(ThisWorkbook.Name, 3)) = "XLT" Then If ThisWorkbook.FileFormat = 17 Then varFileName = Application.GetSaveAsFilename(InitialFileName:="C:\Daten\BH\", FileFilter:=" _ EXCEL Files (*.xls), *.xls") If varFileName = False Then Exit Sub ChDir "C:\DATEN\BH\" ActiveWorkbook.SaveAs Filename:=varFileName, _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False Else ActiveWorkbook.Save End If End Sub

Beliebteste Forumthreads (12 Monate)

Save as / Speichern ohne Namen / If Filename

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread