Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Problem mit VBA " MKDir" Befehl





Frage

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

Antwort 1 von achmi71

Hallo,

hat sich erledigt, habe noch ein wenig gesucht und das richtige gefunden.


Gruß
Achim

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: