Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1432to1436
1432to1436
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ordner im Selben verzeichniss erstellen

Forumthread: Ordner im Selben verzeichniss erstellen

Ordner im Selben verzeichniss erstellen
29.06.2015 10:06:50
Alex
HAllo Profis,
ich würde gerne aus einer Excelltabelle Ordner erstellen.
Nur Weiß ich nicht wie ich dass so hinbekomme wie ich mir das Vorstelle.
1.Die Ordner sollen im Selben Verzeichnis wie die Excelldatei erstellt werden
Oder In einem Pfad den ich in Zelle B5 angebe.
2.Ab Zelle A2 Stehen die Ordnernamen
3.wenn die erste leere Zelle in Spalte A kommt soll ende sein.
danke für die Hilfe

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Ordner im Selben verzeichniss erstellen
29.06.2015 10:33:35
Nepumuk
Hallo,
würde ich so machen:
Option Explicit

Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib "imagehlp.dll" ( _
    ByVal DirPath As String) As Long

Public Sub CreateFolder()
    Dim strPath As String
    Dim lngRow As Long
    If Not IsEmpty(Cells(5, 2).Value) Then
        strPath = Cells(5, 2).Text
    Else
        strPath = ThisWorkbook.Path
    End If
    If Left$(strPath, 1) <> "\" Then strPath = strPath & "\"
    For lngRow = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        Call MakeSureDirectoryPathExists(strPath & Cells(lngRow, 1).Text & "\")
    Next
End Sub

Gruß
Nepumuk

Anzeige
AW: Ordner im Selben verzeichniss erstellen
29.06.2015 10:49:37
Alex
Hallo Nepumuk,
Es funktioniert leider nicht. Es kommt aber auch keine Fehlermeldung.
kann ich das auch auf einen Buttonklick legen
also so: 
Option Explicit
Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (_
ByVal DirPath As String) As Long
Sub Schaltfläche2_Klicken()
Dim strPath As String
Dim lngRow As Long
If Not IsEmpty(Cells(5, 2).Value) Then
strPath = Cells(5, 2).Text
Else
strPath = ThisWorkbook.Path
End If
If Left$(strPath, 1)  "\" Then strPath = strPath & "\"
For lngRow = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Call MakeSureDirectoryPathExists(strPath & Cells(lngRow, 1).Text & "\")
Next
End Sub

Habe ich da einen Fehler gemacht oder warum erstellt es mir keine Ordner?
Hier auch mal noch die Excelldatei:
https://www.herber.de/bbs/user/98539.xlsm

Anzeige
AW: Ordner im Selben verzeichniss erstellen
29.06.2015 10:53:07
Nepumuk
Hallo,
es gibt kein Laufwerk mit dem Namen "Pfad:". Du musst die Zelle leer lassen oder einen existierenden Pfad eintragen.
Gruß
Nepumuk

AW: Ordner im Selben verzeichniss erstellen
29.06.2015 10:54:35
Alex
Hallo,
Pfad ist nur die Überschrift in der Zelle darunter kommt der Pfad rein :-)

AW: Ordner im Selben verzeichniss erstellen
29.06.2015 11:01:18
Nepumuk
Hallo,
Ooooooops da hast du Recht.
Aber im Ordername darf kein / sein. Verbotene Zeichen sind: /\:*?"|
Gruß
Nepumuk

Anzeige
AW: Ordner im Selben verzeichniss erstellen
29.06.2015 11:10:21
Alex
Hallo Nepumuk,
Ups das habe ich vermasselt.
Jetzt funktioniert alles ^^
Danke dir
;

Forumthreads zu verwandten Themen

VBA - Verzeichnisse erstellen und manuell löschen
Christian

Hallo bestes Forum,
per vba möchte ich ein Haupt-Verzeichnis erstellen, falls dieses noch nicht existiert.
In diesem Ordner werden weitere Unterordner erstellt (auch wieder nur dann, wenn es diese noch nicht gibt).
Diese mit meinem Script (siehe unten) erstellten Verzeichnisse zeige...
09.09.2010 21:01:16
Thread-ID: 1176718
6 Beiträge
Am 1.1. per VBA Ordner 2014 anlegen
Bernd

Hallo zusammen,
Brauche Hilfe bei nachfolgendem Problem, komme einfach nicht weiter.
Und zwar möchte ich das automatisch beim ersten Öffnen der Arbeitsmappe im Ordner "D:\Firma\Schriftwechsel\" ein neuer Ordner mit der aktuellen Jahreszahl (2014) angelegt wird.
Wer kann mir behilfli...
17.09.2013 10:54:53
Thread-ID: 1331135
12 Beiträge
Makro erweitern - Ordner aus Blattname erstellen
Ulf

Moin, moin
ich möchte meine Vorlage noch verfeinern, weiß aber nicht wie.
Im Blatt "20µ-50µ" SpalteB wird eine Ser.Nr. vergeben. Es wird ein neues Blatt mit dieser Ser.Nr. erstellt. Soweit alles perfekt.
Jetzt möchte ich, wenn eine Ser.Nr. vergeben wird im Ordner: P:\Operations-Prod...
17.03.2015 10:05:08
Thread-ID: 1415404
4 Beiträge
Erstellen von Ordnern durch VBA
Ordnern

Hallo Community,
ich hätte eine Frage. Und zwar würde ich gerne per VBA einen Button in Excel erstellen, welches dann immer in jeder Exceldatei dieser Art verfügbar ist. Generell ist in den Exceldateien ein Datenblatt abgebildet.
Das Programm sollte zwei Arrays enthalten, die eine Anz...
04.04.2018 10:37:24
Thread-ID: 1617949
6 Beiträge
Ordner mit Unterordner erstellen VBA
JimKnopf76

Hallo zusammen,
zurzeit möchte ich mit Hilfe des folgenden Codes, welche ich hier im Archiv gefunden habe, Ordner und Unterordner erzeugen. Allerdings wird lediglich mit dem Zelle B1 Werten ein Ordner erzeugt. Wie sieht eine Schleife, sodass die Werte in Pfad = Range("B1") hochgezählt werde...
18.07.2019 13:39:19
Thread-ID: 1703107
6 Beiträge
Anzeige
pdf sortieren und Ordner erstellen via VBA Teil 2
Tom

Hallo zusammen,
leider kann ich nicht mehr auf meinen alten Beitrag antworten, daher erstelle ich jetzt einen neuen.
Franz (oder auch fcs), erstmal vielen Dank fuer deine Hilfe. Ich hoffe mein Dank erreicht dich auf irgendeine Weise.
Franz hat mir folgenden Code geschrieben:
---...
30.07.2019 01:53:13
Thread-ID: 1704877
2 Beiträge
pdf sortieren und Ordner erstellen via VBA Teil 3
Tom

Hallo zusammen,
Ich habe einen Code mithilfe des Forums (grosses Dankeschoen an Franz bzw. fcs) erarbeitet und verwende ihn seit einigen Wochen.
Mittlerweile sind mir einige Probleme aufgefallen, die ich nicht geloest bekomme.
Ich sortiere mithilfe des Makros mehrere pdf Dateien und...
29.08.2019 05:16:04
Thread-ID: 1710143
2 Beiträge
Ordner / Verzeichnis erstellen lassen
Andreas

Hallo,
Hat jemand eine Lösung, wie ich einen Ordner bzw. einen ganzen Pfad a'la "D:\temp\excel\neu" per "Knopfdruck" anlegen lassen kann?
Der Pfad steht als String in einer Zelle zur Verfügung.
Danke für die Hilfe!
29.11.2004 15:04:15
Thread-ID: 525014
3 Beiträge
neuen Ordner erstellen?
Therese

Hi,
ich habe eine xls mit einem Makro. In der xls ist ein Feld "Nachname". Anhand dieses Feldes soll ein neuer Ordner erstellt werden mit dem Inhalt des Feldes "Nachname".
Sprich: starte makro, erstelle neuen ordner und dann weiter mit dem Makro-Rest. Ich brauche also diese "Zwischenseq...
08.06.2005 13:14:24
Thread-ID: 621405
4 Beiträge
Ordner aus Liste erstellen in VBA
Andres

Hallo,
ich möchte in VBA aus einer Liste A1: A100 insgesamt 100 Ordner erzeugen,
welche als Ordnernamen den Inhalt den Zellen haben.
Die leeren Ordner sollen nur erstellt werden. Es sollen keine Dateien rein.
Kann mir hier jemand weiterhelfen?
Gruß
Andres
29.05.2008 15:46:00
Thread-ID: 981537
3 Beiträge
Anzeige
Liste aus Liste erstellen
Ernst

Hallo Vba Profis !
Ich habe folgende Problemstellung und zwar meine Exelliste die ich Auslaufmanagement benannt habe und unter folgendem Link abrufbar ist: https://www.herber.de/bbs/user/54880.zip
besteht aus drei Tabellenblättern (im Tabellenblatt Auslaufmanagement wird eine Nummer ei...
25.08.2008 14:02:00
Thread-ID: 1004448
21 Beiträge
Liste aus Daten mittels Drop-Down Menüs erstellen
Marco

Hallo liebes Forum,
ich habe mal wieder ein Problem und hoffe auf Eure hilfe. Wahrscheinlich ist das für einen VBA Profi ein lacher, für mich allerdings ein Krampf.
Ich will automatisch einen Packplan erstellen. Hierfür existieren vordefinierte Vorlagen, hinsichtlich des jeweiligen Item...
11.10.2008 19:51:00
Thread-ID: 1015785
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige