ich brauche mal wieder Eure Hilfe:
Mit dem folgenden Makro (hier aus dem Forum) bilde ich den Dateinamen aus dem Zellinhalt; das klappt soweit ganz gut:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
Application.EnableEvents = False
Application.Dialogs(xlDialogSaveAs).Show ThisWorkbook.Path & "\" & Sheets(1).Range("A1")
Application.EnableEvents = True
End Sub
Dies ergibt mir die grundsätzliche Dateinamens-Struktur, wie eine interne Weisung es vorgibt.
Nun wird der Name aber je nach dem noch ergänzt (z.B. Lieferanten-Name oder Abteilung etc.); diese Angaben stehen jedoch nicht in der Datei, so dass ich das nicht automatisieren kann.
Weiter wird die Datei, nachdem sie erstellt wurde, noch von anderen Leuten weiter bearbeitet; beim Speichern nach dieser 2.Bearbeitung überschreibt mir das Makro den Dateinamen wieder mit dem Zellinhalt, die Ergänzungen sind verloren.
Ich suche nun eine Lösung, die beim Speichern prüft, ob der Dateiname "Vorlage.xls" heisst, und wenn ja, dann den Namen aus dem Sheet nimmt (wie im Makro), und wenn Nein, den aktuellen Dateinamen übernimmt.
Kann mir da jemand unter die Arme greifen?
Besten Dank
Daniel