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:
Könnt ihr mir weiterhelfen?
Gruß
Hallo loon,
wo ist das Problem?
Mail mal an: [email protected]
dann schick ich dir ein Beispiel.
Gruß
Mark
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
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
Klasse, hat alles geklappt.
Dankeschön an euch 3! 
Gruß Leon
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
dankesehr, klappt super
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