Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
656to660
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
656to660
656to660
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Mausposition auf Excelsheet

Mausposition auf Excelsheet
24.08.2005 00:02:55
hoanto
Hallo Forum,
für ein Excel-Anwendung würde ich ganz gerne bei jedem Mausklick (links) die aktuelle Position der Maus auf dem Sheet angezeigt (msgbox) oder aufgelistet bekommen. Habe schon bei Mousedown geschaut, bin aber offensichtlich doch zu sehr Laie, um mit den angegebenen Hinweisen klarzukommen.
Vielen Dank vorab für wertvolle Hinweise.
Bis dann

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

Betreff
Datum
Anwender
Anzeige
AW: Mausposition auf Excelsheet
24.08.2005 00:10:32
Nepumuk
Hi,
Rechtsklick auf den Tabellenreiter - Code einfügen:
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MsgBox Target.Address(False, False)
End Sub

Gruß
Nepumuk
Excel & VBA – Beispiele
Anzeige
AW: Mausposition auf Excelsheet
24.08.2005 12:13:59
hoanto
Hallo Nepumuk,
sorry, war nicht ganz das, was ich meinte.
Ich hoffe, es gibt eine Möglichkeit, daß nicht der "Zellname" angezeigt wird, sondern das die x- & die y-Position des Mausclick angezeigt wird.
Im Prinzip geht es mir um die Positionsangaben, die z.B. auch bei dem Zeichnen einer Gerade benötigt werden.
Beispiel: ActiveSheet.Shapes.AddLine(99#, 114.75, 200.25, 211.5).Select
Ich fände es wunderbar schön, wenn die Positionsangaben wie x = 99 und y = 114.75 ausgelesen werden können (z.B. die Info´s von einer Freihandzeichnung) oder diese Angaben bei einem Mausklick von der aktuellen Stelle angezeigt werden.
Nochmals Danke
Hoanto
Anzeige
AW: Mausposition auf Excelsheet
24.08.2005 12:34:18
Thomas
Hi,
schau Dir mal den 'EventServer' auf meiner Webseite an ...
Gruss
Thomas
Risi Thomas Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer

AW: Mausposition auf Excelsheet
24.08.2005 12:35:25
Nepumuk
Hi,
ich kann dir die Mausposition auf dem Bildschirm in Pixel ausgeben. Das hat aber mit dem Maßstab Point, welcher in einer Exceltabelle verwendet wird nichts zu tun. Und die Umrechnung ist ein Riesenaufwand, weil dies von mehreren Faktoren abhängig ist.
Gruß
Nepumuk
Excel & VBA – Beispiele
Anzeige
AW: Mausposition auf Excelsheet
24.08.2005 13:18:26
hoanto
Hallo Nepomuk,
wir wollen nicht übertreiben, aber vielleich verätst du mir zumindest den Code für die Mausposition auf dem Bildschirm in Pixel ;-)
Hoanto
AW: Mausposition auf Excelsheet
24.08.2005 13:27:54
Nepumuk
Hi,
so geht's:
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

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

Private Type POINTAPI
    x As Long
    y As Long
End Type

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim udtPoints As POINTAPI
    GetCursorPos udtPoints
    MsgBox "Xpos " & CStr(udtPoints.x) & " XPos " & CStr(udtPoints.y)
End Sub

Gruß
Nepumuk
Excel & VBA – Beispiele
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige