Compile Error in hidden module

Guten Morgen in die Runde und allen ein froehliches und gesundes neues Jahr 2023.
Da ich einen neuen Rechner habe und dieser mit 64 bit laeuft, habe ich seitdem eine Exceldatei zu oeffnen.
Meine Excelversion ist wie folgt:
Microsoft® Excel® 2019 MSO (Version 2202 Build 16.0.14931.20858) 64-bit
Es erscheint beim oeffnen einer VBA Exceldatei die folgende Fehlermeldung:
Microsoft Visual Basic for Applications
Compile error in hidden module: basMain.
Wenn ich mir das VBA anschaue finde ich dort dann ROT im Modul "BasMain" das folgende:
Option Explicit
Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, _
ByVal nIndex As Long) As Long
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, _
ByVal hdc As Long) As Long
Const HORZRES = 8
Const VERTRES = 10
Wie bekomme ich das denn angepasst so das es unter 32 und 64 Umgebung laeuft ?
Vielen Dank fuer eure Unterstuetzung und einen schoenen Tag,
Uwe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit #If Win64 Then Private Declare PtrSafe Function GetDeviceCaps Lib "gdi32.dll" ( _ ByVal hdc As LongPtr, _ ByVal nIndex As Long) As Long Private Declare PtrSafe Function GetDC Lib "user32.dll" ( _ ByVal hwnd As LongPtr) As LongPtr Private Declare PtrSafe Function ReleaseDC Lib "user32.dll" ( _ ByVal hwnd As LongPtr, _ ByVal hdc As LongPtr) As Long #Else Private Declare Function GetDeviceCaps Lib "gdi32.dll" ( _ ByVal hdc As Long, _ ByVal nIndex As Long) As Long Private Declare Function GetDC Lib "user32.dll" ( _ ByVal hwnd As Long) As Long Private Declare Function ReleaseDC Lib "user32.dll" ( _ ByVal hwnd As Long, _ ByVal hdc As Long) As Long #End If Private Const HORZRES As Long = 8 Private Const VERTRES As Long = 10 Public Sub Beispiel() #If Win64 Then Dim lngDC As LongPtr #Else Dim lngDC As Long #End If lngDC = GetDC(0) MsgBox GetDeviceCaps(lngDC, HORZRES) & " / " & GetDeviceCaps(lngDC, VERTRES) Call ReleaseDC(0, lngDC) End Sub

Hallo Nepumuk,
ich habe es so reinkopiert und belassen wie von dir beschrieben. Das Problem kommt leider immer noch.
Hier jetzt einmal alles aus der BASMAIN:
Option Explicit
#If Win64 Then
Private Declare PtrSafe Function GetDeviceCaps Lib "gdi32.dll" ( _
ByVal hdc As LongPtr, _
ByVal nIndex As Long) As Long
Private Declare PtrSafe Function GetDC Lib "user32.dll" ( _
ByVal hwnd As LongPtr) As LongPtr
Private Declare PtrSafe Function ReleaseDC Lib "user32.dll" ( _
ByVal hwnd As LongPtr, _
ByVal hdc As LongPtr) As Long
#Else
Private Declare Function GetDeviceCaps Lib "gdi32.dll" ( _
ByVal hdc As Long, _
ByVal nIndex As Long) As Long
Private Declare Function GetDC Lib "user32.dll" ( _
ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32.dll" ( _
ByVal hwnd As Long, _
ByVal hdc As Long) As Long
#End If

Private Const HORZRES As Long = 8
Private Const VERTRES As Long = 10


Public Sub Beispiel()
#If Win64 Then
Dim lngDC As LongPtr
#Else
Dim lngDC As Long
#End If
lngDC = GetDC(0)
MsgBox GetDeviceCaps(lngDC, HORZRES) & " / " & GetDeviceCaps(lngDC, VERTRES)
Call ReleaseDC(0, lngDC)
End Sub

Function ScreenResolution()
Dim lRval As Long
Dim lDc As Long
Dim lHSize As Long
Dim lVSize As Long
lDc = GetDC(0&)
lHSize = GetDeviceCaps(lDc, HORZRES)
lVSize = GetDeviceCaps(lDc, VERTRES)
lRval = ReleaseDC(0, lDc)
ScreenResolution = lHSize & "x" & lVSize
End Function

Function ScreenResolution() #If Win64 Then Dim lDc As LongPtr #Else Dim lDc As Long #End If Dim lRval As Long Dim lHSize As Long Dim lVSize As Long lDc = GetDC(0&) lHSize = GetDeviceCaps(lDc, HORZRES) lVSize = GetDeviceCaps(lDc, VERTRES) lRval = ReleaseDC(0, lDc) ScreenResolution = lHSize & "x" & lVSize End Function

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread