Hallo Gemeinde,
gibt es eigentlich eine Moeglichkeit, bei Excel einen Hinweis einzublenden, dass wenn man nach einer Aenderung die Datei wieder speichert, man ein zugehoeriges Referenzdokument (Dokumentation) aktualisieren muss? Wenn ja, wie?
Danke schon mal fuer Euere Antworten oder bessere Vorschlaege.
Gruesse
Chris
Hallo, Chris!
gibt es eigentlich eine Moeglichkeit, bei Excel einen Hinweis
einzublenden, dass wenn man nach einer Aenderung die Datei
wieder speichert, man ein zugehoeriges Referenzdokument
(Dokumentation) aktualisieren muss? Wenn ja, wie?
Danke schon mal fuer Euere Antworten oder bessere Vorschlaege.
Es reicht einfach eine Meldung, die Du im Workbook_BeforeSave-Ereignis ausgibst, ggf. ganz einfach als Msgbox:
Private Sub Workbook\_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "Die Datei xy muss ebenfalls geändert werden."
End Sub
Die kommt dann allerdings immer, wenn Du speicherst, unabhängig davon, ob geändert wurde. Darauf wird es aber in den wenigsten Fällen ankommen; der Benutzer sollte dann schon wissen, dass er nichts ändern muss.
Gruß, Manfred
Hi Manfred,
coole Sache. Geht ja einfacher als ich dachte. Und das, wo ich noch nie was mit dem VB Zeug gemacht hab.
Danke, Sternchen und
schoene Gruesse
Christian
coole Sache. Geht ja einfacher als ich dachte. Und das, wo ich
noch nie was mit dem VB Zeug gemacht hab.
Über VBA läßt sich auch die Funktion „Changed“ aufrufen. Damit
wäre die Möglichkeit gegeben nur bei einer Änderung die MSGbox aufzurufen. Die genaue Syntax kann ich aber momentan nicht anbieten, da am Firmenpc einige „Programme“ fehlen. Versuche mal das Beispiel umzubauen, damit sollte es auch gehen.
ciao
In diesem Beispiel werden geänderte Zellen in blauer Farbe dargestellt.
Private Sub Worksheet_Change(ByVal Target as Range)
Target.Font.ColorIndex = 5
End Sub
Hallo charly,
der war auch nicht schlecht. Funzt zwar nicht auf meinem Firmenrechner, aber die Idee ist Gut. Mein Kollege meint, dass kreigt er dann noch hin.
gruss
Chris
Private Sub Worksheet_Change(ByVal Target as Range)
Target.Font.ColorIndex = 5
End Sub
Diese Prozedur muss dann aber für alle Worksheets eingetragen werden. Dort dann ein globales Flag setzen, dass Änderungen gemacht wurden. (also z. B. gbChanged = True mit einem Global gbChanged As Boolean) Beim Speichern muss das dann wieder zurückgesetzt werden. (hier dann gbChanged=False, Meldung nur, If gbChanged Then )
Gruss, Manfred
Mein Kollege meint, dass
kreigt er dann noch hin.
gruss
Chris
hi … damit sollte er es dann entgültig schaffen:
Private Sub Workbook_BeforeClose(Cancel as Boolean)
If Me.Saved = False Then Me.Save
End Sub
am heimpc gibt’s halt doch mehr stoff 
ciao, charly
Hallo Zusammen,
hiermit nochmal danke fuer Eure Teilnahme und Hilfe.
Ergebnis entspricht unseren Vorstellungen.
Gruesse
Chris