Clever-Excel-Forum

Hallo,

ich habe folgenden Problem. unten steht ein Code welcher von Pfad :"P:\Daten\Trockenbau Vorlagen\(Bst. Nr)_(Bst. Name), Ordner Kopiert und in Pfad : "P:\Daten\B053085_MICHAEL MAYER\Baustellen\"
Einfügt und umbenennt wie Name in Zelle "A4" das funktioniert einwandfrei, aber wenn in der Zelle A4 zbs. "," oder "Lehrzeichenn" oder "-"
macht er das nicht richtig der fügt den Ordner ein aber der ist dann ohne Inhalt und zeigt denn Debugger an

Bitte um Hilfe danke

Code:
Private Sub Makro2()

Dim filesystem As Object

Dim strName As String

strName = Range("A4")

If MsgBox("Ordner beim Michael Mayer mit namen: " & strName & " anlegen?", vbYesNo) = vbYes Then

Set filesystem = CreateObject("Scripting.FileSystemObject")

filesystem.CopyFolder "P:\Daten\Trockenbau Vorlagen\(Bst. Nr)_(Bst. Name)", "P:\Daten\B053085_MICHAEL MAYER\Baustellen\" & strName

Set filesystem = Nothing

MsgBox "Ordner mit namen:  " & strName & "  wurde angelegt!"

Else

MsgBox "ordner wurde nicht angelegt!!!"

End If

End Sub

Hallo

wie ist denn die Fehlermeldung im Debugger?

Hilft es, das ggf vorher abzufragen?

Code:
Private Sub Makro2()

    Dim filesystem As Object

    Dim strName As String

    strName = Range("A4")

    If strName = " " Or strName = ";" Or strName = "-" Then

        MsgBox "Fehler bei Name in A4"

        Exit Sub

    End If

    If MsgBox("Ordner beim Michael Mayer mit namen: " & strName & " anlegen?", vbYesNo) = vbYes Then

        Set filesystem = CreateObject("Scripting.FileSystemObject")

        filesystem.CopyFolder "P:\Daten\Trockenbau Vorlagen\(Bst. Nr)_(Bst. Name)", "P:\Daten\B053085_MICHAEL MAYER\Baustellen\" & strName

        Set filesystem = Nothing

        MsgBox "Ordner mit namen:  " & strName & "  wurde angelegt!"

    Else

        MsgBox "ordner wurde nicht angelegt!!!"

    End If

End Sub

LG UweD

Hallöchen,

Leerzeichen, Kommata oder Bindestriche sollten keine Auswirkungen haben. Du kannst das ja mal in C:\Temp mit ein paar festen Verzeichnissen ausproboeren, z.B.:

Code:
Private Sub Makro2()

Dim filesystem As Object

Set filesystem = CreateObject("Scripting.FileSystemObject")

filesystem.CopyFolder "C:\Temp\Maske", "C:\Temp\Mas,ke ra-de"

Set filesystem = Nothing

End Sub

(11.08.2020, 14:14)ludakuhja schrieb: [ -> ]...aber wenn in der Zelle A4 zbs. "," oder "Lehrzeichenn" oder "-"
macht er das nicht richtig...

Hallo, :19:

eventuell kannst du dir hier noch ein paar Infos ziehen: :21:

API - Ordner erstellen, Zeichen prüfen, Umlaute konvertieren...

Das ist jetzt keine komplette Lösung, aber ein Hinweis, wie du auf unerlaubte Zeichen, Umlaute, Länge Pfad- und Dateiname prüfen bzw. reagieren kannst. Blush

ludakuhja

UweD

schauan

Case