Cursor Position ermitteln

[d'r Bastler]

Moin allerseits,

folgender Spickzettel hilft z.B. per BeforeDoubleClick die Position des Cursors in einem Sheet zu ermitteln.

Code: Alles auswählen

Option Explicit

Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Type POINTAPI
   X_Pos As Long
   Y_Pos As Long
End Type

Sub Get_Cursor_Pos()
Dim cPos As POINTAPI
    GetCursorPos cPos
    MsgBox "vertikal: " & cPos.Y_Pos & vbNewLine & "horizontal: " & cPos.X_Pos
End Sub

Der Code gehört in ein allgemeines Modul, der per Event im Worksheet aufgerufen wird.

Viel Spaß damit!