Über VBA neue Verzeichnisse bzw. Ordner anlegen

In einer Exceltabelle befinden sich in einer Spalte Namen, für die ein neues Verzeichnis angelegt werden soll.

Nachstehender Quellcode übergibt die Namen der Zellen an eine Variable, prüft ob der Ordner bereits vorhanden ist und markiert dann entsprechend die Zelle in der Tabelle oder wenn der Ordner noch nicht vorhanden ist wird dieser angelegt. Sub Ordner_anlegen() Dim i As Long Dim newdir As String For i = 1 To ActiveSheet.UsedRange.Rows.Count 'Zeilenanzahl ermitteln für For newdir = ActiveSheet.Cells(i, 2).Value 'Übergabe des Ordnernamens an Variable If Dir("D:\" & newdir, vbDirectory) = "" Then 'Prüfen ob Verzeichnis bereits vorhanden MkDir ("D:\" & newdir) 'Anlegen des neuen Verzeichnisses Else MsgBox "Ordner " & newdir & " ist bereits vorhanden!" 'Nachricht dass Ordner bereits vorhanden ist ActiveSheet.Cells(i, 2).Interior.ColorIndex = 6 'Färben der Zelle mit dem Ordner der bereits vorhanden war End If Next i End Sub

 Share on Facebook

Read more http://vba-codeschnipsel.de/uber-vba-neue-verzeichnisse-bzw-ordner-anlegen/