ich versuche aus einer Excelliste, die Dateien aus dem Exelblatt in eine Ordnersturktur zu exportieren. Folgende Coe verwende ich:
Sub MakeFolders()
Dim Rng As Range
Dim maxRows, maxCols, r, c As Integer
Set Rng = Selection
maxRows = Rng.Rows.Count
maxCols = Rng.Columns.Count
For c = 1 To maxCols
r = 1
Do While r
Kann mir einer sagen, warum er mir bei "If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then" Fehler 52 ausspuckt.... weil im Prinzip sage ich damit nur dass er in dem ordner, da wo die Excel liegt die Ordner abspeichern soll