Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1092to1096
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1092to1096
1092to1096
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Maus auf Button legen ?

Maus auf Button legen ?
Kay
Hallo,
kann man per VBA-Befehl den Mauszieger (Cursor) auch auf ein Button legen ?
Habe vor, dass nach der Bestätigung einer MsgBox (VBOKonly) - die Maus wie auch der Button "Speichern" forciert werden. Mit SetFocus - ist zwar der Button gewählt, aber die Maus noch irgendwo in der Userform.
Kann man den Mauszeiger auch auf einen Button ziehen ?
Gruß
Kay

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Maus auf Button legen ?
09.08.2009 19:30:16
Tino
Hallo,
vielleicht geht es so, es muss nur wegen des Textes noch eine Korrektur eingegeben werden.
Leider weiß ich keine Lösung um die Maße der Msg zu bestimmen, weil während der Anzeige keine Makros laufen.
Da müsste man schon mit externer Hilfe arbeiten, aber wie gesagt dazu habe ich keine Lösung.
Option Explicit
  
Private Declare Function SetCursorPos Lib "user32" _
    (ByVal X As Long, ByVal Y As Long) As Long

Private Declare Function GetSystemMetrics Lib "user32" _
  (ByVal nIndex As Long) As Long
  
Private Type Maus_Pos
    X As Long
    Y As Long
End Type

Sub test()
Dim Maus As Maus_Pos

' X=Horizontal, Y=Vertikal 
Maus.X = GetSystemMetrics(0) / 2
Maus.Y = GetSystemMetrics(1) / 2
'Position Mitte + eine Korrektur 
SetCursorPos Maus.X + 30, Maus.Y + 50

MsgBox "Hallo das ist ein Test", vbOKOnly

End Sub
Gruß Tino
Anzeige
AW: Maus auf Button legen ?
09.08.2009 19:57:43
Kay
Hallo Tino,
vielen Dan erstmal, aber ich meinte - die Maus soll ein Button innerhalb der Userfom ansteuern. Diese befindet sich innerhalb der Userfor auf 648 TOP und 426 Left.
Kann man den Code so anpassen, das Maus.X und Maus.Y sich auf diese Userform beziehen ?
Denn nur die Werte eintragen half nichts....
Gruß und Danke
Kay
habe mal etwas gebastelt
09.08.2009 21:26:24
Tino
Hallo,
, teste mal ob es bei Dir geht.
Beim Click in die Userform sollte die Maus über den Button stehen.
Verschiebe auch mal die Userform auf deinem Bildschirm und wiederhole es und prüfe ob es so geht.
https://www.herber.de/bbs/user/63726.xls
Gruß Tino
Anzeige
Datei mit mehr Beispielen...
10.08.2009 14:26:07
Tino
Hallo,
habe mal noch ein bar Beispiel mit reingebaut, damit du sehen kannst wie es funktioniert.
Einfach die Sub mit dem Steuerelement wo die Maus hin soll aufrufen.
https://www.herber.de/bbs/user/63740.xls
Gruß Tino
AW: Datei mit mehr Beispielen...
13.08.2009 07:51:42
k
Hallo Tino,
es hat super funktioniert und vielen Dank für Deine 2'ter Version - sehr schön für mich um zu schauen, was da wie passiert...
Leider habe ich noch Probleme mit dem Lesen von Declare Function die auf Systemdateien zurückgreifen - da würde ich aktuell nie wissen - wie, wann man was anspricht...gibt es da eine Quelle in der man das nachlesen kann ?
Ansonsten habe Dank für Deine Hilfe !
Gruß
Kay
Anzeige

106 Forumthreads zu ähnlichen Themen

OptionButtons in Grp mittels Makro erstellen
adrian

Hi,
wie folgt wird ein OptionButton mittels Makro erstellt: Die Prozedur wird dann zusammen mit einer anderen im HauptSheet aufgerufen.
Nur weiß ich leider nicht wie ich mehrere OB, bzw. drei untereinander als Gruppe erstellen kann =(
Mehrere Prozeduren, für jeweils jeden OB ist ja...
16.12.2008 14:44:00
Thread-ID: 1033291
13 Beiträge
Anzeige
Makro mit Button aufrufen
Joni

Hi,
ich möchte mit
Private Sub Buchungen_einfügen_Click() Call Buchungen_einfügen End Sub das Makro Buchungen einfügen aufrufen (wenn auf den Button geklickt wird). Da kriege ich die Meldung Prozedur statt Variale erwartet.
Kann mir jemand helfen warum das nicht funktioniert?
D...
17.11.2009 13:36:53
Thread-ID: 1117967
6 Beiträge
Makro aufzeichnen Button "Relative Bezüge" verschw
Lars

Hallo Newsgroup,
mein Button "Relative Bezüge" beim aufzeichnen von Makros ist verschwunden.
Wie bekomme ich ihn wieder?
Danke im Voraus
Lars
11.04.2002 10:02:02
Thread-ID: 112335
3 Beiträge
Anzeige
Makro mit Button starten in gleicher Mappe (Sheet)
chris

Hallo und guten morgen an alle,
könnt ihr mir bitte helfen `?
ich habe eine Datei.In dieser Datei gibt es Module und Formulare und zwei Sheets.
ich kopiere mit dem makro das Sheet in eine neue Mappe speichere und schliese diese.
In dem Sheet ist in der Quelldatei ein Makro.
...
21.06.2010 08:36:26
Thread-ID: 1163028
7 Beiträge
Makro mit Button
Ralf

Hallo Excel - Experten,wie kann ich Makrosymbole (z.B. das Smiley) mit einem
bestimmten Makro hinterlegen, aber so dass das Makro
immer da ist.
Ich habe gerade in einer Excel Datei ein Makro geschrieben und
es einem Smiley zugeordnet. Wenn ich jetzt den Smiley button
drücke, öf...
30.04.2002 16:48:18
Thread-ID: 117521
3 Beiträge
Makro in Userform mit Taste 1 ausführen
Sebastian

Hallo,
ich habe in einem Userform verschiedene buttons welche jeweils ein Makro ausführen. Jetzt würde ich es gerne so haben, das wenn ich die daste 1 Drücke Makro 1 ausgeführt wird, Taste 2 Makro 2 usw.
geht das in einem UF?
Vielen Dank für eure Hilfe
Sebastian
24.09.2010 08:21:03
Thread-ID: 1179165
7 Beiträge
Schaltfläche Makro zuweisen + aufzeichnen
Isolde

Hallo Excel-Profis,
folgendes habe ich mit dem Makrorekorder aufgezeichnet
wie ich mit dem Zeichen-Tool Rechteck eine Schaltfläche erzeuge und dieser per Rechtsklick das Makro: "Makro37_AlleAnzeigen" zuweise.
Das Erzeugen der Schaltfläche funktioniert automatisch, allerdings mekkert...
28.10.2010 14:20:01
Thread-ID: 1184291
5 Beiträge
zwei Makros mit einem Button
René

Hallo,
kann mir bitte jemand helfen? Ich möchte diese zwei Makros mit nur einem Commandbutton auslösen. Geht das? Sind eben leider unterschiedle Ordner die durchsucht werden müssen und da meckert der Debugger bei Dim strDatei weil halt Mehrfachdeklarierung.
Danke René Private Sub Co...
16.01.2011 21:55:10
Thread-ID: 1195892
5 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
12
2
5
2
9
6
2
6
4
4
9
3
2
1
2
6
2
7
2
3
6
1
5
8
13