Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1828to1832
1828to1832
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatische Ordner erzeugen?

Forumthread: Automatische Ordner erzeugen?

Automatische Ordner erzeugen?
29.04.2021 09:05:25
Andreas
Hi,
würde gerne wissen, ob es möglich ist wenn man eine Excel-Datei speichert, dass dann automatisch eine Explorer-Ordner mit dem selben Namen erzeugt wird?
Vielen Dank vorab
Gruß Andreas
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatische Ordner erzeugen?
29.04.2021 09:21:22
Rudi
Hallo,
nur wenn du die Datei per VBA speicherst.
Gruß
Rudi
AW: Automatische Ordner erzeugen?
29.04.2021 09:22:37
Andreas
Guten Morgen Rudi,
kannst du mir das genauer erklären?
Gruß Andreas
AW: Automatische Ordner erzeugen?
29.04.2021 10:01:03
Rudi
Hallo,
etwa so:

Option Explicit
Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal Pfad As String) As Long
Sub speichern()
'Ist das Verzeichnis nicht wie angegeben vorhanden, wird es angelegt.
Const sPfad As String = "C:\temp\test\test\test\"
MakeSureDirectoryPathExists sPfad
ActiveWorkbook.SaveAs sPfad & "Test", xlOpenXMLWorkbookMacroEnabled
End Sub

Anzeige
AW: Automatische Ordner erzeugen?
29.04.2021 16:57:16
Andreas
Hi Rudi,
Danke für deine Rückmeldung, leider funktionierts bei mir nicht.
Den Dateipfad hab ich angepasst, aber dort wird wenn ich das Dokument speichere kein Ordner erzeugt.
Vielleicht liegt es daran, dass die folgende Zeile bei mir rot markiert wird?
Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal Pfad As String) As Long
Hast du vielleicht eine Idee, woran das liegen könnte?
Vielen Dank vorab und einen schönen Feierabend
Gruß Andreas
Anzeige
AW: Automatische Ordner erzeugen?
29.04.2021 19:42:42
Yal
Hallo Andreas,
ich schlage eine Alternative mit Einbindung von "Mircosoft Scripting Runtime" vor (Die Version von Rudi wäre schöner. Ich habe aber nicht geprüft, warum es nicht funktioniert)

'Mit Einbindung der Library "Microsoft Scripting Runtime"
' und "Microsoft VB-Script Regular expressions 5.5"
'In VB-Editor unter Extras, Verweise
Sub MappeImEigeneFolder_speichern(WBName As String)
Dim FSO As New FileSystemObject
Dim FolderName As String
Dim FD As FileDialog
Const cBasisPfad = "C:\temp\" '"\" am Ende wichtig
If Not FSO.FolderExists(cBasisPfad) Then MsgBox "Verziechnis """ & cBasisPfad & """ nicht gefunden.": Exit Sub
Set FD = Application.FileDialog(msoFileDialogSaveAs)
FD.InitialFileName = cBasisPfad & wb.Name & ".xls"
If FD.Show Then
FolderName = Mid(FD.SelectedItems(1), 1, InStrRev(FD.SelectedItems(1), ".") - 1)
If Not FSO.FolderExists(FolderName) Then FSO.CreateFolder (FolderName)
Workbooks(WBName).SaveAs cBasisPfad & FolderName & "\" & FD.SelectedItems(1)
End If
End Sub
VG Yal
Anzeige
AW: Automatische Ordner erzeugen?
03.05.2021 10:14:56
Andreas
Guten Morgen Yal,
Danke für deine Arbeit.
'Mit Einbindung der Library "Microsoft Scripting Runtime"
' und "Microsoft VB-Script Regular expressions 5.5"
'In VB-Editor unter Extras, Verweise
Hab ich beides in meiner Mappe aktiviert, den Speicherpfad im Code habe ich abgeändert.
Aber es passiert nichts wenn ich den Code ausführe, es kommt nicht mal eine Fehlermeldung.
Leider genauso wie bei dem Vorschlag von Rudi.
Hast du eine Idee, woran das liegen könnte?
Vielen Dank vorab
Gruß Andreas
Anzeige
AW: Automatische Ordner erzeugen?
03.05.2021 10:39:59
Yal
Hallo Andreas,
die Sub erwartet eine Parameter. Und zwar der Name der zu speichernde Workbook.

Sub ThisWorkbook_speichern()
MappeImEigeneFolder_speichern ThisWorkbook.Name
End Sub
Um eine Liste der gerade geöffneten Workbook zu sehen:

Sub Workbook_auflisten()
Dim msg, W
For Each W In Workbooks
msg = msg & W.Name
Next
MsgBox "Gerade geöffnete Workbooks: " & msg
End Sub
VG
Yal
Anzeige
AW: Automatische Ordner erzeugen?
03.05.2021 10:43:12
Andreas
Hallo zusammen,
habe folgenden Code im Internet gefunden, der zumindest schon mal Ordner erzeugen kann, wenn ich als Dateipfad den Desktop angebe.

Sub aa()
MkDir Environ("userprofile") _
& "\Desktop\SM" & Range("B2") _
& "-" & Range("J2") & "_" & Range("M2")
End Sub

Den Pfad möchte ich aber ändern auf :
X:\Vertrieb\
Bekomme dann aber die Fehlermeldung Pfad nicht gefunden.
Wie schreibt man den Pfad den richtig, damit auch dort der Code funktioniert?
Vielen Dank vorab
Gruß Andreas
Anzeige
AW: Automatische Ordner erzeugen?
03.05.2021 10:53:52
Yal 

Sub aa()
MkDir "X:\Vertrieb\Desktop\SM" & Range("B2") & "-" & Range("J2") & "_" & Range("M2")
End Sub
VG
Yal
AW: Automatische Ordner erzeugen?
03.05.2021 13:35:35
Andreas
Super Yal, das funktioniert, vielen Danke =)
Gruß Andreas
;

Forumthreads zu verwandten Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Caption der aktiven UserForm abfragen
Martin

Hallo liebe Excelianer,
besteht die Möglichkeit aus einem VBA-Modul heraus die aktive UserForm abzufragen? Bislang verwende ich folgende zwei Makros für zwei verschiedene UserFormen, die ich gerne zu einem Makro vereinen würde, weil deren Inhalt gleich ist:
Sub AK() 'für Userform "Te...
07.08.2008 17:06:21
Thread-ID: 1000037
3 Beiträge
automatisch Berechnen funktioniert nicht
t4z

Hi Leute,
kann mir jmd folgendes Phänomen erklären?
Excel-Datei enthält Formeln, die auf andere Zellen innerhalb der Mappe referenzieren. Die Quelldaten ändern sich, jedoch die Formeln nicht. Unter Extras-Optionen-Berechnung ist "automatisch" aktiv. Ein Drücken auf F9 bringt keinen Erfo...
07.08.2008 17:13:07
Thread-ID: 1000040
3 Beiträge
Aufruf UserForm
lasmik

hallo zusammen
wie kann ich dieses macro erweitern das es auch genau so ausgeführt wird wenn ich d3 anklicke.
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$C$3" Then UserForm1.Show If Not Intersect(Target, Range("C3")) Is Nothin...
07.08.2008 18:04:57
Thread-ID: 1000062
7 Beiträge
Überstunden-Nachweis
BuStü

Hallo Leute,
Ich komme einfach nicht weiter, habe eine Arbeitsmappe in der ich die Überstunden erfasse. (Siehe https://www.herber.de/bbs/user/54424.xls ) Es sollen jedoch nur 10 Überstunden im Monat vergütet werden, 8 Überstunden können zur Verwendung (abbummeln) bleiben. Sollten darüberhin...
07.08.2008 19:13:00
Thread-ID: 1000079
11 Beiträge
Anzeige
Cursor springt in die Pampa - MultiLine TextBox
Kilo

Hallo liebe VBA Profis
ich bin auf ein für mich nicht lösbares Problem - vielleicht sogar Phänomen gestoßen...
Leider kann ich keine Phänomene dieser Art gebrauchen.
Damit es für Sie etwas anschaulicher wird, hab ich mein Problem als Beispiel (https://www.herber.de/bbs/user/54427.xl...
07.08.2008 20:31:08
Thread-ID: 1000095
2 Beiträge
Anzeige
Formel automatisch durch Wert ersetzen (vba)
Tanja

Hallo liebe Leute,
Ich hab in meiner excel-Mappe, in den Zellen: M2:M14 Formeln, die eine ganze Zahl als Ergebnis erzeugen.
So, und nun möchte ich das 1. Berechnungs-Ergebnis quasi "einfrieren".
Mein Problem: Ich möchte kein Makro per Hand auslösen müssen, sondern der Code soll voll...
07.08.2008 21:59:00
Thread-ID: 1000110
5 Beiträge
Farbige Zellen suchen und Zuordnung auflisten
Excel-Opfer

Hallo zusammen,
ich hab nicht so die Ahnung von Makros und Automationen im Excel, bräuchte allerdings "dringend" eine Vereinfachung meines Excelchaos.
es dreht sich um folgende Problematik:
ich muss diverse Dienstpläne in unsere Personalplanung einarbeiten, leider liefert eine Abtei...
08.08.2008 06:47:00
Thread-ID: 1000143
16 Beiträge
Komplizierte Wenn-Formel für kicker-Spiel
Frank

Hallo miteinander,
ich möchte eine Excel-Datei für das offizielle Fussball-kicker-Managerspiel erstellen, leider scheitere ich total an (vermutlich) den WENN-Formeln ..... vielleicht ist das aber auch gar nicht möglich, was ich erreichen möchte :-(
In der Tabelle sollte man in Spalte A...
08.08.2008 07:28:06
Thread-ID: 1000146
4 Beiträge
AW: Excel Makro Starten
Matty

Hallo nochmal....
Was ist an meiner Variante falsch?
Ich habe die Dateinamen als String definiert und in der Schleife den String aufgerufen. Was ist an dem Aufruf Application.Run falsch bzw was muss ich anders formulieren, wenn ich möchte dass die dateien entsprechend der Schleife durch...
08.08.2008 07:42:54
Thread-ID: 1000149
2 Beiträge
Beitrag sortieren 2 Datums Uhrzeit werte VBA
chris

Hallo zusammen,
habe zwar schon einen thread offen zu dem Thema hier der Link.Wollte in nur vorschieben weil ich am besten noch heute eine Antwort benötige da ich sonst nicht weiter machen kann mit meiner datei.
Würde mich freuen wenn mir jemand helfen könnte.
Danke rudi schon mal f...
08.08.2008 09:33:49
Thread-ID: 1000181
5 Beiträge
Zeitformat aus England nicht korrekt
Uschi

Hallo liebes Forum,
folgendes Problem:
Ich bekomme eine Liste mit Zeiten aus Großbritannien, in der die Nullen fehlen, wenn es nicht über eine Stunde geht (:17:22). Ist die Zeit größer als eine Stunde, wird sie korrekt angezeigt (01:17:22). Kann ich irgendwie bei allen Zeiten, wo die St...
08.08.2008 12:29:48
Thread-ID: 1000252
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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