ich bin noch Anfänger in der vba-Nutzung und komme bei dem Versuch nicht weiter, ein Verzeichnis erstellen zu lassen.
Ich möchte in dem Verzeichnis, in dem die Arbeitsmappe abgespeichert ist, ein Unterverzeichnis erstellen, das den Namen der Arbeitsmappe erhält.
Es erscheint die Fehlermeldung 75: Fehler beim Zugriff auf Pfad/Datei.
Ich habe folgenden Code verwendet:
Sub Pfadauslesen()
Dim strPfad, strAname, strPname As String
strPfad = ActiveWorkbook.Path
strAname = ActiveWorkbook.Name
strPname = Environ("USERPROFILE")
MsgBox ("ActiveWorkbook.path: " & strPfad)
MsgBox ("ActiveWorkbook.Name: " & strAname)
MsgBox ("Environ (Userprofile):" & strPname)
MsgBox ("Speicherpfad:" & vbLf & strPfad & "\" & strAname)
MsgBox ("Verzeichnis erstellen:" & strPfad & "\" & strAname)
MkDir (strPfad & "\" & strAname)
'MkDir ("TESTTEST")
End Sub
Kann mir jemand weiterhelfen? Danke im Voraus.Michael