Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
2020to2024
2020to2024
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

VBA: Mausbeweger Mausjiggler

Forumthread: VBA: Mausbeweger Mausjiggler

VBA: Mausbeweger Mausjiggler
21.01.2026 16:58:39
JolRi
Hallo zusammen,
auf der Suche nach obigem bin ich auf zwei Threads hier im Forum gestoßen.

https://www.herber.de/forum/archiv/1824to1828/1825394_VBA_Mouse_Jiggler.html
https://www.herber.de/forum/archiv/296to300/299946_Maus_bewegen.html

Funktioniert bei mir leider nicht. Erhalte die Meldung:
"Fehler beim Kompilieren: Der Code in diesem Projekt mussfür die Verwendung auf 64-bit-Systemen aktualisiert werden.
Überarbeiten und aktualisieren Sie Declare-Anweisungen und markieren Sie sie mit dem PtrSafe-Attribut."

https://www.herber.de/bbs/user/180065.png

Da ich absoluter VBA-Neuling bin komme ich an dieser Stelle nicht weiter. Kann mir bitte jemand behilflich sein?
Vielen Dank vorab.

Viele Grüße JolRi
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Mausbeweger Mausjiggler
21.01.2026 17:04:10
Onur
Schau dir mal die Deklarition darunter GENAU an, da ist es richtig ...
PTRSAFE Function statt nur Function
AW: VBA: Mausbeweger Mausjiggler
22.01.2026 12:32:25
schauan
Hallöchen, 

set WshShell = CreateObject("WScript.Shell")

do

 WshShell.SendKeys "{SCROLLLOCK}"  

 WScript.Sleep 8

 WshShell.SendKeys "{SCROLLLOCK}"  

 WScript.Sleep 80000

loop


Code in einem Editor eingeben, als vbs speichern und ausführen.

Statt SCROLLLOCK kannst Du auch eine anderen Taste nehmen, je nachdem, was nicht stört. Diese wäre für Excel eventuell etwas kontraproduktiv ;-)
Ggf. reicht dann 1x Sendkeys.
Man kann / sollte ggf. den Status der Taste abfragen und danach entscheiden, ob man es nochmal sendet ;-)

Hinweise:
Als VBS
- läuft's unabhängig von Excel
- läuft's dann bis zum Runterfahren ...
- "lange" Sleep-Zeit in Abhängigkeit von den Einstellungen zur Bildschirmsperre möglichst groß wählen
Anzeige
AW: VBA: Mausbeweger Mausjiggler
21.01.2026 17:56:18
volti
Hallo JolRi,

wenn nur die Maus einmal hin und her bewegt werden soll reicht dann diese Version für 32/64-Bit VB7. 

Private Declare PtrSafe Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Type POINTAPI

  x As Long

  y As Long

End Type

Private Declare PtrSafe Function SetCursorPos Lib "user32.dll" ( _

        ByVal x As Long, ByVal y As Long) As Long



Sub MausMove()

  Dim PT As POINTAPI

  

  GetCursorPos PT

  SetCursorPos PT.x, PT.y + 4

  SetCursorPos PT.x, PT.y - 4

End Sub


Gruß KH
Anzeige
AW: VBA: Mausbeweger Mausjiggler
21.01.2026 18:05:42
volti
Ein Update... 

Private Declare PtrSafe Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Type POINTAPI

  x As Long

  y As Long

End Type

Private Declare PtrSafe Function SetCursorPos Lib "user32.dll" ( _

        ByVal x As Long, ByVal y As Long) As Long



Sub MouseJiggler()

  Dim PT As POINTAPI

  

  GetCursorPos PT

  SetCursorPos PT.x, PT.y + 4

  SetCursorPos PT.x, PT.y - 4

  Application.OnTime Now + TimeValue("00:00:30"), "MouseJiggler" ' Alle 30 Sekunden wiederholen

End Sub


Gruß KH
Anzeige
AW: VBA: Mausbeweger Mausjiggler
21.01.2026 22:07:52
JolRi
Danke schön. Habe ich auch getestet, funktioniert. Leider sperrt sich der Bildschirm trotzdem.
AW: VBA: Mausbeweger Mausjiggler
21.01.2026 18:05:26
JolRi
Hallo Onur,
so einfach? Oh man, vielen Dank. Makro läuft und funktioniert. Leider sperrt sich der Bildschirm trotzdem. Muss ich noch weiter schauen.
VG
AW: VBA: Mausbeweger Mausjiggler
21.01.2026 18:16:53
volti
Hallo,

bei mir hatte das früher so funktioniert.

Vielleicht muss bei Dir etwas Zeit zwischen den Mausbewegungen sein, das kannst Du mit dem Sleep-Funktion erreichen.
Oder ggf. auch mal DoEvents verwenden.. 

Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Declare PtrSafe Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Type POINTAPI

  x As Long

  y As Long

End Type

Private Declare PtrSafe Function SetCursorPos Lib "user32.dll" ( _

        ByVal x As Long, ByVal y As Long) As Long



Sub MouseJiggler()

  Dim PT As POINTAPI

  

  GetCursorPos PT

  SetCursorPos PT.x + 10, PT.y + 10: Sleep 100  ' 100 ms warten

'  DoEvents

  SetCursorPos PT.x - 10, PT.y - 10

  Application.OnTime Now + TimeValue("00:00:30"), "MouseJiggler" ' Alle 30 Sekunden wiederholen

End Sub


Gruß KH

Anzeige
AW: VBA: Mausbeweger Mausjiggler
22.01.2026 10:55:25
JolRi
Guten Morgen KH,

danke schön. Makro hat einwandfrei funktioniert. Leider sperrt sich mein Bildschirm trotzdem.

VG JolRi
AW: VBA: Mausbeweger Mausjiggler
22.01.2026 11:03:22
Volti
Schade, kann aus der Ferne dann nicht mehr weiterhelfen.
Vielleicht klappt es ja mit Onurs Vorschlag.
Gruß Karl-Heinz
AW: VBA: Mausbeweger Mausjiggler
22.01.2026 12:54:54
Onur
Ich habe dir doch auch eine Lösung gepostet !
Anzeige
gerne !
21.01.2026 20:55:48
Onur
AW: VBA: Mausbeweger Mausjiggler
22.01.2026 00:11:40
Onur
Nimm DAS hier:
https://www.herber.de/bbs/user/180069.xlsm

Erklärung:
Alle 60 s (kannst du ändern) wird ein "Break" per SendKeys gesendet, was die Sperrung verhindert, und zwar solange, bis die Datei geschlossen oder minimiert wird.
Bei jedem Zell- oder Blattwechsel wird der Timer neu gestartet.
Bitte ändere nix daran (ausser vielleicht die Prozedurnamen), weil OnTimer-Programmierung sehr kritisch ist.
Anzeige

Forumthreads zu verwandten Themen

VBA Fehlermeldung Erwartet Datenfeld
Celine

Hallo,
ich bekomme die Fehlermeldung Fehler beim Kompilieren erwartet Datenfeld. Leider weiß ich nicht woran es liegt. Ich bin über jede Hilfe dankbar.
Private Sub cmd_Rechnung_Click() Dim rhow As Double 'Rho Wasser Dim rhoEt As Double 'Rho Ethanol Dim MW As Double 'Molmasse Wasser Dim...
20.12.2020 21:34:47
Thread-ID: 1801092
5 Beiträge
Fehler von VBA-Lösung finden
erichm
Hallo,

ich habe eine Datei mit 2 Tabellen:
- Bestellungen
- Warengruppen

In der Tabelle Bestellungen soll täglich geprüft werden, aus welchen Warengruppen die Bestellungen eingehen. Dafür habe ich beginnend in der Zelle I13 folgende Formel, die funktioniert:

=WENN(...
18.02.2024 10:32:16
Thread-ID: 1965894
18 Beiträge
Anzeige
Mergen von Zeilen
Zeilen

Hallo zusammen
Ich benötige dringend die Hilfe eines VBA Spezialisten.
Ich versuche seit einiger Zeit eine Liste so anzupassen, dass pro Vorgesetzter nur eine Zeile erscheint mit der Auflistung der PCs, Inventarnummern und Typen die in seinen Bereich gehören. Diese Informationen sollte...
20.01.2009 12:15:00
Thread-ID: 1041758
4 Beiträge
Textdatei als Endlosschleife einlesen (3)
Rainer

Hallo alle zusammen,
ich war ein paar Tage nicht am Platz, daher kann ich erst jetzt antworten.
Hier noch die Links zu den beiden Vorgänger-Beiträgen:
https://www.herber.de/cgi-bin/callthread.pl?index=1523976
https://www.herber.de/cgi-bin/callthread.pl?index=1525132
Ich hab...
05.12.2016 03:50:35
Thread-ID: 1528578
5 Beiträge
Fehler beim Kompilieren - Benutzerdefinierter Typ
Himmelsbach

Hallo zusammen,
Leider habe ich keine Ahnung von VBA und soll nichts desto trotz eine aus meiner Sicht anspruchsvolle Logik programmieren.
Da eine reine textuelle Beschreibung nicht sonderlich hilfreich wäre, habe ich die Excelmappe beigelegt.
Jetzt aber zu meinem Problem:
Im Ta...
11.03.2010 20:06:04
Thread-ID: 1145179
2 Beiträge
Fehlermeldung: Unverträglicher Typ
Thorsten

Hallo,
ich hab hier eine Funktion die mir mein Array Sortieren soll. Aber leider bekomme ich jetzt immer die Fehlermeldung:
Fehler beim Kompilieren:
Unverträglicher Typ: Datenfeld oder benutzerdefinierter Typ erwartet
Ich werd daraus einfach nicht schlau, liegt vielleicht daran...
07.06.2006 16:44:17
Thread-ID: 770985
4 Beiträge
Format(etwas, "sonstwas") wird nicht erkannt
Mike

Hallo zusammen,
in einigen VBA-Projekten wird "Format" nicht erkannt. Meldung: "Fehler beim kompilieren, Falsche Anzahl an Argumenten oder Zuweisung einer Eigenschaft"
Öffne ich im gleichen VB-Editor eine neue Mappe/Projekt funktioniert es für die neue Mappe nicht aber für besagte alte...
20.08.2008 13:13:00
Thread-ID: 1003138
15 Beiträge
Solver in VBA ohne Nutzung von Zellbezügen
Zellbezügen

Guten Abend liebe Excel-Nutzer,
ich möchte den Excel Solver in VBA nutzen. Ich habe den Verweis in VBA auch schon hinzugefügt. Da die Solver-Befehle im VBA-Editor vorgeschlagen werden, gehe ich davon aus, dass der Solver in VBA eingebunden wurde.
Ich möchte an den Solver aber nicht Zell...
10.05.2010 00:22:46
Thread-ID: 1156311
1 Beitrag
VBA Modul per Makro Kopieren oder AddIn erstellen
Lars

Hallo zusammen,
Ich habe inzwischen eine Umfangreiche Excel Mappe mit vielen Makros, diese sind zur Übersicht in verschiedene Module aufgeteilt.
Mit dem folgenden Code starte ich ein Makro aus einem Modul beim Aktivieren bzw. verlassen eines Sheets.
Code:
Private Sub Worksheet...
20.10.2007 00:53:00
Thread-ID: 917963
4 Beiträge
VBA Modul per Makro Kopieren oder AddIn erstellen
Lars

Hallo zusammen,
Ich habe inzwischen eine Umfangreiche Excel Mappe mit vielen Makros, diese sind zur Übersicht in verschiedene Module aufgeteilt.
Mit dem folgenden Code starte ich ein Makro aus einem Modul beim Aktivieren bzw. verlassen eines Sheets.
Code:
Private Sub Worksheet...
20.10.2007 01:55:24
Thread-ID: 917973
1 Beitrag
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum