Hätte da vieleicht eine blöde Frage
In der Inputbox wird , ThisWorkbook.Path& "\" vollständig eingesetzt.
Das Problem ist eher ein visueller Fehler. Falls die Datei in mehreren Unterordner befinden ist thisWorkbook.Path ellen lang. und in der Inputbox das ende nur noch mit reinklicken und Rechtspfeil zu erreichen. Gibt es eine Möglichkeit dies zu verbessern. Es muss unter ThisWorkbook.Path gespeichert werden aber nicht umbedingt in der Inputbox angezeigt werden.
strDat = InputBox("Dateiname: Dieser Dateiname darf nicht verwendet werden!! " & ThisWorkbook.name, "Speichern unter", ThisWorkbook.Path & "\")
Wäre cool wenn jemand eine coole Idee hätte.
Gruß
Rizzi