Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1908to1912
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1908to1912
1908to1912
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatisches Speichern in spez. Ordnern

Automatisches Speichern in spez. Ordnern
11.12.2022 14:41:41
Frank
Hallo Freunde,
ich rätsele seit Tagen über eine Problematik, in der ich nicht weiter komme.
Ich will einen Sub schreiben, der meine angelegten Excel Dateien mit einem speziellen Namen, basierend auf ihr Erstellungsdatum, in monatliche Ordner speichert.
Also als Beispiel:
2022_12_11 Test.xlsm in den Ordner 12_2022
die Ordner sollten hierbei automatisch angelegt werden, wenn sie nicht bereits erstellt sind.
Hat da jemand eine Idee?
Danke euch vielmals.

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatisches Speichern in spez. Ordnern
11.12.2022 16:32:13
Nepumuk
Hallo Frank,
teste mal:

Option Explicit
Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib "imagehlp.dll" ( _
ByVal DirPath As String) As Long
Public Sub Speichern()
Const FOLDER_PATH As String = "H:\221211\" ' Ordner anpassen !!!
Dim strFolder As String, strFilename As String
Dim lngReturn As Long
strFolder = FOLDER_PATH & Format$(Date, "mm_yyyy") & "\"
lngReturn = MakeSureDirectoryPathExists(strFolder)
If lngReturn = 1 Then
strFilename = strFolder & Format$(Date, "yyyy_mm_dd") & " " & ThisWorkbook.Name
If Dir$(strFilename)  vbNullString Then
If MsgBox("Die Datei existiert bereits." & vbLf & vbLf & "Überschreiben", _
vbQuestion Or vbYesNo, "Sicherheitsabfrage") = vbYes Then
Application.DisplayAlerts = False
Call ThisWorkbook.SaveCopyAs(Filename:=strFilename)
Application.DisplayAlerts = True
End If
Else
Call ThisWorkbook.SaveCopyAs(Filename:=strFilename)
End If
Else
Call MsgBox("Fehler beim Erstellen des Ordners.", vbCritical, "Dateisystemfehler")
End If
End Sub
Gruß
Nepumuk
Anzeige
AW: Automatisches Speichern in spez. Ordnern
11.12.2022 19:55:31
Bernd
HAllo Nepumuk,
schon mal vielen Dank für die Mühe.
Ich krieg zwar keine Fehlermeldung, aber im Zielpfad wird weder die Datei gespeichert, noch ein Ordner erstellt. Woran könnte das liegen?
Ich hab den Code jetzt 1:1 in den Tabelle1 Code eingefügt und den Pfad geändert.
Gruß
Frank
Frank-Bernd-Frank? oh man!!!! :-/ owT
12.12.2022 02:53:59
Oberschlumpf
AW: Automatisches Speichern in spez. Ordnern
12.12.2022 11:26:48
Nepumuk
Hallo Frank,
kann ich nicht nachvollziehen. Hast du eventuelle den Backslash am Ende des Pfades gelöscht?
Gruß
Nepumuk
AW: Automatisches Speichern in spez. Ordnern
13.12.2022 23:09:35
Frank
Tatsächlich war es ein Anwenderfehler. Vielen Dank für die Hilfe.
Gruß Frank
AW: Automatisches Speichern in spez. Ordnern
11.12.2022 20:26:03
snb
Sei vernünftig und verzichte auf den splitten in directories.
Wichtig ist nur eine Datei zurückfinden zu können.
.
Du kannst jede Novemberdatei finden mit:

c00=Dir("G:\OF\2022_11_*.xlsm")

Anzeige

80 Forumthreads zu ähnlichen Themen

VBA Abspeichern in variablen Ordner
Danomat

Hi,
folgendes Problem
In Zelle C1 steht der aktuelle Monat. Nun möchte ich die Datei als PDF abspeichern:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:\Dokumente\Berichtswesen\Monatsreporting\02 Februar\Test.pdf" _
, Quality:=xlQualityStandard, IncludeDo...
13.03.2009 12:37:34
Thread-ID: 1059831
10 Beiträge
Anzeige
Makro zum Speichern in Ordnerstruktur
andreas

Hallo zusammen,
ich habe hier ein Makro aufgezeichnet dass ich mit Parametern ergänzen muss, benötige aber Hilfe
ActiveWorkbook.SaveAs Filename:= _
"V:\129001-130000\129601-129700\129601\129601-1\Kopie von Checkliste RT-Angebot2.xls" _
, FileFormat:=xlNormal, Password:="", Write...
18.02.2010 12:08:53
Thread-ID: 1139478
10 Beiträge
Mails automatisch in einen Ordner speichern
René

Hallo,
hat eventuell jemand einen Tipp für mich wie ich erreichen kann das eine empfangene Mail automatisch in einen Ordner gespeichert wird. Also von bekommt jemand eine Exceldatei gesendet und darin soll ein Button sein der ein Makro enthält das dafür sorgt das die Mail bei mir automatis...
23.11.2010 21:58:19
Thread-ID: 1188419
2 Beiträge
Anzeige
Button: Speichern in Ordner
Chris

Hallo zusammen,
kann mir jemand bei Folgendem helfen:
Ich möchte einem Button einen Code hinterlegen, sodass ich per Knopfdruck die gesamte Excel-Arbeitsmappe mit allen Sheets in einem anderen Ordner mit anderem Dateinamen ablege.
Bsp.:
Zielort: X:\Dateien\Plan\
Dateiname: "...
15.04.2011 10:19:07
Thread-ID: 1210537
8 Beiträge
Blätter speichern in Ordnern
Michael

Hallo EXcellenzen,
einiges hab ich mir schon zusammengesucht aber nun muss ich passen oder ich denk falsch.
Excel 2007, VBA na ja, kann es anpassen aber nicht alles selber schreiben.
In einer Mappe im Arbeitsblatt "Namen" stehen
in Zelle A2 bis Ax Abkürzungen wie "AmM"
in Ze...
31.05.2011 14:33:16
Thread-ID: 1216866
8 Beiträge
Eine Datei in viele Ordner speichern
maho

Guten Morgen!
Wie schon im Titel erwähnt, würde ich gerne eine bestimmte Exceldatei mit wenig Aufand(Makro?) in viele unterschiedliche Ordner abspeichern, die sich alle in einem übergeordneten Ordner befinden.
Hab' leider nichts Konkretes beim Suchen gefunden.
Danke für eure Mühe...
08.09.2011 08:28:07
Thread-ID: 1229012
2 Beiträge
Mail automatisch in Ordner verschieben
Ralf_Frankfurt

Hallo,
suche eine Lösung, die die gesendete Mail nicht in den Ordner 'send items', sondern in dem Ordner 'Produktion ab 1.9.2010' ablegt.
Vielen Dank und freundliche Grüße
Ralf Sub Mail_AM_SettlementsAktiengeschaefte() Dim olapp As Object Set olapp = CreateObject("Outlook.Applicati...
03.11.2011 19:55:33
Thread-ID: 1236459
2 Beiträge
Datei in neu erstelltem Ordner speichern VBA
Volker

Guten Morgen!
Ich möchte aus einer Arbeitsmappe ein einzelnes Blatt als neue Arbeitsmappe speichern.
Dieses Blatt wurde mittels Comboboxen / Userform gefüllt.
z.b. Combobox 1 = Einheit CB2 = Teileinheit CB3 = Name
in einer weiteren CB stelle ich dann den Pfad aus den CB Wert...
15.04.2012 09:20:02
Thread-ID: 1259342
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
9
5
9
1
4
7
7
1
1
6
9
4
2
1
2
6
5
2
1
5
5
2
8
6
4