eine Datei wird an einen Anbieter geschickt und soll von ihm unter einem bestimmten Namen gespeichert (und später ausgefüllt auch so zurückgeschickt) werden. Das geschieht bisher im Workbook-open so - eine Inputbox liefert dazu seinen Namen (strAnbieterName). Der User bekommt die Mitteilung, er kann sie speichern, wo er will, aber möge bitte den Namen lassen wie vorgegeben - und nach dem Speichern kann er sie bearbeiten:
FileSaveNameAnbieter = Application.GetSaveAsFilename _
(InitialFileName:=(Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)) & " " & _
strAnbieterName, _
FileFilter:="Microsoft Excel-Arbeitsmappe (*.xls), *.xls", Title:="Dateiname für _
Ihr Angebot")
If FileSaveNameAnbieter False Then
ActiveWorkbook.SaveAs FileSaveNameAnbieter
Else
Exit Sub
End If
Wär zu schön, wenn alle sich daran hielten. Da etwa die Hälfte der Empfänger das nicht tut (das deckt sich mit ähnlichen Klagen im Archiv), möchte ich das Abändern des vorgegebenen Namens jetzt völlig unterbinden. Ich bräuchte bitte Gehhilfe bei der Suche nach einem Code, der den Namen der Datei beim Speichern daraufhin untersucht, ob er mit dem vorgegebenen übereinstimmt.
Schönen Gruß - Jörg