Zeitberechnung per VBA + Ansicht im Officeassisten
01.04.2005 08:06:45
Mathias
ich hab wieder ein knifflige Aufgabe zu lösen, gestern hab ich schonmal danach gefragt, leider konnte mir niemand helfen. Ich hoffe das wir das Problemchen heute in löse können.
Folgendes soll erreicht werden.
Beim öffnen einer Excel Datei soll ein Hinweis an den User gegeben werden, das seine Daten nicht mehr aktuell sind.
Der IST Zustand sieht so aus, die Excel Datei ist mit Daten gefüllt, diese Daten können aktualisiert werden indem ein Querry manuell angeschoben wird.
Das Querry zieht Daten aus Business Warehouse.
Nun hab ich mir folgendes überlegt, in TB1 in Zelle A2 steht =JETZT(), 1904 Datumswert ist eingestellt, und in Zelle A1 lässt sich da irgendwie der Zeitindex reinschreiben wenn entweder die Datei gespeichert wird? oder der Zeitindex wenn die Zelle D17 auf TB2 geändert wird?
Das Ergebnis kann in Zelle A3 geschrieben werden.
Nun kommt die Schwierigkeit im Officeassistenten sollen die Tage, Stunden und Minuten, also der Wert aus Zelle A3, angezeigt werden.
Der Wert aus Zelle A3 soll an einer der Stellen, wo **** im Makro steht angezeigt werden
(Ist ein nur Vorschlag, falls euch eine bessere Möglichkeit einfällt, nehme ich die Idee gern auf)
1) Datum und Zeit in Zelle A1 schreiben wenn die Datei geändert wird?
2) Den Zeitwert
3) Zusatzfrage weiss jemand wie man die Querry Aktualisierung per Makro aufrufen kann?
Müsste ungefähr so aussehen:
Sub aaaaa()
Worksheets(5).Range("A1").QueryTable.Refresh BackgroundQuery:=False
End Sub
funktioniert aber leider nicht
Private Sub Workbook_Open()
Dim Antwort As String
Set balNew = Assistant.NewBalloon
With balNew
.Heading = "Bitte beachten Sie Ihre Daten sind schon **** Stunden alt!!! " **** & Antwort
.Labels(1).Text = "Möchten Sie die Querry aktualisieren?"
.Labels(2).Text = "Die aktuellen Daten auswerten?"
.Labels(3).Text = "keine Änderungen vornehmen?"
.Labels(4) ****
.Button = msoButtonSetOK
End With
Select Case balNew.Show
Case 1, 1
UserForm3.Show
Case 2, 2
UserForm2.Show
Case 3, 3
End Select
End Sub
vielen Dank
Mathias