Speichern unter bei Klick auf Speichern-Symbol
31.01.2004 11:32:27
Thorsten
Ich ändere in einer schreibgeschützen Muster-Excel-Datei ein paar Werte und klicke dann auf das Speichern-Symbol (Diskette).
Da die Datei ja schreibgeschützt ist, erscheint nach entsprechender Meldung der "Speichern-unter..Dialog".
Ich möchte jetzt, dass in diesem Dialog (Laufwerk & Verzeichnis werden korrekt angezeigt), der Dateiname sich aus dem Wert aus Zelle A1 bildet.
Ich versuchte schon dieses:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.SaveAs Filename:= "LW:\Pfad\Kostenübersicht-" & Range("a1").Value
End Sub
einzufügen, um den oben beschriebenen Effekt nach Klick auf das Diskettensymbol zu erreichen.
Es endete aber damit, dass Excel abstürzte :-)
Ich vermute, dass ich einfach nur die falsche Methode wähle (Before_Save), da in diesem Fall wohl 2x von Excel gespeichert wird, was dann zum Absturz führt.
Ich möchte gern wissen, wo ich oben stehenden Code eintragen muss, damit nach dem Klick auf das Diskettensymbol der "Speichern unter...Dialog" nach meinen Vorstellungen angezeigt wird.
Vielen Dank für Tipps, Tricks, Hinweise, Geschenke... :-))
Ciao
Thorsten
P.S.
Meine Antworten auf Eure Vorschläge werden wohl mit etwas größerer Verzögerung erscheinen, da ich leider nur mit Modem & Tarif im Minutentakt online bin und ich deshalb nicht online auf Antworten warten kann ;-)