Ordner erstellen mit VBA ( Code anpassen )
13.12.2005 21:02:44
Hans-Georg
mit Hilfe des Forums habe ich einen VBA Code erstellt, num möchte ich diesen Code so anpassen, dass immer ein neuer Ordner erstellt wird in dem dann die Datei abgespeichert wird.
Momentan läuft der Code so :
Die Datei wird gespeichert unter
C:\ECS - AUTO\Name-Vorname-Straße-PLZ-Ort-Kundennummer-Kennzeichen-Datum.xls
Wenn der Name noch nicht vorhanden ist, soll Excel einen Ordner erstellen mit dem Namen und der Kundennummer, ist der Ordner aber vorhanden, soll die Datei automatisch dort hinein gespeichert werden.
Ist das möglich ? und wie mach ich das ?
Hier mein Code :
Private Sub CommandButton2_Click()
Dim SpeicherName As String
SpeicherName = "C:\ECS - Auto\" & Range("A8") & "-" & Range("A9") & "-" & Range("A11") & "-" & Range("H11") & "-" & Range("BA7") & "-" & Range("BA9") & "-" & Range("BA11") & ".xls"
ActiveWorkbook.SaveAs Filename:=SpeicherName
End Sub
Vielen Dank für Eure Hilfe
Hans-Georg