Wie kann noch zusätzlichen Text einbauen? im Code bei ...hier...
strDat = InputBox("Dateiname: xxxxxxxx! " & ThisWorkbook.name, ..hier..."Speichern unter", ThisWorkbook.Path & "\")
Gruß
Ingo
strDat = InputBox("Dateiname: xxxxxxxx! " & ThisWorkbook.name & ", ..hier...Speichern unter", _
ThisWorkbook.Path & "\")