Dato og klokkeslæt for sidste opdatering

Det er ikke helt det du spørger om men prøv at se på
http://www.eksperten.dk/spm/528906?Esession=fb903a0199a3132acd0a361c270a887e

I VBA opretter du et nyt ClassModule ("Class1")
I den indsætter du følgende kode:


Public WithEvents qtQueryTable As QueryTable

Private Sub qtQueryTable_AfterRefresh(ByVal Success As Boolean)
If Success = True Then
    ThisWorkbook.Sheets("Ark1").Range("G1")=Now
    Else
    qtQueryTable.Refresh
End If
End Sub

Sub InitQueryEvent(QT As Object)
    Set qtQueryTable = QT
End Sub


Nu opretter du så et almindeligt modul og indstætter følgende


Dim clsQueryTable As New Class1

Sub RunInitQTEvent()
    clsQueryTable.InitQueryEvent QT:=Sheets("Ark1").QueryTables(1)
End Sub

I Modulet Thisworkbook indsætter du så en Workbook_Open procedure der kalder subben i det almindelige modul

Private Sub Workbook_Open()
Call RunInitQTEvent
End Sub

Glemte måske at skrive at koden i thisworkbook ikke er absolut nødvendig. Det er kun for at sørge for at klassemodulet initialiseres hver gang filen åbnes.
Man kan også manuelt initialisere ved at køre Sub RunInitQTEvent()

Tak. Det prøver jeg og giver dig en tilbagemelding, men det bliver ikke lige i dag.

Aksma

Til bak!

Du har vist aldrig fået point for dette - smid et svar, så du kan blive tilgodeset efter fortjeneste.

Lukket