möchte über Pfad der in Zelle i1 steht einen Ordner anlegen!
aber das funktioniert in meiner anweisung siehe unten nur bedingt,
diese funktioniert nur ohne unterordner anlegen.
Bsp. C:\ ist vorhanden
C:\versuch\ Ordner versuch lässt sich anlegen.
aber C:\versuch\neu\ geht nicht da Versuch nicht angelegt!
Sub Ordner_anlegen()
Dim PC As Range
Set Ort = Worksheets("IP Adresse").Range("i1")
On Error GoTo fehler:
Dim s As String
MkDir "" & Ort.Value & ""
ChDir "" & Ort.Value & ""
Call ip
Exit Sub
fehler:
MsgBox "Ortner mit dem Namen " & Ort.Value & " ist schon vorhanden"
Call ip
End Sub