Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.10.2025 15:11:39
Werte aus Zellen in Punktdiagramm, Beschriftung
10.10.2025 11:07:34
"Text in Spalten" ändert die Zahl von 21.1 in 45678
10.10.2025 10:11:05
geöffnete Excel-Datei mit variablen Namen finden
10.10.2025 09:38:53
Spalten aus 2 Tabellenblättern mit Array abgleichen
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
1764to1768
1764to1768
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ordner im Explorer anlegen

Forumthread: Ordner im Explorer anlegen

Ordner im Explorer anlegen
09.06.2020 09:16:29
Karen
Hallo Forum,
ich möchte in einem bestehenden Laufwerk G:\A1\ eine Ordnerstruktur anlegen. Die entsprechenden Ordner inkl. Unterordner habe ich durch Verkettung in einer Excel Datei in Spalte G stehen. Da ich nur über bescheidene VBA Kenntnisse verfüge, sollte mir dieses Makro helfen, was ich gefunden habe:
Option Explicit
Declare 

Function MakePath& Lib "imagehlp.dll" Alias _
"MakeSureDirectoryPathExists" (ByVal sPath$)


Sub CreatePaths()
Dim i&
With Tabelle1
For i = 1 To .Cells(.Rows.Count, "G").End(xlUp).Row
MakePath .Cells(i, "G").Text
Next
End With
End 


Sub
Leider scheitere ich dabei schon bei dem ersten Bug "Tabelle 1" unbekannt.
Ich würde mich sehr über Hilfe freuen, da ich meine Ordnerstruktur so ca. 300 Male anlegen muß.  _
Vielen Dank im Voraus.
Beste Grüße
Karen
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ordner im Explorer anlegen
09.06.2020 09:26:14
EtoPHG
Hallo Karen,
Offensichtlich gibt es kein Worksheet mit dem VBA-Namen Tabelle1 in deinem Excelprojekt.
Du kannst das Worksheet aber mit dem Index oder dem Registernamen referenzieren: 
With ThisWorkbook.Worksheets(1) ' wenn es immer das 1. Blatt ist
'oder
With ThisWorkbook.Worksheets("Tabelle 1") ' wie das Blatt-Register benannt ist

Gruess Hansueli
Anzeige
AW: Ordner im Explorer anlegen
09.06.2020 09:28:49
MCO
Hallo Karen!
Warum so kompliziert? 

Sub CreatePaths()
Dim i&
With Sheets("Tabelle1")
For i = 1 To .Cells(.Rows.Count, "G").End(xlUp).Row
If Dir(.Cells(i, "G"), vbDirectory) = "" Then MkDir .Cells(i, "G").Text
Next
End With
end sub
Gruß, MCO
MVO: Das funktioniert nicht, ...
09.06.2020 11:11:05
Rudi
Hallo,
... wenn die übergeordneten Ordner nicht existieren.
Mkdir "c:\test\test" geht nicht, wenn es "c:\test" nicht gibt.
Gruß
Rudi
Anzeige
C nicht V. owT
09.06.2020 11:45:10
Rudi
AW: Ordner im Explorer anlegen
10.06.2020 07:29:12
Karen
Hallo MCO,
vielen Dank für Deine Nachricht.
Ich erhalte, wenn ich es als Modul eingebe, Pfad nicht gefunden (MkDir .Cells(i, "G").Text).
Was mache ich falsch?
Beste Grüße
Karen
AW: präzise
09.06.2020 09:34:00
Fennek
Hallo,
was steht in den Zellen?
Da es auf jeden back-slash ankommt, könntest Du ein oder zwei Beispiele des Zellinhalts zeigen?
mfg
Anzeige
AW: Ordner im Explorer anlegen
09.06.2020 11:37:29
Rudi
Hallo, 
Option Explicit
Declare Function MakePath Lib "imagehlp.dll" Alias "MakeSureDirectoryPathExists" (ByVal Pfad As  _
String) As Long
Sub CreatePaths()
Dim i&, s As String
With Tabelle1
For i = 1 To .Cells(Rows.Count, 7).End(xlUp).Row
s = .Cells(i, 7).Text
s = s & IIf(Right(s, 1)  "\", "\", "")
MakePath s
Next
End With
End Sub

Gruß
Rudi
Anzeige
AW: Ordner im Explorer anlegen
10.06.2020 07:46:07
Karen
Perfekt, das hat geklappt! Vielen Dank dafür!
;

Forumthreads zu verwandten Themen

Unterordner und Arbeitsmappe erstellen
Werner

Hallo,
ich bräuchte wieder mal einen Schubser weil ich keinen Plan habe wie man folgendes machen könnte:
Ich möchte in dem Ordner, in dem sich meine Datei befindet, einen Unterordner erstellen.
Meine Überlegungen dazu: Prüfen, ob der Unterordner existiert, wenn nicht, erstellen
...
24.01.2009 11:20:00
Thread-ID: 1043302
4 Beiträge
Neuen Ordner anlegen Inputbox
Sonnenpeter

Hallo,
ich lege mir über eine Inputbox neue Ordner an.
Leider bekomme ich die Abrechen_Schaltfläche nicht in den Griff.
Sub NeuenOrdnerAnlegen() Dim strfolder As String Dim Ordnername As String Dim Mldg, Titel, Voreinstellung, Wert1 Dim Verzeichnis As String Dim dlg As Object On...
28.02.2009 13:05:54
Thread-ID: 1055054
5 Beiträge
Automatisch Ordner aus Zelleneintrag erstellen
fejoho

Hallo,
Ich brauche Hilfe bei einem Problem, was denke ich für jemand, der sich nur etwas besser auskennt als ich, überhaupt keins ist.
ich benötige einen quelltext für den visualbasic-script-editor der:
---------------------------------------------------------------------
1. Aut...
23.07.2009 17:16:55
Thread-ID: 1090881
3 Beiträge
Automatisch Ordner aus Zelleneintrag erstellen
fejoho

Hallo,
Ich brauche Hilfe bei einem Problem, was denke ich für jemand, der sich nur etwas besser auskennt als ich, überhaupt keins ist.
ich benötige einen quelltext für den visualbasic-script-editor der:
---------------------------------------------------------------------
1. Aut...
23.07.2009 17:06:21
Thread-ID: 1090882
2 Beiträge
Anzeige
Outlook Lesebestätigung in Ordner verschieben?
Jessi

Hallo zusammen,
habe folgenden Code für das Verschieben von gelesenen Lesebestätigungen in meinem Outlook Ordner. Leider funktioniert diese nicht:
Code: Private Sub Application_NewMail() On Error Resume Next ' Variablen deklarieren Dim objInboxFolder As MAPIFolder ' Post...
13.08.2009 13:38:35
Thread-ID: 1095538
4 Beiträge
Anzeige
Termin im Outlookkalender aus Excelliste erstellen
backi

Hallo zusammen,
über den folgenden Code und einige nachfolgende Variablen kann ich einen Termin im "Standard"-Outlook-Kalender erstellen.
Set OutApp = CreateObject("Outlook.Application")
Set apptOutApp = OutApp.CreateItem(1) 'olAppointmentItem)
With apptOutApp
Das funktioni...
03.08.2010 15:24:00
Thread-ID: 1170253
8 Beiträge
Combobox Excel-Inhalt in Outlook 2007 erstellen
TobiBB

Combobox Excel-Inhalt in Outlook 2007 erstellen
Hallo Leute,
folgendes Problem:
Habe eine Input-Box um werte einzulesen und mit einer excel-liste abzugleichen.
Statt der Input-Box möchte ich nun eine Dropdown Combobox erstellen, die mir eine möglichkeit für einen neuen sucheint...
13.10.2010 12:11:43
Thread-ID: 1182214
2 Beiträge
Kontakt in Outlook erstellen mit Bild
KLE

Hi,
einen Kontakt in Outlook abzulegen aus Daten einer Excel-Tabelle - das klappt schon super.
Frage, die ich aber nach mehrstündiger Online-Suche nicht richtig beantworten kann ist folgende:
Ich habe den Pfad zu einem Bild eines Kontaktes in der Tabelle stehen.
Wie kann ich dem...
19.10.2011 15:40:28
Thread-ID: 1234535
2 Beiträge
Anzeige
Pfad - Ordner in einer Schleife erstellen - Makro
Johannes

Hi,
ich denke nachfolgendes Problem wird nicht neu sein. Darum frage ich einmal nach ob hier jemand eine fertige Lösung hat :-)
Mittels Makro erzeuge ich neue Mappen welche ich an unterschiedlichen Orten speichern möchte. Jetzt kommt es vor, dass die betreffenden Ordner nicht vorhanden...
19.04.2012 19:01:12
Thread-ID: 1260158
3 Beiträge
Ordner in einem Ordner erstellen
Hartmut

https://www.herber.de/bbs/user/86294.xlsx
Hallöchen zusammen,
ich habe ein Problem wobei ihr mir hoffentlich helfen könnt.
Ich der angeh. Tabelle sind Nachträge zu erfassen. Es müssen zu jedem Nachtrag (N1;N2;N3 usw.) immer mind. 2 zusätzliche Tabellen angefügt werden welche sich da...
10.07.2013 15:45:38
Thread-ID: 1321902
19 Beiträge
Anzeige
Tabelle in Öfentlichen Ordner ins Outlook kopieren
Walerij Riffel

Hallo Profis,ich muss eine Tabelle in den Öfentlichen Ordner ins Outlook kopieren.Kann mir einer Helfen?
Ich habe bereits unter Recherche gesucht. Leider ist es nicht mehr da oder beschädigt.(kann die Infos nicht öffnen).Bedanke mich im voraus.MfGWalerij Riffel
28.06.2002 14:18:24
Thread-ID: 132265
3 Beiträge
Ordner in selbem Pfad anlegen
Henner

Hallo zusammen,
mit MkDir ("C:\DIR") kann ich einen Ordner "DIR" auf "C:\" anlegen. Wie kann ich denn einen Ordner an der Stelle anlegen, wo auch meine .xls liegt?
Danke und Gruss
26.09.2013 19:23:08
Thread-ID: 1332344
3 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