Die Variable LW enthält den Laufwerksbuchstaben mit z. Bsp. C:\ .
Jetzt passiert folgendes:
Gebe ich in der Zeile strjahr="Preislisten" an wird das Verzeichnis braf angelegt.
Die Angabe im Listing führt aber immer zur Fehlermeldung. Wo ist mein Fehler?
Sub funktion()
Dim strjahr As String
Dim strname As String
Dim strFolder As String
If lw = "" Then
MsgBox "Bitte erste das Datenlaufwerk eingeben"
Exit Sub
End If
strjahr = "Preislisten\Kalkulation"
strFolder = lw + strjahr
If Dir(strFolder, vbDirectory) <> "" Then
MsgBox "Das Verzeichnis ist bereits vorhanden !"
Exit Sub
Else
If MsgBox("Das Verzeichnis existiert nicht, " & _
vbLf & "neu anlegen ?", vbQuestion + vbYesNo) = vbNo Then Exit Sub
End If
MkDir strFolder
strname = lw + strjahr + "\" + ActiveWorkbook.name
MsgBox strname
ActiveWorkbook.SaveAs Filename:=strname, FileFormat:=xlNormal, Password:="", writerespassword:="", ReadOnlyRecommended:=False, CreateBackup:=True
strpfad = ""
End Sub