Datei im Ursprungsverzeichnis speichern
19.05.2005 12:23:33
Reiner
ich habe hier ein Problem an dem ich mir die Zähne ausbeiße:
Mit dem nachfolgenden Makro generiere ich einen Dateinamen nach einem bestimmten Format und speichere diesen dann im gleichen Verzeichnis ab.
So weit funktioniert alles, aber wenn ich in den Optionen einen Standardordner angegeben habe, dann nimmt er immer diesen Ordner, was ich aber nicht gebrauchen kann.
Entweder soll er dies im Ursprungsverzeichnis ablegen oder die Auswahl des Speicherortes zulassen.
Ich habe es mit "GetSaveAsFilename (Speichername)" probiert, aber dann speichert es nichts.
Es wäre schön, wenn mir jemand das Licht der Erleuchtung schicken könnte.
Gruß
Reiner
Sub Speicherung()
' Makro um Dateinamen zu generieren und automatisch zu speichern
' Makro am 10.05.2005 von Reiner erstellt
Dim SpeicherName As String
On Error Resume Next
SpeicherName = CurDir & "\BCP-" & Range("C3") & "-" & Range("C4") & "-" & Range("C5") & "-T-" & Format(Date, "YYYY-MM-dd") & "-" & Range("F4")
MsgBox "Die Datei wird unter Berücksichtigung der Dateinamenskonvention wie folgt gespeichert:" + Chr(13) + Chr(13) + SpeicherName + Chr(13) + Chr(13) + "Um die Datei unter einem neuen Namen zu speichern, können sie das Speichern abbrechen" + Chr(13) + "und anschließend eine neue Versionsnummer (3-stellig) vergeben und dann erneut speichern."
ActiveWorkbook.SaveAs Filename:=SpeicherName
End Sub
Anzeige