Wie kann ich in VBA Ordner erstellen?

Computer: Software & Programmierung Visual Basic
#1

Hallo,

folgendes möchte ich mit VBA erstellen:

In Spalte A habe ich eine Liste mit Namen (Hund, Katze, Maus…)
Excel soll die Liste durchgehen und jeweils einen Ordner in einem Pfad (C:/x) mit diesem Namen erstellen.

Meine Ansätze:

  • Schleife mit For i = 1 To 250 (Anzahl der Namen)
  • Pfad = „C:/x“ & ordnername
  • MkDir (Pfad)

Könnt ihr mir weiterhelfen?

Gruß

#2

Hallo loon,
wo ist das Problem?

Mail mal an: [email protected]
dann schick ich dir ein Beispiel.
Gruß
Mark

#3

Hallo,

hier das Script, das du brauchst…

Sub MakeDirectory()
Dim Zeile As Integer
Dim Zelle As Range
Dim aPath As String

For Zeile = 1 To 250 'hier eventuell die 1 ändern wenn Du den ersten Wert nicht in Zeile 1 hast und die 250 durch die letzte Zeilennummer in Deinem Sheet
Set Zelle = ActiveSheet.Range(„A“ & Zeile)

aPath = „C:\x“ & Zelle.Value

If Dir(aPath, vbDirectory) = vbNullString Then 'Prüfen ob der Ordner bereits existiert
MkDir (aPath)
On Error GoTo ErrMsg
End If
Next

MsgBox „Alle Ordner wurden angelegt!“, vbInformation + vbOKOnly, „Vorgang abgeschlossen…“

ErrMsg:
If Err.Number 0 Then
aMsg = "Fehler # " & Str(Err.Number) & " bei der Ordneranlage wurde verursacht durch " & Err.Source & Chr(13) & Err.Description
MsgBox aMsg, vbCritical + vbOKOnly, „Fehler bei der Ordneranlage…“
makeDir = False
End If

End Sub

Gruß
Michi

#4

Servus,

ich hoffe das Beispiel hilft Dir weiter:

Sub test()

Dim pfad As String
pfad = „C:\test“

zeilenr = 1
Do Until Cells(zeilenr, 1) = „“ 'cells(Zeile,Spalte) das TAbellenblatt muss aktiviert sein

If Dir(pfad & Cells(zeilenr, 1), vbDirectory) = „“ Then
MkDir (pfad & Cells(zeilenr, 1))

End If

Loop

End Sub

#5

Klasse, hat alles geklappt.

Dankeschön an euch 3! :smile:

Gruß Leon

#6

Füge den unten stehenden Code in ein neues Modul ein. Die Variablen (wks, vPfad) musst Du nach Deinen Vorgaben definieren.

Sub verz_anlegen()

Dim wks As Worksheet
Dim i As Integer
Dim vPfad As String, vNewDir As String
Dim vVerz As String

Set wks = Worksheets(„Tabelle1“)
vPfad = „D:“

With wks
For i = 1 To 5
vVerz = .Cells(i, 1).Value
vNewDir = vPfad & vVerz
MkDir vNewDir
Next i
End With

End Sub

#7

dankesehr, klappt super

#8

Option Explicit
Private Sub Verzeichnise()
Dim i As Integer
For i = 1 To 250
If Cells(i, 1) „“ Then
If Dir(„C:“ & Cells(i, 1), vbDirectory) = „“ Then
MkDir („C:“ & Cells(i, 1))
MsgBox „Ordner " & Cells(i, 1) & " wurde angelegt!“
Else
MsgBox „Ordner " & Cells(i, 1) & " ist vorhanden!“
End If
End If
Next i
End Sub