Hallo,

meine VZ Abfrage funktioniert nicht. Evtl. ist die Zeichenlänge ca. 110 zu lang?

Ich stelle die Exceldatei mit dem Modul_AutoRng auf  https://max-mg.de ein. Stelle im Modul: Suche "hasi"

Wenn ich das Unterverzeichnis manuell erstelle funktioniet   wb.SaveAs Filename:

'    If Dir("C:\Test", vbDirectory) = "" Then           'Beispiel oK
'    MkDir ("C:\Test")
'    End If
   
    csvDir = ThisWorkbook.Path & csvSub     'Adresse des Unterverzeichnisses
    
    'MsgBox (csvDir)
     If Dir("csvDir", vbDirectory) = "" Then  ' hasi funktioniert nicht. Länge csvDir ~110 Zeichen
      MkDir ("csvDir")
      MsgBox "Das Verzeichnis  " & (csvSub) & "  wurde erstellt!", vbInformation
     End If
    
     wb.SaveAs Filename:=csvDir & csvName & NameExtension, _
                                      FileFormat:=xlCSV, _
                                      CreateBackup:=False, _
                                      Local:=True             'Speichert im Pfad der Exceldatei