ich möchte gern ein Unterverzeichnis über VBA anlegen lassen. Der komplette Verzeichnisbaum ist in Zelle "A1" hinterlegt und der neue Unterverzeichnisname ist in Zelle "B1" hinterlegt.
Womit kann ich das Unterverzeichnis anlegen lassen.
ich möchte gern ein Unterverzeichnis über VBA anlegen lassen. Der komplette Verzeichnisbaum ist in Zelle "A1" hinterlegt und der neue Unterverzeichnisname ist in Zelle "B1" hinterlegt.
Womit kann ich das Unterverzeichnis anlegen lassen.
Sub DateiSpeichern()
Dim B As Boolean
dim Ordner as string
dim uordner as string
ordner= Range("A1").value 'z.B. "C:\Eigene Dateien\"
uordner= Range("B1").value 'z.B. "Test\"
B = VerzDa(Ordner)
If B = False Then
'Neuanlage des Verzeichnisses
MkDir Ordner & Uordner
Else
End If
ChDir Ordner & Uordner
'Speicherung der Datei
End Sub
Function VerzDa(s As String) As Boolean
On Error GoTo fehler
ChDir (s)
VerzDa = True
Exit Function
fehler:
VerzDa = False
End Function
Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, Das VBA-Kompendium und Makro-Einsteigerbücher mit Leseproben(PDF) unter: http://held-office.de
funktioniert super.
Ciao Christian