20.11.2018, 20:19
(Dieser Beitrag wurde zuletzt bearbeitet: 20.11.2018, 20:51 von WillWissen.
Bearbeitungsgrund: Codetags
)
Hallo zusammen,
Der Quellcode (siehe unten) ermöglicht es Ordner aus Excel heraus zu erstellen. Sobald im Visual Basic der Play-Button gedrückt wird, werden Ordner namentlich mit den ausgewählten Excelfeldern erstellt. Die Ordner erstellen sich im Speicherort der Excel-Liste.
Nun zu meiner Frage/Bitte: Ich benötige Hilfe den Code soweit zu ergänzen, sodass sich in den zuvor Erstellen-Ordner gleichzeitig weitere bestimmte Ordner (von mir festgelegte Ordner wie z.B. X, Y, und Z) erstellen lassen .
Ich hoffe Ihr könnt mir helfen und bedanke mich schon mal vorab^^
Der Code lautet wie folgt:
Der Quellcode (siehe unten) ermöglicht es Ordner aus Excel heraus zu erstellen. Sobald im Visual Basic der Play-Button gedrückt wird, werden Ordner namentlich mit den ausgewählten Excelfeldern erstellt. Die Ordner erstellen sich im Speicherort der Excel-Liste.
Nun zu meiner Frage/Bitte: Ich benötige Hilfe den Code soweit zu ergänzen, sodass sich in den zuvor Erstellen-Ordner gleichzeitig weitere bestimmte Ordner (von mir festgelegte Ordner wie z.B. X, Y, und Z) erstellen lassen .
Ich hoffe Ihr könnt mir helfen und bedanke mich schon mal vorab^^
Der Code lautet wie folgt:
Code:
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 <= maxRows
If Len(Dir(ActiveWorkbook.path & "\" & Rng(r, c), vbDirectory)) = 0 Then
MkDir (ActiveWorkbook.path & "\" & Rng(r, c))
On Error Resume Next
End If
r = r + 1
Loop
Next c
End Sub