Thema Datum  Von Nutzer Rating
Antwort
22.02.2018 16:58:37 Uwe
NotSolved
22.02.2018 17:13:15 Gast66431
NotSolved
22.02.2018 17:47:52 Gast75352
NotSolved
22.02.2018 18:01:20 Gast47586
NotSolved
22.02.2018 18:01:21 Gast20756
NotSolved
22.02.2018 18:21:00 Gast5112
NotSolved
Rot Excel Doppelkick "vererbt" sich nach Userform Listbox
 22.02.2018 23:20:02 xlKing
NotSolved
25.02.2018 14:59:08 Gast11046
NotSolved
27.02.2018 17:19:31 Uwe
NotSolved
25.02.2018 17:55:22 Gast60157
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
22.02.2018 23:20:02		 Views:
763		 Rating:
     
Antwort:
  Ja
Thema:
Excel Doppelkick "vererbt" sich nach Userform Listbox

Hi Uwe,

Hilft es dir evtl., wenn das Userform immer mit einer Ecke dort startet wo sich der Mauszeiger befindet? Dazu im Tabellenmodul diesen Code eingeben:

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

Private Type POINTAPI
    x As Long
    y As Long
End Type

Dim mymouse As POINTAPI

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  
  GetCursorPos mymouse
  Cancel = True
        
  With UserForm1
   .StartUpPosition = 0
   .Top = mymouse.y * 0.75
   .Left = mymouse.x * 0.75
    If Application.Top + Application.Height - mymouse.y * 0.75 < .Height Then .Top = mymouse.y * 0.75 - .Height
    If Application.Left + Application.Width - mymouse.x * 0.75 < .Width Then .Left = mymouse.x * 0.75 - .Width
   .Show
  End With
    
End Sub

Der obere Teil muss vor der ersten Prozedur stehen. Das Change Event, kannst du dann nach deinen Wünschen erweitern.

Gruß Mr. K.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.02.2018 16:58:37 Uwe
NotSolved
22.02.2018 17:13:15 Gast66431
NotSolved
22.02.2018 17:47:52 Gast75352
NotSolved
22.02.2018 18:01:20 Gast47586
NotSolved
22.02.2018 18:01:21 Gast20756
NotSolved
22.02.2018 18:21:00 Gast5112
NotSolved
Rot Excel Doppelkick "vererbt" sich nach Userform Listbox
 22.02.2018 23:20:02 xlKing
NotSolved
25.02.2018 14:59:08 Gast11046
NotSolved
27.02.2018 17:19:31 Uwe
NotSolved
25.02.2018 17:55:22 Gast60157
NotSolved