ich möchte in einem bestehenden Laufwerk G:\A1\ eine Ordnerstruktur anlegen. Die entsprechenden Ordner inkl. Unterordner habe ich durch Verkettung in einer Excel Datei in Spalte G stehen. Da ich nur über bescheidene VBA Kenntnisse verfüge, sollte mir dieses Makro helfen, was ich gefunden habe:
Option Explicit
Declare
Function MakePath& Lib "imagehlp.dll" Alias _
"MakeSureDirectoryPathExists" (ByVal sPath$)
Sub CreatePaths()
Dim i&
With Tabelle1
For i = 1 To .Cells(.Rows.Count, "G").End(xlUp).Row
MakePath .Cells(i, "G").Text
Next
End With
End
Sub
Leider scheitere ich dabei schon bei dem ersten Bug "Tabelle 1" unbekannt.
Ich würde mich sehr über Hilfe freuen, da ich meine Ordnerstruktur so ca. 300 Male anlegen muß. _
Vielen Dank im Voraus.
Beste Grüße
Karen