Wie kann man nen Ordner per VBA in einem unbestimmten Verzeichniss erstellen?
Hab hier nen Code, der auch bis auf die erstellung des Ordners funktioniert.
Dim Antwort
Dim DateiName As String
Dim Pfad As String
Dim Ordner
Dim Jahr
Pfad = ThisWorkbook.path
DateiName = ThisWorkbook.Name
Jahr = Worksheets("Navigation").Range("I2").Value 'also z.B. 2006
Ordner = Pfad & Jahr
' Jetzt soll ein Ordner im Pfad des aktuellen Workbooks mit dem Namen des Jahres erstellt werden.
?.createFolder ("Jahr")
'Hier soll das aktive Workbook mit seinem Namen + der jahreszahl in dem gerade erstellten Ordner gespeichert werden
?.SaveAs (Dateiname &"Jahr")
Vielleicht weiß ja jemand von euch bescheid.
Gruß