Hallo Leute,

ich hoffe hr könnt mir Helfen und zwar habe ich folgenden VBA Code der auch so weit ja funktioniert nur macht er Probleme wenn ich einen längeren Pfand angeben will.

z.B. c:\test - das macht der Code noch wenn ich aber
" c:\test\2007\abc " angebe bricht der Code mit folgender Fehlermeldung ab Laufzeitfehler 76 Pfad wurde nicht gefunden.

im lw_pfad As String
lw_pfad = ActiveSheet.Range("i1").Value
lw_pfad = InputBox("Geben Sie hier das Laufwerk und den Pfad an," & Chr(13) & " wo die Datei gespeichert werden soll( z.B. C:\Test\06 ). " & Chr(13) & "Der Dateiname wird Automatisch erstellt. " & Chr(13) & Chr(13) & "(Ihre Eingabe wird in der Zelle I1 als neuer Default-Wert gespeichert.)", "Datei speichern unter...", lw_pfad)
If lw_pfad = "" Then
MsgBox "Der Pfad wurde nicht angelegt, da Sie [Abbrechen] gedrückt oder nichts eingegeben haben.", , "Abbruch"
Exit Sub
Else
If Right(lw_pfad, 1) <> "\" Then lw_pfad = lw_pfad & "\"
ActiveSheet.Range("i1").Value = lw_pfad


Rem Speicherort fertig, Ordner anlegen

If Dir(Range("i1"), vbDirectory) = "" Then
MkDir (Range("i1"))
MsgBox "Ordner wurde angelegt!"

Grüße
Achim