Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.10.2025 18:18:42
Anzahl in einer Zelle automatisch ermitteln
04.10.2025 17:44:54
Power Query - Filtern einer Spalte mittels einer Liste
04.10.2025 15:35:03
Range um eine Einzelzelle erweiternerweitern
04.10.2025 14:27:49
Was ist mit dem CEF Forum passiert?
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
1200to1204
1200to1204
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatische Ordnererstellung

Forumthread: Automatische Ordnererstellung

Automatische Ordnererstellung
nicospostbox
Hallo zusammen!
Ich habe in einem Tabellenblatt untereinander eine Reihe von Namen stehen, beginnend ab Zelle B6. Die Anzahl der Namen variiert. In Zelle C10 steht ein Pfad, der zu einem Unterordner auf meinem C:/ Laufwerk führt.
Ich möchte nun per Makro für jeden Namen in dieser Datei (ab Zelle B6) automatisch einen Unterordner in diesem Verzeichnis erstellen lassen.
Kann mir jemand sagen, wie das Makro hierfür aussehen müsste?
Danke & Grüße,
Nico
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Automatische Ordnererstellung
23.02.2011 15:10:42
Rudi
Hallo,
Pfad in C10 muss existieren. 
Sub xxxx()
Dim rngC As Range
For Each rngC In Range(Cells(6, 2), Cells(6, 2).End(xlDown))
If Dir(Range("C10") & rngC, vbDirectory) = "" Then
MkDir Range ("C10") & rngC
End If
Next
End Sub

Gruß
Rudi
Anzeige
AW: Automatische Ordnererstellung
23.02.2011 15:40:34
nicospostbox
Perfekt! Danke Rudi!
Kurze Frage noch: wie würde ich das Makro schreiben, wenn die Namen nicht in diesem Tabellenblatt ab Zelle B6 stehen, sondern im Blatt "Infos"?
Danke & Grüße,
Nico
AW: Automatische Ordnererstellung
23.02.2011 17:17:30
Rudi
Hallo,
so: 
Sub xxxx()
Dim rngC As Range
With Sheets("Infos")
For Each rngC In .Range(.Cells(6, 2), .Cells(6, 2).End(xlDown))
If Dir(.Range("C10") & rngC, vbDirectory) = "" Then
MkDir .Range("C10") & rngC
End If
Next
End With
End Sub

Gruß
Rudi
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