Anzeige
Archiv - Navigation
1904to1908
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Wie umwandeln 32 auf 64 BIT
02.11.2022 17:44:48
walter
Guten Abend zusammen,
ich musste mir das neue Office installieren, habe aber 1früher alles auf 32 BIT gehabt.
Was muss ich tun um auf 64 BIT zu ändern.
Beispiel:
Private Declare Function FindWindow Lib "user64" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
gruß
walter

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wie umwandeln 32 auf 64 BIT
02.11.2022 18:23:57
Fred
Hallo Walter,

Private Declare PtrSafe Function

AW: Wie umwandeln 32 auf 64 BIT
02.11.2022 18:37:09
Nepumuk
Hallo walter,
so:
Private Declare PtrSafe Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function GetSystemMenu Lib "user32.dll" Alias "GetSystemMenu" (ByVal hwnd As LongPtr, ByVal bRevert As Long) As LongPtr
Private Declare PtrSafe Function RemoveMenu Lib "user32.dll" Alias "RemoveMenu" (ByVal hMenu As LongPtr, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Nur PtrSafe einfügen genügt nicht, da musst du auch die Parameter anpassen. Da gibt es nämlich neue Datentypen.
Gruß
Nepumuk
Anzeige
AW: Wie umwandeln 32 auf 64 BIT
02.11.2022 19:08:54
walter
Hallo Fred und Nepumuk,
herzlichen Dank für die Info.
Was mache ich den wenn ich die Datei auf einem 32 BIT Rechner aktiviere ?
Was muss noch geändert werden um 32 und 64 BIT abzusichern ?
Danke im Voraus
gruß walter
AW: Wie umwandeln 32 auf 64 BIT
02.11.2022 19:15:40
Nepumuk
Hallo walter,
ab Excel 2013 verträgt es die gezeigten Deklarationen auch in 32Bit.
Gruß
Nepumuk
Danke Nepumuk -)
02.11.2022 19:34:52
walter
Sorry, leider nochmal Fehler...
02.11.2022 19:42:10
walter
Hallo Nepumuk,
leider nochmal Fehler:
Private Declare PtrSafe GetSystemMenu Lib "user32" (ByVal nIndex As Long) As Long
'Bildschirmauflösung des Bildschirms an dem die Userform erstellt wurde
Const LHorizontale As Long = 1024 ' 640 '1024 '1680
Const LVertikal As Long = 768 ' 480 ' 576 '1050
Private Declare Ptrsafe Beep Lib "Kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long
gruß walter
Anzeige
Erledigt, Sorry ! Function fehlte !
02.11.2022 19:43:35
walter
wenn erledigt, dann geschlossen. owT
02.11.2022 22:12:27
Rudi
Sorry. -)
02.11.2022 22:49:22
walter

119 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige