Office: (Office 365) Seit O365 Problem mit Callback-Funktion

Hallo Excel-Gemeinde,

seit der Umstellung auf das aktuelle Excel 365 funktioniert unten angegebener Code nicht mehr, sobald die Callback-Funktion in ein eigenes Modul gepackt wird.

Der Code (es ist ein reiner Beispielcode) ist in einem Modul. Mit F5 wird sub doAction() ausgeführt. Es wird ein Timer angelegt, 1150 ms lang gewartet und anschließend der Timer wieder gelöscht. Der Timer ruft TimerCallback auf und im Direktfenster erscheinen ca. 10 Meldungen.

Hier der Beispielcode:

Option Explicit

Public Const cCallbackIntervall = 100

Public Declare PtrSafe Function SetTimer Lib "user32" ( _

ByVal hWnd As LongPtr, ByVal nIDEvent As LongPtr, _
ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As LongPtr
​

Public Declare PtrSafe Function KillTimer Lib "user32" ( _

ByVal hWnd As LongPtr, ByVal nIDEvent As LongPtr) As Long​

Public Declare PtrSafe Function GetTickCount _

Lib "kernel32" Alias "GetTickCount64" () As LongLong​

Public Sub waitMilliseconds(lPeriod As Long)

Dim lTickcount As LongLong

lTickcount = GetTickCount
Do While GetTickCount - lTickcount < lPeriod
DoEvents
Loop​

End Sub

Sub doAction()

Dim lTimer As LongPtr

Debug.Print
lTimer = SetTimer(0, 0, cCallbackIntervall, AddressOf TimerCallback)
waitMilliseconds (1150)
lTimer = KillTimer(0, lTimer)​

End Sub

Public Sub TimerCallback(ByVal hWnd As LongPtr, ByVal uMsg As LongPtr, _
ByVal wParam As LongPtr, ByVal lParam As LongPtr)

On Error Resume Next
Debug.Print "Huhu " & Str(Timer)​

End Sub

Sobald die Prozedur TimerCallback in ein eigenes Modul gepackt wird, schmiert das komplette Excel ab.

Hat jemand eine Idee, woran das liegt?

Danke für Eure Gedanken!

Gruß
Holger

 

Hallo,

vielleicht weil du die Funktion GetTickCount nicht mit der Compiler-Direktiven #If Win64 abgeprüft hast.
Siehe dazu folgenden Link:
Zeit - Das VBA-Tutorial
und folgenden VBA-Code:

Code:

#If Win64 Then
   Public Declare PtrSafe Function GetTickCount _
      Lib "kernel32" Alias "GetTickCount64" () As LongLong
#Else
   Public Declare Function GetTickCount _
      Lib "kernel32" () As Long
#End If

 

Vielen Dank für Deine Idee. Leider liegt's daran nicht.

Gruß
Holger