Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Excel Mac Ordnerstruktur erstellen im Finder aus Excel

Excel Mac Ordnerstruktur erstellen im Finder aus Excel
21.01.2020 11:59:59
Kerstin
Hallo,
Ich muss für meine Firma eine Ablage/Ordnerstruktur im Finder erstellen.
Dazu habe ich eine Excelliste genommen, um die Übersicht zu behalten.
Wäre super wenn man anschliessend diese Tabelle nehmen kann und daraus die Ordner und dazugehörigen Unterordner automatisch im Finder erstellen lassen könnte.
Hat jemand eine Lösung, denn ich bin überhaupt nicht vom Fach und bei euch gibt es ja Cracks die sowas sicher spielend hinbekommen. Im Anhang ist ein Teil der Excelliste.
Wäre sehr dankbar und froh.
https://www.herber.de/bbs/user/134582.txt
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel Mac Ordnerstruktur erstellen im Finder aus Excel
22.01.2020 19:06:04
Piet
Hallo
es gibt im Internet zahlreiche Varianten wie man U-Ordner auflisten kann. Hier zwei Beispiele. Das 1. Makro erzeigt eine Baumstruktur, das zweite listet die Ordner untereinander. Gibt man im zweiten Makro True/False an werden weitere Unterordner aufgelistet, oder nur die 1. U-Ornder angezeigt.
mfg Piet
Option Explicit
Dim FSO, FO, FU, F
Dim lRow As Long
Dim iCol As Integer
'1. Makro listet alle U-Ordner als Baumstruktur auf
Sub OrdnerAuflisten()
iCol = 0
lRow = 0
Cells.Clear           'Tabelle löschen
GetSubFolders "F:\"   '"C:\Windows"
End Sub
Function GetSubFolders(pfad)
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FO = FSO.GetFolder(pfad)
Set FU = FO.SubFolders
On Error Resume Next
For Each F In FU
lRow = lRow + 1
iCol = iCol + 1
Cells(lRow, iCol) = F.Path  'oder F.Name
GetSubFolders F.Path
Next
iCol = iCol - 1
End Function
'2. Makro listet alle U-Pfade untereinander auf
Sub OrdnerAuflisten_2()
iCol = 2
lRow = 0
Cells.Clear           'Tabelle löschen
GetSubFolders_2 "F:\", False   '"C:\Windows"
End Sub
Function GetSubFolders_2(pfad, UO)
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FO = FSO.GetFolder(pfad)
Set FU = FO.SubFolders
On Error Resume Next
For Each F In FU
lRow = lRow + 1
Cells(lRow, iCol) = F.Path
If UO = True Then GetSubFolders_2 F.Path, UO
Next
End Function

Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Excel Mac Ordnerstruktur erstellen im Finder aus Excel


Schritt-für-Schritt-Anleitung

Um eine Ordnerstruktur im Finder aus einer Excel-Tabelle zu erstellen, kannst du folgende Schritte befolgen:

  1. Excel-Tabelle erstellen: Nutze Excel, um eine Liste mit den gewünschten Ordnernamen und Unterordnern zu erstellen. Jede Ebene der Ordner kann in einer neuen Zeile stehen.

  2. VBA-Makro einfügen: Öffne den VBA-Editor in Excel (Alt + F11) und füge ein neues Modul hinzu. Kopiere das folgende Makro in das Modul:

    Option Explicit
    Dim FSO, FO, FU, F
    Dim lRow As Long
    Dim iCol As Integer
    
    Sub OrdnerAuflisten()
       iCol = 0
       lRow = 0
       Cells.Clear           ' Tabelle löschen
       GetSubFolders "F:\"   ' Pfad anpassen
    End Sub
    
    Function GetSubFolders(pfad)
       Set FSO = CreateObject("Scripting.FileSystemObject")
       Set FO = FSO.GetFolder(pfad)
       Set FU = FO.SubFolders
       On Error Resume Next
       For Each F In FU
           lRow = lRow + 1
           iCol = iCol + 1
           Cells(lRow, iCol) = F.Path  ' oder F.Name
           GetSubFolders F.Path
       Next
       iCol = iCol - 1
    End Function
  3. Makro anpassen: Ändere den Pfad im Makro auf den gewünschten Ordner auf deinem Mac.

  4. Makro ausführen: Schließe den VBA-Editor und führe das Makro aus. Die Ordnerstruktur wird in Excel angezeigt.

  5. Ordner im Finder erstellen: Nutze die Excel-Tabelle, um manuell die Ordner im Finder zu erstellen oder verwende ein weiteres Makro, um dies automatisch zu tun.


Häufige Fehler und Lösungen

  • Fehlermeldung beim Ausführen des Makros: Überprüfe, ob der angegebene Pfad korrekt ist.
  • Keine Ordner angezeigt: Stelle sicher, dass die Ordner im angegebenen Pfad tatsächlich existieren.
  • Excel stürzt ab: Schließe andere Anwendungen und versuche es erneut. Möglicherweise gibt es Speicherprobleme.

Alternative Methoden

Eine alternative Methode zur Ordnerstruktur erstellen ist die Verwendung von AppleScript. Hier ist ein einfaches Beispiel:

tell application "Finder"
    make new folder at (path to desktop) with properties {name:"Neuer Ordner"}
end tell

Speichere das Skript und führe es aus, um einen neuen Ordner auf deinem Desktop zu erstellen. Du kannst das Skript anpassen, um mehrere Ordner in einer Struktur zu erstellen.


Praktische Beispiele

  1. Ordnerstruktur für eine Firma: Erstelle eine Excel-Tabelle mit den folgenden Spalten: Hauptordner, Unterordner. Beispiel:

    Hauptordner Unterordner
    Projekte Projekt A
    Projekte Projekt B
    Dokumente Rechnungen
    Dokumente Verträge
  2. Excel Baumstruktur erstellen: Nutze das Makro oben, um die Struktur basierend auf der Excel-Liste zu generieren.


Tipps für Profis

  • Shortcut für neuen Ordner: Nutze die Tastenkombination Command + Shift + N, um schnell einen neuen Ordner im Finder zu erstellen.
  • Ordnerstruktur in Excel darstellen: Verwende die Funktion zum Einfügen von Diagrammen, um eine visuelle Darstellung deiner Ordnerstruktur zu erstellen.

FAQ: Häufige Fragen

1. Wie kann ich die Ordnerstruktur in Excel 2010 darstellen?
Du kannst die gleiche Methode mit VBA verwenden, um die Ordnerstruktur in Excel 2010 darzustellen. Achte darauf, dass die VBA-Umgebung aktiviert ist.

2. Kann ich auch Unterordner erstellen?
Ja, du kannst Unterordner erstellen, indem du die Hierarchie in deiner Excel-Tabelle entsprechend anlegst und das Makro anpasst, um diese zu berücksichtigen.

Beliebteste Forumthreads (12 Monate)

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