Erstellen mehrerer Ordner und Unterordner aus einer Liste von Daten in Excel

Angenommen, Sie haben eine Liste mit Mitarbeiternamen in einem Arbeitsblattbereich und möchten für jede Person einen eigenen Ordner zur Speicherung ihrer Informationen erstellen. Das manuelle Anlegen jedes Ordners kann zeitaufwendig sein – doch es gibt effiziente Methoden, um diesen Prozess deutlich zu beschleunigen. In diesem Leitfaden stelle ich verschiedene Ansätze vor, mit denen Sie schnell Ordner basierend auf den angegebenen Zellwerten generieren können.

Ordner basierend auf Zellwerten erstellen

• Mithilfe des MD-Befehls und des Editors
• Mithilfe einer leistungsstarken Funktion – Kutools für Excel
• Mithilfe von VBA-Code

Erstellen von Ordnern und Unterordnern basierend auf Zellwerten mithilfe von VBA-Code

Ordner basierend auf Zellwerten erstellen

In diesem Abschnitt beleuchten wir verschiedene Methoden detailliert und liefern umfassende Schritt-für-Schritt-Anleitungen, um Ordner basierend auf einer Liste von Zellwerten schnell und mühelos zu erstellen.

Erstellen von Ordnern aus einer Liste mithilfe des MD-Befehls und Notepad

Das Umwandeln einer Excel-Liste in Ordner mithilfe des MD-Befehls und Notepad ist ein cleverer Trick, der die einfache Erstellung von Batch-Skripten mit der übersichtlichen Organisationskraft von Excel verbindet. Diese Methode eignet sich hervorragend, um zahlreiche Ordner blitzschnell zu erstellen – ganz ohne manuellen Aufwand. Im Folgenden finden Sie eine Schritt-für-Schritt-Anleitung für diese effiziente Vorgehensweise:

Schritt 1: Verwenden Sie den MD-Befehl, um Formeln erstellen

Kopieren Sie die folgende Formel in eine leere Zelle neben Ihrem ersten Zellwert (z. B. B1), oder geben Sie sie dort ein, und ziehen Sie anschließend das Ausfüllkästchen nach unten, um die Formel auf alle Listenelemente anzuwenden.

="MD "&A1

Schritt 2: Kopieren und fügen Sie die Formeln in eine Notepad-Datei ein

1. Drücken Sie „Strg + C“, um die Zellen mit der MD-Befehlsformel zu kopieren.
2. Öffnen Sie den Editor und drücken Sie „Strg + V“, um die Befehle in eine generierte Datei einzufügen.
   

Schritt 3: Speichern Sie die Notepad-Datei als .bat-Datei

Klicken Sie in Notepad im Menü „Datei“ auf „Speichern unter“. Wählen Sie im Dialogfeld „Speichern unter“ ein Verzeichnis aus, in dem Sie mehrere Ordner erstellen möchten, und geben Sie der Datei einen Namen mit der Erweiterung .bat. Klicken Sie abschließend auf „Speichern“. Siehe Screenshot:

Schritt 4: Doppelklicken Sie auf die .bat-Datei, um mehrere Ordner zu generieren

1. Schließen Sie die Notepad-Datei und wechseln Sie zu dem Ordner, in dem Sie die .bat-Datei zuvor gespeichert haben.
2. Erleben Sie jetzt die Magie: Doppelklicken Sie auf die Datei, und sehen Sie, wie mehrere Ordner gleichzeitig erstellt werden. Schauen Sie sich die folgende Demo an:
   

Erstellen von Ordnern aus einer Liste mithilfe eines leistungsstarken Tools – Kutools für Excel

Mit der leistungsstarken Funktion „Ordner basierend auf Bereich erstellen“ von Kutools für Excel erstellen Sie im Handumdrehen Ordner direkt aus einer Excel-Liste. Doch das ist noch nicht alles: Kutools ermöglicht Ihnen sogar die Erstellung komplexer, mehrstufiger Ordnerstrukturen – und das in nur einem einzigen Schritt. Mit nur wenigen einfachen Klicks verwandeln Sie Ihre Excel-Daten in ein klar strukturiertes Ordnersystem und steigern so Ihre Produktivität erheblich.

Nach der Installation von Kutools für Excel klicken Sie bitte auf „KUTOOLS PLUS“ > „Import/Export“ > „Ordner basierend auf Bereich erstellen“, um das Dialogfeld Ordner basierend auf Bereich erstellen zu öffnen:

1. Wählen Sie die Zellwerte aus, auf deren Grundlage Sie Ordner erstellen möchten;
2. Klicken Sie anschließend auf die Schaltfläche , um den Zielordner festzulegen, in dem die Ordner gespeichert werden sollen;
3. Klicken Sie zum Abschluss auf die Schaltfläche „OK“.
   

Ergebnis:

Kutools verarbeitet die Liste aus Ihrem Arbeitsblatt und erstellt für jeden Eintrag einen Ordner am angegebenen Zielort. Navigieren Sie zum Zielordner, um das Ergebnis zu prüfen. Siehe Screenshot:

Erstellen von Ordnern aus einer Liste mithilfe von VBA-Code

Die Verwendung von VBA-Code in Excel verwandelt die mühsame Aufgabe, Ordner aus einer Liste zu erstellen, in einen schnellen, automatisierten Prozess. In diesem Abschnitt erfahren Sie, wie Sie VBA-Code zum Erstellen von Ordnern einsetzen.

Schritt 1: Öffnen Sie den VBA-Modul-Editor und kopieren Sie den Code

1. Halten Sie in Excel die Tasten „ALT + F11“ gedrückt – das Fenster „Microsoft Visual Basic for Applications“ öffnet sich.
2. Klicken Sie auf „Einfügen“ > „Modul“ und fügen Sie den folgenden Code in das Modulfenster ein.
   VBA-Code: Erstellen von Ordnern basierend auf einer Liste von Zellwerten

   Sub CreateFoldersFromSelection()
   'Updateby Extendoffice
       Dim FolderPath As String
       Dim Cell As Range
       Dim SelectedRange As Range
       Dim FolderName As String
       On Error Resume Next
       Set SelectedRange = Application.InputBox("Select the range with folder names", "Kutools for Excel", Type:=8)
       If SelectedRange Is Nothing Then Exit Sub
       On Error GoTo 0
       
       With Application.FileDialog(msoFileDialogFolderPicker)
           .Title = "Select the destination Folder"
           .AllowMultiSelect = False
           If .Show <> -1 Then Exit Sub
           FolderPath = .SelectedItems(1) & "\"
       End With
       
       For Each Cell In SelectedRange
           FolderName = FolderPath & Cell.Value
           If Cell.Value <> "" And Not FolderExists(FolderName) Then
               MkDir FolderName
           End If
       Next Cell
   End Sub
   
   Function FolderExists(ByVal Path As String) As Boolean
       On Error Resume Next
       FolderExists = (GetAttr(Path) And vbDirectory) = vbDirectory
       On Error GoTo 0
   End Function
   

Schritt 2: Führen Sie den Code aus

1. Nachdem Sie diesen Code eingefügt haben, drücken Sie die Taste F5, um ihn auszuführen. Wählen Sie im erscheinenden Eingabefeld die Zellwerte aus, aus denen Sie Ordner erstellen möchten, und klicken Sie anschließend auf „OK“.
   
2. Geben Sie im folgenden Fenster „Zielordner auswählen“ den gewünschten Zielpfad für die Ausgabe der erstellten Ordner an und klicken Sie anschließend auf „OK“. Siehe Screenshot:
   

Ergebnis:

Nach Ausführung des VBA-Codes wechseln Sie in das Zielverzeichnis, um das Ergebnis zu prüfen. Dort finden Sie die neu erstellten Ordner – jeweils einen pro Element Ihrer Excel-Liste. Siehe Screenshot:

Erstellen von Ordnern und Unterordnern basierend auf Zellwerten mithilfe von VBA-Code

Gelegentlich müssen Sie nicht nur Ordner, sondern auch deren zugehörige Unterordner basierend auf den Daten in Excel-Zellen erstellen. Für diese Aufgabe stelle ich Ihnen hier einen praktischen VBA-Code vor.

Schritt 1: Bereiten Sie die Daten vor

Geben Sie zunächst die Daten gemäß dem folgenden Screenshot ein: Tragen Sie den Namen des Hauptordners in der ersten Spalte und die Namen der Unterordner in der zweiten Spalte ein.

Schritt 2: Öffnen Sie den VBA-Modul-Editor und kopieren Sie den Code

1. Halten Sie in Excel die Tasten „ALT + F11“ gedrückt – das Fenster „Microsoft Visual Basic for Applications“ öffnet sich.
2. Klicken Sie auf „Einfügen“ > „Modul“ und fügen Sie den folgenden Code in das Modulfenster ein.
   VBA-Code: Erstellen von Ordnern und Unterordnern basierend auf Zellwerten

   Sub CreateFoldersAndSubfoldersWithUserInput()
   'Updateby Extendoffice
       Dim Rng As Range
       Dim Cell As Range
       Dim basePath As String
       Dim fldrPicker As FileDialog
       Dim FolderPath As String, subfolderPath As String
       On Error Resume Next
       Set Rng = Application.InputBox("Select the range of cells (two columns: one is folder column, another s subfolder column):", "Kutools for Excel", Type:=8)
       If Rng Is Nothing Then Exit Sub
       On Error GoTo 0
       Set fldrPicker = Application.FileDialog(msoFileDialogFolderPicker)
       With fldrPicker
           .Title = "Select the Base Folder Path"
           .AllowMultiSelect = False
           If .Show <> -1 Then Exit Sub
           basePath = .SelectedItems(1)
       End With
       If Right(basePath, 1) <> "\" Then basePath = basePath & "\"
       For Each Cell In Rng.Columns(1).Cells
           If Not Cell.Value = "" Then
               FolderPath = basePath & Cell.Value
               If Not FolderExists(FolderPath) Then MkDir FolderPath
               If Not Cell.Offset(0, 1).Value = "" Then
                   subfolderPath = FolderPath & "\" & Cell.Offset(0, 1).Value
                   If Not FolderExists(subfolderPath) Then MkDir subfolderPath
               End If
           End If
       Next Cell
   End Sub
   
   Function FolderExists(FolderPath As String) As Boolean
       On Error Resume Next
       FolderExists = (GetAttr(FolderPath) And vbDirectory) = vbDirectory
       On Error GoTo 0
   End Function
   

Schritt 3: Führen Sie den Code aus

1. Nachdem Sie diesen Code eingefügt haben, drücken Sie die Taste F5, um ihn auszuführen. Wählen Sie im erscheinenden Eingabefeld die Zellwerte aus, aus denen Sie Ordner erstellen möchten, und klicken Sie anschließend auf „OK“.
   
2. Geben Sie im folgenden Popup-Fenster den Zielpfad für die Ausgabe der erstellten Ordner an, und klicken Sie anschließend auf „OK“. Siehe Screenshot:
   

Ergebnis:

Nach Ausführung des VBA-Codes wechseln Sie in das Zielverzeichnis, um das Ergebnis zu prüfen. Sie stellen fest, dass die Ordner samt ihren Unterordnern entsprechend der Zellwerte erfolgreich erstellt wurden – wie im folgenden Screenshot dargestellt:

Verwandte Artikel: