Clever-Excel-Forum

Hallo Excelperten,

ich habe eine Datei A, die auf dem Laufwerk a gespeichert ist (a:\A)

In dieser Datei werden von einem Bearbeiter Änderungen durchgeführt und abgespeichert.

Die Datei wird einmal täglich auf ein anderes Laufwerk gespiegelt (nach b:\B'), wo sie von vielen Usern eingesehen werden kann.

Da der Spiegelungsprozess bisweilen nicht funktioniert, möchte ich diesen Prozess kontrollieren.

Dies soll so erfolgen, dass in a:\A ein VBA-Kode hinterlegt wird, der das Datum der letzten Speicherung von b:\B' ausliest und mit dem aktuellen Speicherdatum von a:\A vergleicht. Sofern die Differenz größer ist als 2 Tage, soll die Warnmeldung "Achtung, Spiegelungsprozess überprüfen!" erscheinen. Der Bearbeiter kann das dann veranlassen.

Da ich blutiger VBA-Änfänger bin, komme ich nicht weiter:

Sub Speicherkontrolle ()
Dim Speicherdatum as Double
Speicherdatum= FileDateTime("b:\B")    ' Liefert Speicherdatum von b:\B

if Speicherdatum+2 < ActiveWorkbook.BuiltinDocumentProperties(12).Value then
MsgBox "Achtung, Spiegelprozess überprüfen!"

End if

End Sub

Was muss ich ändern? Wo muss ich das reinstellen?

Vielen Dank

Excelbeginner

Moin!
Ich sehe da keinen offensichtlichen Fehler.
Selbstverständlich gehört aber die Dateierweiterung zur Abfrage:
Also B:\B.xlsx oder B:\B.xlsm oder B:\B.xlsb

Außerdem musst Du die "Wertigkeit" der Operatoren + und < beachten und entsprechend klammern:
If (Speicherdatum + 2) < ActiveWorkbook.BuiltinDocumentProperties(12).Value Then

Gruß Ralf

Hallo Ralf,

vielen Dank, das hat mir sehr geholfen! :18:

Es ergibt sich eine weitere Frage:

Zur Verfeinerung muss ich einen Zwischenwert (Datum mit Uhrzeit) mit VBA berechnen, diesen speichern und beim nächsten Aufruf der Datei auslesen.

Ich versuche das gerade mit

ActiveWorkbook.CustomDocumentProperties.Add Name:="Sp1_gespeichert"

Wo muss ich das hinterlegen?
Was muss ich da weiter angeben?

Wird der Wert mit ActiveWorkbook.CustomDocumentProperties("Sp1_gespeichert") aufgerufen?
Gibt es eine bessere Methoden?

Vielen Dank im Voraus

Excelbeginner

Hallo,

hat sich erledigt. Ich speichere den Werte in einem hidden sheet. Das ist einfacher.

Vielen Dank für das Mitdenken!

Excelbeginner

Moin!
Auch wenn Du eine andere Lösung gefunden hast, will ich Dir dennoch Deine Fragen beantworten.
Wenn ich etwas sehr versteckt speichern will, nehme ich dazu die CustomProperties-Eigenschaft des Worksheets.
Das hat den Vorteil, das dies nicht auf der Excel-Oberfläche auslesbar ist!

Du setzt sie einmalig mittels

Tabelle1.CustomProperties.Add "Sp1_gespeichert", Now

Wenn Du es per Makro machst, kannst Du es sofort wieder löschen.
Ich mache so etwas im Direktfenster.

Den Value dieser Eigenschaft kannst Du wie folgt überschreiben:

With Tabelle1
  .CustomProperties(.CustomProperties.Count).Value = Now
End With


Gruß Ralf