Speichern unter Verzeichnis mit Verzeichnisbildung
07.10.2003 13:11:18
Oliver Giertz
ich habe in der RFecherche viel gefunden aber nichts was mir wirklich geholfen hat, vielleicht bekommt Ihr das ja jetzt hin.
PS. Dafür das ich kaum Makros schreiben kann habe ich schon viel geschafft....
Nun zu meinem Problem und zu dem bestehenden Makro:
Sub automatisch_Speichern()
Dim datei, stammdatei As String
Dim Datum As Date
datei = ActiveWorkbook.FullName
stammdatei = datei
Datum = Format(Worksheets("WT").Range("D5").Value, "yyyy.mm.dd")
Datum_neu = Format(Datum, "yy-mm-dd")
datei = Mid(datei, 1, Len(datei) - 4) & " " & Datum_neu & ".xls"
Worksheets("WT").SaveAs datei
MsgBox "Die Datei wurde unter dem Datum " & Datum_neu & " gespeichert." & Chr(10) & Chr(10) & "Nun wird wieder der Standartplan geöffnet.", vbInformation, "Speichern"
Set wb = Workbooks.Open(stammdatei)
End Sub
Das funktioniert soweit auch ganz gut, nur möchte ich nun diese Datei unter
einem Netzlaufwerk speichern ("\\10.1.24.48
\Public\PP.DDF\Lager\Personalplanung.DDF.NEU\Aktuell\Tagespläne\") in einen
Ordner der sich nach dem Datum richtet.
BEispiel: 03-10 Oktober
Dort soll dann die Datei gespeichert werden. Wenn nun November ist, soll
nach dem obrigen Muster ein neuer Ordner angelegt werden, also 03-11 November.
Dies hängt einzig und Allein vom Datum ab.
Könnt ihr mir dabei helfen???????
Schöne Grüße
Oliver