03.07.2020, 10:59
Guten Morgen und Hallo,
ich bin neu hier und haette eine Frage bzgl. eines kleinen Makros zum erstellen von Ordnern, ob ich es auch dynamisch zB mit lngrow oder aehnlichem hinbekommen koennte:
Sub CreateFolderBasedCells()
'This Macro creates folders using cells values
'Iterate through each cell in cell range B2:B200 and save to variable
For Each cell In Range("D3:D3")
'Check if Folder is non-existing
If Dir(cell, vbDirectory) = "" Then
'Create Folder based on content in variable cell
MkDir cell
End If
'Continue with next cell
Next cell
End Sub
Habe momentan nur etwas in Zelle D3 stehen, aber generell waere es eine Liste von mehreren Hundert Zeilen, die jeden Monat in Form von Ordner zu erstellen und Dateien zu kopieren sind.
Gruss
Matthias
ich bin neu hier und haette eine Frage bzgl. eines kleinen Makros zum erstellen von Ordnern, ob ich es auch dynamisch zB mit lngrow oder aehnlichem hinbekommen koennte:
Sub CreateFolderBasedCells()
'This Macro creates folders using cells values
'Iterate through each cell in cell range B2:B200 and save to variable
For Each cell In Range("D3:D3")
'Check if Folder is non-existing
If Dir(cell, vbDirectory) = "" Then
'Create Folder based on content in variable cell
MkDir cell
End If
'Continue with next cell
Next cell
End Sub
Habe momentan nur etwas in Zelle D3 stehen, aber generell waere es eine Liste von mehreren Hundert Zeilen, die jeden Monat in Form von Ordner zu erstellen und Dateien zu kopieren sind.
Gruss
Matthias