Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatisches Speichern in spez. Ordnern

Forumthread: 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.
Anzeige

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
Anzeige
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
Anzeige
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")

;

Forumthreads zu verwandten 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
Verknüpfung in Ordner speichern
Günter

Hallo Zusammen,
ich habe wieder ein Thema.
Wie kann ich per Makro von der gerade geöffnet Datei eine Verknüpfung in einem bestimmen Verzeichnis erstellen.
Wie kann ich später per Makro diese Verknüpfung wieder löschen.
Danke für EUre Hilfe.
Gruß Günter
16.01.2010 14:38:11
Thread-ID: 1130457
6 Beiträge
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
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
Betreff von Emails in einem Ordner auslesen
Emails

Hallo an alle,
ich möchte gerne den Betreff, Empfänger, Absender und das Absendedatum von Emails aus einem bestimmten Ordner (nicht der Posteingang) in Outlook auslesen und in eine Tabelle schreiben.
Über die Suche im Internet habe ich dazu einige Beispiele gefunden, jedoch immer nur...
22.08.2012 16:47:49
Thread-ID: 1276053
10 Beiträge
xlt-Datei speichern unter in bestimmten Ordner
MikeS

Hallo Leute,ich habe eine xlt-Mustervorlage.Beim drücken auf das Speichersymbol geht ja immer ein
Speichern unter-Dialog auf.Wie kann ich erreichen, daß nach drücken der Schaltfläche
ein bestimmter Dateiordner geöffnet wird?Ciao MikeS
13.06.2002 15:10:21
Thread-ID: 128457
5 Beiträge
Anzeige
Tabelle in Ordner und nicht in Mappe speichern
Wolfgang

Hallo,
den nachfolgenden Code nutze ich in einer Excel-Mappe und er bewirkt, dass ich ein generiertes Tabellenblatt innerhalb der Arbeitsmappe gespeichert bekomme. Wie müßte ich den Code verändern, wenn ich das Tabellenblatt innerhalb des Ordners, in dem sich auch die Arbeitsmappe befindet,...
28.08.2013 16:45:54
Thread-ID: 1328672
3 Beiträge
Öffnen und Speichern von Mails per Excelmakro
Markus St

Hallo,vielleicht kann mir jemand helfen. Ich möchte per Excel-Makro ein Mail in Outlook öffnen und anschließend die Anlage x zu dem Mail speichern.
Nun ist diese Anlage eine Textdatei namens b.txt. Sie enthält reinen ASCII-Text. Ich wollte dort bestimmte Zeilen in diesem ASCII-Text ( Nach de...
03.07.2002 11:20:13
Thread-ID: 133353
2 Beiträge
Anzeige
Emails abspeichern in Qutlook per VBA
Lars

Hallo,
anbei der Code zum Abspeichern von Emails.
https://www.herber.de/bbs/user/101183.txt
Dieser funktionier super.
Danke für die Hilfe.
Ist es möglich, den Code so zu erweitern, dass nachdem man die Emails ausgewählt hat, die gespeichert werden sollen, immer einzelen nac...
02.11.2015 11:20:36
Thread-ID: 1455836
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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