Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1336to1340
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1336to1340
1336to1340
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ordner aus Liste erstellen

Ordner aus Liste erstellen
18.11.2013 16:00:34
Jonas
Hallo,
ich habe eine Excel-Liste mit Hilfe derer ich eine Ordnerstruktur anlegen möchte.
Eine Beispiel-Liste ist angehängt.
https://www.herber.de/bbs/user/88140.xlsx
Durch klicken auf einen Button soll dann zunächst ein SaveAs-Dialog geöffnet werden, in dem man den Speicherort auswählt.
Im ausgewählten Ordner sollen dann die Unterordner nach folgendem Muster erstellt werden.
Ordnername = "Inhalt Spalte A" + "_" + "Inhalt Spalte B".
Erschwert wird die Angelegenheit dadurch, dass nicht alle Zeilen Informationen enthalten, für die Ordner erstellt werden sollen. Wahrscheinlich reicht aber ein Filter ob in Spalte A etwas steht, oder nicht.
Ich habe leider keine Ahnung, wie ich das bewerkstelligen soll und hoffe, mir kann jemand helfen.
Vielen Dank und beste Grüße
Jonas

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ordner aus Liste erstellen
18.11.2013 16:14:11
Rudi
Hallo, 
Sub OrdnerErstellen()
Dim sFolder As String, sNeu As String, rngC As Range
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then
sFolder = .SelectedItems(1)
End If
End With
If sFolder  "" Then
With Sheets(1)
For Each rngC In .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp))
If rngC  "" Then
sNeu = sFolder & "\" & rngC & "_" & rngC.Offset(, 1)
If Dir(sNeu) = "" Then
MkDir sNeu
End If
End If
Next
End With
End If
End Sub

Gruß
Rudi

AW: Ordner aus Liste erstellen
19.11.2013 08:13:52
Jonas
Hallo Rudi,
vielen Dank.
Funktioniert wunderbar, ich hab nur ein kleines Problem.
Wenn ich das Makro ein zweites Mal ausführe, dann meldet sich der Debugger.
Wie baue ich eine Abfrage in das Makro, ob der anzulegende Ordner schon existiert.
Am besten sollte es so sein, dass ein schon existierender Ordner einfach ausgelassen wird und dafür am Ende des Makros eine Mitteilung erscheint, dass nicht alle Ordner angelegt werden konnten, da es Überschneidung mit bereits existierenden Ordnern gab.
Vielen Dank und beste Grüße
Jonas

Anzeige
AW: Ordner aus Liste erstellen
19.11.2013 11:39:08
Jonas
Keiner eine Idee zu meiner weiteren Problematik?
Sobald ein Ordner schon existiert, stürzt das Makro ab.
Vielen Dank und Grüße
Jonas

AW: Ordner aus Liste erstellen
19.11.2013 12:03:17
Rudi
Hallo, 
Sub OrdnerErstellen()
Dim sFolder As String, sNeu As String, rngC As Range, n As Integer
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then
sFolder = .SelectedItems(1)
End If
End With
If sFolder  "" Then
With Sheets(1)
For Each rngC In .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp))
If rngC  "" Then
sNeu = sFolder & "\" & rngC & "_" & rngC.Offset(, 1)
If Dir(sNeu, vbDirectory) = "" Then
MkDir sNeu
Else
n = n + 1
End If
End If
Next
End With
End If
If n Then MsgBox n & " Ordner nicht angelegt.", vbInformation, "Info"
End Sub

Gruß
Rudi

Anzeige
AW: Ordner aus Liste erstellen
19.11.2013 12:57:37
Jonas
Hallo Rudi,
vielen Dank, das funktioniert traumhaft.
Lediglich einen Absturz hatte ich. Dieser wurde mit Run-Time Error '76' quittiert und ich habe den Fehler auf eine nicht zugelassene Bennenung zurückführen können.
In der Liste stand ein "/", was nicht in einem Ordnernamen zugelassen ist.
Somit kein Fehler deines tollen Makros.
Gruß
Jonas

303 Forumthreads zu ähnlichen Themen

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
Anzeige
Blatt gegen neues Blatt tauschen, Formeln defekt
Kasimir

Hallo Leute,
eventuell wisst Ihr wie ich mein Problem lösen kann. Ich habe eine Datei mit vielen Formeln, die sich auch auf andere Tabellenblätter der Datei beziehen. Nun muss ich ein Tabellenblatt gegen ein anderes austauschen. Mein Problem ist nun, wenn ich das eine Blatt lösche, werden i...
04.03.2009 08:31:47
Thread-ID: 1056166
7 Beiträge
Kopiertes Tabellenblatt aus Vorlage speichern
Bertram

Hallo zusammen,
ich bekomme seit Neuestem beim Speichern einer Datei (mittels VBA) manchmal eine Fehlermeldung. Ich habe zwar schon im Archiv gesucht, aber nix gefunden. Wahrscheinlich liegt's an meinen Suchbegriffen, denn ich hab die Fehlermeldung noch nie vorher gesehen und weiß nicht, wi...
05.03.2009 12:20:42
Thread-ID: 1056776
11 Beiträge
Anzeige
Arbeitsmappeen aus liste erstellen
Clemens

Guten Morgen werte Liste,
Ich sehe mich gerade mit folgendem Office2003 Problem konfrontiert:
mir liegt eine große Liste vor, anhand derer ich Arbeitsmappen und Tabellenblätter erstellen soll.
Konkret sieht die List folgendermaßen aus
Spalte A
Arbeitsmappenname1
Tabelle...
25.05.2009 11:45:08
Thread-ID: 1077111
4 Beiträge
aus Excel Liste Dateien erstellen
andi

Hi ihr,
ich muss folgendes machen für Scheffe:
Eine Excel "Datenbank" mit 1000 Datensätzen. Eine Spalte besteht aus ID (eindeutig) eine andere aus Farben. Nun soll ich aus jeder Zeile einen Dateinamen mit .html generiern - also z.B. 122blau.html. Geht das irgendwie mit einem Makro?
...
21.06.2009 23:44:16
Thread-ID: 1083348
7 Beiträge
Dynamische Auswahlliste erstellen
Kay

Hallo Liste,
Ich brauche mal einen Denkanstoß.
Ich möchte eine Auswahlliste erstellen die nur die Zellen aus der Spalte M enthält die in Spalte N den Wert J haben.
Zellenbereich M2:N150 in Tabelle2
Die Zellen der Spalte M haben folgende Formel.
M2 =A2&“ “&B2&...
19.08.2009 21:01:01
Thread-ID: 1097219
3 Beiträge
Aus liste Strukturierte übersicht erstellen
Timo

Hallo Zusammen,
Ich habe ein Tabellenblatt mit folgendem Aufbau:
Kategorie | Aktivität | Detailbeschreibung
BHB Erstellung BHB BHB für Citrix
Notes Anpassung WF Anpassung des Workflows für Notes 7
BHB Anpassung BHB A...
09.09.2009 22:23:52
Thread-ID: 1101621
2 Beiträge
neue Exceldatei incl. Makro automatisch erstellen
skaddy

Hallo zusammen
Ich erstelle mit einen Makro aus dem Excel heraus ein Wordfile, welches ich wiederum mit Teilinhalte aus Excel beschreibe. Nun möchte ich dem neu erstellten Wordfile noch gerne ein Makro (also im .doc) mitgeben mit welchem ich dann im Word mit einem Hotkey noch ein WordMakro...
17.09.2009 23:02:47
Thread-ID: 1103727
11 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
20
1
6
10
5
3
6
2
1
10
2
7
3
4
3
7
2
5
1
4
4
5
3
4
2