Das Archiv des Excel-Forums

Speichern unter Verzeichnis mit Verzeichnisbildung

Bild

Betrifft: Speichern unter Verzeichnis mit Verzeichnisbildung
von: Oliver Giertz

Geschrieben am: 07.10.2003 13:11:18

Hallo liebe Excel Gemeinde,
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
Bild


Betrifft: AW: Speichern unter Verzeichnis mit Verzeichnisbildung
von: Rüdiger
Geschrieben am: 07.10.2003 13:40:09

Hallo Oliver, so sollte es gehen



Sub automatisch_Speichern()
 Dim datei, stammdatei As String, myordner As String
 Dim Datum As Date
 myordner = ("\\10.1.24.48\Public\PP.DDF\Lager\Personalplanung.DDF.NEU\Aktuell\Tagespläne\")
 myordner = myordner & month(Date)
 If Dir(myordner, vbDirectory) <> "" Then
                        MsgBox "Ordner " & myordner & " bereits vorhanden" & vbCrLf & "Datei wird geschlossen"
                    Else
                        On Error GoTo KeineBerechtigung
                        MkDir myordner
                    End If
 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 myordner & "\" & 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)
Exit Sub
KeineBerechtigung:
    MsgBox "Sie haben keine Berechtigung Dateien oder Ordner anzulegen !" & vbCrLf & "Bitte wenden Sie sich an den System-Administrator", vbCritical, "Fehlende Schreibrechte"

End Sub


     Code eingefügt mit Syntaxhighlighter 2.4



Bild


Betrifft: Danke es funktioniert o.T.
von: Oliver Giertz
Geschrieben am: 07.10.2003 14:26:24




 Bild

Excel-Beispiele zum Thema " Speichern unter Verzeichnis mit Verzeichnisbildung"

Zelleingaben speichern download Die "personl"-Arbeitsmappe ausgeblendet speichern download
Formeln mit Zelladressen speichern download Bestätigung beim Speichern unterdrücken. download
Arbeitsmappe unter dem Text eines Zelleintrags speichern download Einzelnes Tabellenblatt speichern download
Mappe unter Zelldatum speichern download Arbeitsmappe doppelt speichern download
Arbeitsmappe unter Namen speichern download Programmabbruch bei Überspeichernabfrage verhindern download
dBase-Datei laden, bearbeiten, speichern download Variablen in einer temporären Textdatei zwischenspeichern download
Ausgewählte Tabellenblätter als eigene Arbeitsmappen speichern download Einzelnes Tabellenblatt unter Tagesdatum speichern download
Menüpunkt SPEICHERN deaktivieren download Speichernabfrage beim Schließen der Arbeitsmappe download
Zeit eintragen und Tabelle minütlich als HTML-Datei speichern download Arbeitsmappe 10-minütlich als *.xls und *.bak-Datei speichern download
Texte mit unterschiedlichen Feldlängen als Textdatei speichern download Arbeitsmappe mit absoluten Werten unter neuem Namen speichern download
Text in NotePad schreiben, speichern, in Excel aufrufen download Sicherheitskopien von Arbeitsmappen speichern download
Arbeitsmappe 5 Sekunden nach dem Öffnen speichern und schließen download Tabellenblattbereich als Grafik speichern download
Blattschutz beim Speichern setzen download Eingetragenen Wert in TextBox speichern download
Zeilenweises Speichern von Texten download Tabellenblattdaten als Textdatei mit vorgegebenem Namen speichern download
Blätter in UserForm-ListBox auswählen und speichern download Filter vor Speichern zurücksetzen download
Blatt ohne Code, Steuerelement und Formeln speichern download Speichern ausschließlich über UserForm-Schaltfläche download
Speichern unter forlaufender Nummer download Daten in einer Textdatei ohne Anführungszeichen speichern download
Einzel-Arbeitsblätter einer Arbeitsmappe speichern. download Speichern-Befehl abfangen und unter Paßwort speichern download
Werte nach Gruppen aufteilen und in gesonderten Dateien speichern download HTML-Seite aus dem Internet aufrufen und als Textdatei speichern download
Auswahl in andere Arbeitsmappe kopieren, speichern, schließen download Beim Speichern Schaltfläche erstellen download
Speichern-Schaltfläche aktivieren/deaktivieren download Binärdatei aus dem Internet downloaden und speichern download
UserForm-TextBoxes-Texte in Textdateien speichern download Datei-Speichern-Dialog zusammen mit Paßwortdialog aufrufen download
Tabellenblattinhalte in getrennten Textdateien speichern download Buchstaben aus Textdatei entfernen und neu speichern download
Speichern-Dialog mit Dateinamen-Vorschlag aufrufen download Aktive Arbeitsmappe ohne VBA-Code und Button speichern download
Die Zeilen mit Wert in Spalte C als CSV-Datei speichern download Webabfrage periodisch aktualisieren und Ergebnisse speichern download
Alle Dateien im Verzeichnis öffnen download Verzeichnisbaum anlegen download
Unterverzeichnisse mit Inhalt löschen download Alle Dateien eines Verzeichnisses drucken download
Ordner eines Verzeichnisses in ListBox übernehmen download Dateinamen eines Verzeichnisses als HTML-Datei download
Feststellen, ob eine Datei in einem Verzeichnis existiert download xlSaveAs-Dialog in einem bestimmten Verzeichnis aufrufen download
Verzeichnisbaum aufrufen und Dateien in ListBox auflisten download Ordnernamen eines Verzeichnisses in Zelle einfügen download
Sicherungskopie in einem anderen Verzeichnis erstellen download Verzeichnisbaum aufrufen und Verzeichnis auswählen download
Arbeitsmappen eines Verzeichnisses ändern download Daten aus allen Dateien eines Verzeichnisses zusammenführen download
Alle Arbeitsmappen eines Verzeichnisses öffnen download Verzeichniswechsel über VBA download
Hyperlinks zu allen Excel-Dateien eines Verzeichnisses erstellen download Aus Dialog Verzeichnis auswählen, dann neuen Ordner erstellen download
Dateien in einem Verzeichnis und Unterverzeichnissen suchen download XL-Dateien aus Haupt- und Unterverzeichnissen einlesen download
Neueste Textdatei eines Verzeichnisses suchen und umbenennen download Vorkommen eines Wortes in Arbeitsmappen eines Verzeichnisse download
Ermittlung des Windows-Temp-Verzeichnisses download Ermittlung des Windows-Verzeichnisses download
Ermittlung des Windows-System-Verzeichnisses download Erste Blätter aus allen Dateien eines Verzeichnisses sammeln download
Verzeichnisse gemäß Tabelleneintragen anlegen download Vorhandensein von Verzeichnissen prüfen und Ordner anlegen download
Hierarchisch aufgebautes Inhaltsverzeichnis als HTML-File download Verzeichnisdialog mit vorgegebenem Verzeichnis aufrufen download
Unterverzeichnisse eines vorgegebenen Pfades auslesen download Anwenderverzeichnis auslesen download
Alle Textdateien eines Verzeichnisses importieren download