Pfad funktioniert unter Ecxel 2013 nicht
05.02.2016 13:10:22
chandler
weiß jemand warum folgende Code Snippets nicht funktioniert unter Excel 2013?
Bei Left bleibts das Marko stehen.
Sub test()
Dim Dateiname
Dim qPfad As String 'Quelle
Dim zPfad As String 'Ziel
nPfad = ThisWorkbook.Path
zPfad = Left(zPfad, InStrRev(zPfad, "\"))
zPfad = zPfad & "Daten\"
Dateiname = InputBox("bla bla?", "Name der Datei", "")
End Sub
Kann mir jemand helfen?
Vielen Dank im Voraus.
Grüße
Anzeige