Werte in separater Excel Datei finden und dazugehörige Wert wiedergeben

[maninweb]

Hallo,

wenn sich die Meldung auf den Kalender bezieht, ist es nicht ausreichend PtrSafe hinzuzufügen.
Es muss zwischen 32 Bit und 64 Bit Excel unterschieden werden.

Im Modul zur Kalender-UserForm den Code oben bis zur Variable bCaption durch folgendes ersetzen.
Und testen, habe ich nur in Excel 32 Bit gemacht.

Code:

Option Explicit
  
  Private Declare PtrSafe Function DrawMenuBar _
          Lib "user32" (ByVal hwnd As LongPtr) As Long
 
  Private Declare PtrSafe Function FindWindow Lib "user32" _
          Alias "FindWindowA" (ByVal lpClassName As String, _
          ByVal lpWindowName As String) As LongPtr
 
  Private Declare PtrSafe Function SendMessage Lib "user32" _
          Alias "SendMessageA" (ByVal hwnd As LongPtr, _
          ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
 
  Private Declare PtrSafe Function ReleaseCapture Lib "user32" () As Long
 
#If Win64 Then
 
  Private Declare PtrSafe Function GetWindowLong Lib "user32" _
          Alias "GetWindowLongPtrA" (ByVal hwnd As LongPtr, _
          ByVal nIndex As Long) As LongPtr
         
  Private Declare PtrSafe Function SetWindowLong Lib "user32" _
          Alias "SetWindowLongPtrA" (ByVal hwnd As LongPtr, _
          ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
 
#Else
 
  Private Declare PtrSafe Function GetWindowLong Lib "user32" _
          Alias "GetWindowLongA" (ByVal hwnd As LongPtr, _
          ByVal nIndex As Long) As LongPtr
 
  Private Declare PtrSafe Function SetWindowLong Lib "user32" _
          Alias "SetWindowLongA" (ByVal hwnd As LongPtr, _
          ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
 
#End If
 
  Private Const GWL_STYLE As Long = -16
  Private Const WS_CAPTION As Long = &HC00000
 
  Private Const HTCAPTION = 2
  Private Const WM_NCLBUTTONDOWN = &HA1
 
  Private hWndForm As LongPtr
  Private bCaption As Boolean

Gruß