Komplexe Aufgabe: Dateinamen & Ordner neu &...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Armin,

ich habe vor ein paar Tagen ein ähnliches Problem über ein Makro gelöst.

Bei mir wird die Datei erst in ein Verzeichniss mit der Jahreszahl und dann in einen Unterordner mit der Bezeichnung MONAT als Kopie der geöffneten Dateu gespeichert.

Sub XLS_Speichern()
Dim strFolder As String
Application.DisplayStatusBar = True
Application.StatusBar = "XLS-Datei wird gespeichert... bitte warten!"

'-- prüfen ob Verzeichniss YEAR vorhanden, sonst erstellen
strFolder = Range("Laufwerk+Ordner zB A1") & "\" & Range("year zB A2") 'Laufwerk+Ordner zb C:\Test
If Dir(strFolder, vbDirectory) <> "" Then
Application.StatusBar = strFolder & " - Verzeichnis vorhanden"
Else
Application.StatusBar = strFolder & " - Verzeichnis erstellt"
MkDir strFolder
End If

'-- prüfen ob Verzeichniss MONAT vorhanden, sonst erstellen
strFolder = Range("root zB A1 & A2") & "\" & Range(" zB A3")
If Dir(strFolder, vbDirectory) <> "" Then
Application.StatusBar = strFolder & " - Verzeichnis vorhanden"
Else
Application.StatusBar = strFolder & " - Verzeichnis erstellt"
MkDir strFolder
End If

Pfad = Range("pfad zB A4") ' zunaechst den Unterordner aktivieren
Datei = Range("filename_xls zB A5").Value ' Dateinamen aus Zelle lesen
Save_As_At = Pfad & "\" & Datei ' Pfad und Name zusammenfuegen
Application.DisplayAlerts = True 'False ' True/False -> Warnung bei Ueberschreiben Ein/Aus
ActiveWorkbook.SaveCopyAs Save_As_At ' Speichern ausfuehren als Kopie unter anderem Namen - mit SaveAs müsste es die Datei an sich sein
'Application.DisplayAlerts = True ' True -> Warnung bei Ueberschreiben Ein
MsgBox ("Der Datei wurde erfolgreich und unter dem Namen " & Datei & " im Pfad " & Pfad & " gespeichert !"), vbInformation
Application.DisplayStatusBar = False
End Sub

Hoffe das Hilft Dir schonmal etwas weiter. Zu Punkt 1 und 2 dürfte das helfen. Zu Punkt 3 must Du wohl noch etwas basteln. Bin auf Deine Lösung gespannt. (Ich habe es über ein auslesen der gesamten Dateien des Ordners MONAT in eine "Erfassungsbogen als Übersicht"-Datei gelöst.)

Grüsse Sven

Hallo Sven,

vorab besten Dank für Deine Hilfe. Leider hab ich immernoch ein Problem. Ab der folgenden Zeile bekomme ich eine Fehlermeldung:

Application.DisplayAlerts = True 'False ' True/False -> Warnung bei Ueberschreiben Ein/Aus
ActiveWorkbook.SaveCopyAs Save_As_At ' Speichern ausfuehren als Kopie unter anderem Namen'
Application.DisplayAlerts = True

Laufzeitfehler 1004 Anwendungs- oder objektdefinierter Fehler.

Wenn ich den Codeabschnitt ganz weglasse, funktioniert es immerhin einen entsprechenden Ordner anzulegen, allerdings wird die aktive Datei nicht gespeichert.

Anbei:
Den Pfad schreibe ich explizit in eine Zelle und verweise auf diese Zelle (W3), da er immer gleich bleibt. Die Überschreib-Warnung habe ich anscheinend ausgehebelt, macht aber nichts, da durch das Datum ausgeschlossen ist, das eine gleichlautende Datei erstellt wird.
Damit nicht 2 gleichlautende Ordner entstehen habe ich den Code ab ---prüfen ob Verzeichnis Monat vorhanden... gelöscht.

Das was von Deinem schönen CODE übriggeblieben ist schaut nun folgendermaßen aus:

Als Hintergundinfo sollte ich Dir noch mitteilen, das ich mich mit VBA nicht gut auskenne.

Viele Grüße

Armin

Beliebteste Forumthreads (12 Monate)

Komplexe Aufgabe: Dateinamen & Ordner neu &...

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Komplexe Aufgabe: Dateinamen & Ordner neu &...

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

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread