Verknüpfungen geschützter Dateien aktualisieren
22.09.2014 11:50:18
stormlamp
es gibt hier einige Lösungsvorschläge, wie man Verknüpfungen automatisch aktualisiert, aber ich schaffe das nicht bei meiner Konstellation:
Datei1 und Datei2 liegen im Netzwerk im gleichen Ordner. Datei1 und Datei2 werden von jeweils unterschiedlichen Personen bearbeitet.
Datei1/Tabelle1 aktualisiert sich aus Datei2/Tabelle2
und
Datei2/Tabelle3 aktualisiert sich aus Datei1/Tabelle5
Die Aktualisierung wird automatisch alle 3 Minuten durchgeführt durch:
Private Sub Workbook_Open()
Call intervall
End Sub
Sub intervall()
Dim NextTime As Date
NextTime = Now + TimeValue("00:03:00") 'Zeitintervall festlegen
Application.OnTime NextTime, "intervall"
ActiveWorkbook.RefreshAll
Call Calculate
ThisWorkbook.Save
End Sub
Die Aktualisierung soll immer im schreibgeschützen Zugriffsmodus erfolgen und egal, ob sie offen oder geschlossen sind und ohne Meldungen oder Passwortabfragen.
Kann mir bitte jemand bei der Zusammensetzung eines funktionierenden Codes helfen.
Gruß
Hans
Anzeige