Ordner anlegen aus Exelliste

Forumthread: Ordner anlegen aus Exelliste

12.04.2006 11:42:10

Ilona

Hallo!
Ich hab heute den blöden Auftrag bekommen für die Ablage circa 300 Ordner anzulegen und es wär für mich eine riesen Arbeitserleiterung, wenn ich die nicht manuell anlegen und benennen müsste.
Ich hab gehört, dass das mit VBA möglich ist, hab aber keine Ahnung wie, da ich noch nie mit VBA gearbeitet hab.
Bisher hab ich eine Exel Liste mit ca. 300 Namen (in Zelle A1 gehts los und dann abwärts) und zu jeden Namen soll ein Unterordner in D:\Ablage angelegt werden.
Bin für jede Hilfe dankbar.
Viele Grüße aus München,
Ilona

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Ordner anlegen aus Exelliste

12.04.2006 11:58:22

Heiko
AW: Ordner anlegen aus Exelliste

12.04.2006 12:20:21

Ilona

AW: Ordner anlegen aus Exelliste

12.04.2006 11:58:22

Heiko

Hallo Ilona,
z.B. so, Liste der Ordner im aktiven Blatt Spalte A und Ordner D.\Ablage ist vorhanden.


Sub OrdnerAnlegen()
Dim lngI As Long
' Ordner Ablage muss vorhanden sein !!!
For lngI = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
MkDir "D:\Ablage\" & ActiveSheet.Cells(lngI, 1).Text
Next lngI
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !

AW: Ordner anlegen aus Exelliste

12.04.2006 12:20:21

Ilona

Hat prima geklappt, vielen herzlichen Dank, hat mir jetzt etliche Stunden Arbeit erspart :-) dafür gibt´s ne lange Kaffeepause...
Lieben Gruß, Ilona

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um Ordner aus einer Excel-Liste zu erstellen, kannst du VBA verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

Öffne deine Excel-Datei mit der Liste der Ordnernamen in Spalte A, beginnend ab Zelle A1.
Öffne den VBA-Editor:
- Drücke ALT + F11 in Excel.
Füge ein neues Modul hinzu:
- Klicke auf "Einfügen" > "Modul".

Kopiere den folgenden Code in das Modul:

Sub OrdnerAnlegen()
   Dim lngI As Long
   ' Ordner Ablage muss vorhanden sein !!!
   For lngI = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
       MkDir "D:\Ablage\" & ActiveSheet.Cells(lngI, 1).Text
   Next lngI
End Sub

Ändere den Pfad "D:\Ablage\" entsprechend deinem gewünschten Zielort.
Führe das Makro aus:
- Drücke F5 oder gehe zu "Ausführen" > "Sub/UserForm ausführen".

Jetzt werden die Ordner automatisch aus deiner Excel-Liste erstellt!

Häufige Fehler und Lösungen

Fehler: "Pfad nicht gefunden"
- Stelle sicher, dass der Zielordner (D:\Ablage\) bereits existiert. Der Code kann keine neuen übergeordneten Ordner erstellen.
Fehler: "Zugriffsverletzung"
- Überprüfe, ob du die notwendigen Berechtigungen hast, um im angegebenen Verzeichnis Ordner zu erstellen.

Alternative Methoden

Falls du kein VBA verwenden möchtest, kannst du auch die Eingabeaufforderung oder PowerShell nutzen, um Ordner aus einer Liste zu erstellen. Hier ein Beispiel für PowerShell:

Kopiere die Namen aus deiner Excel-Liste in eine Textdatei (eine pro Zeile).

Öffne PowerShell und führe folgenden Befehl aus:

Get-Content "C:\Pfad\zu\deiner\datei.txt" | ForEach-Object { New-Item -ItemType Directory -Path "D:\Ablage\$_" }

Praktische Beispiele

Angenommen, deine Excel-Liste enthält folgende Namen:
- ProjektA
- ProjektB
- ProjektC
Nach dem Ausführen des VBA-Codes werden die Ordner D:\Ablage\ProjektA, D:\Ablage\ProjektB und D:\Ablage\ProjektC automatisch erstellt.

Tipps für Profis

Unterordner erstellen: Du kannst den VBA-Code anpassen, um auch Unterordner zu erstellen, indem du den Namen in der Zelle entsprechend formatierst (z.B. ProjektA\Unterordner1).
Fehlerbehandlung einfügen: Füge eine Fehlerbehandlung hinzu, um Probleme beim Erstellen der Ordner zu vermeiden.
```
On Error Resume Next
```
Dynamische Pfade: Verwende Eingaben aus einer Zelle, um den Zielordner dynamisch festzulegen.

FAQ: Häufige Fragen

1. Kann ich auch Unterordner mit diesem Code erstellen?
Ja, passe den Ordnernamen in der Excel-Liste an, z.B. ProjektA\Unterordner1, um Unterordner zu erstellen.

2. Funktioniert dies auch in Excel Online?
Nein, VBA ist nur in Desktop-Versionen von Excel verfügbar. Für Excel Online musst du andere Methoden wie PowerShell verwenden.

3. Was passiert, wenn ein Ordner bereits existiert?
Der MkDir-Befehl wird einen Fehler auslösen, wenn der Ordner bereits existiert. Füge eine Fehlerbehandlung hinzu, um dies zu vermeiden.

Beliebteste Forumthreads (12 Monate)