Automatisches Speichern - Neuer Versuch
05.02.2007 14:05:02
René
nach dem die Versuche, die Excel-Datei zu speichern - ohne dass diese laestige Abfrage "wollen Sie ueberschreiben ja/nein" erfolgt - gescheitert sind, wuerde ich gerne etwas neues ausprobieren.
Das Makro, mit dem ich arbeite, lautet:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim strDateiname As String
Dim strAntwort As String
strDateiname = Range("IV25").Value & ".xls"
ActiveWorkbook.SaveAs ("X:\Mein\Pfad\zur\Excel-Datei\" & strDateiname)
End Sub
Problem bei diesem Makro:
Egal in welcher Zelle ich mich befinde oder in eine andere wechsele, efolgt jedesmal die Abfrage "Moechten Sie speichern..."
Das Makro zieht sich zwar erfolgreich den Namen aus der gewuenschten Zelle und speichert die Datei auch im gewuenschten ZielOrdner, jedoch erfolgt bei jeder weiteren Aenderung (Sprung neue Zelle) diese nervende Abfrage - die ich auch nicht mit dem Makro:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.DisplayAlerts = False
End Sub
umgehen kann! Die Abfrage erfolgt weiterhin!
Wenn es nun ein aehnliches Makro gibt, das mir zwar auch den Namen aus einer Zelle zieht und als Speichernamen verwendet und zusaetzlich automatisch in den gewuenschten Ziel-Ordner speichert, jedoch den winzigen Unterschied besitzt:
Das Makro duerfte sich nicht auf die komplette Mappe (=$1:$65536) beziehen sondern nur auf eine einzelne Zelle...
Dann kann ich vom Anwender verlangen, einen Wert zu aendern (zb Datum) und es erfolgt nur bei Aenderung dieser Zelle eine Speicherung ggf. Abfrage. Kann man das oben genannte Makro so aendern, dass es sich nicht auf die ganze Mappe sondern nur auf eine Zelle auswirkt.
MfG
René