Office: Userform unter Mauszeiger öffnen

Hallo Experten, brauche etwas Hilfe.

Ich möchte eine Userform direkt unter dem Mauszeiger anzeigen.
Habe im Internet folgendes gefunden, dass Funktioniert aber nicht. die Userform wird immer oben Links angezeigt.
Kann mir jemand helfen? Die Userform wird durch einen Rechtsklick in einer Zelle gestartet.

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit



Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
X = Target.Left
Y = Target.Top
UserForm1.Show
'Cancel = True
End Sub


' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public X, Y

' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit



Private Sub UserForm_Activate()
Me.Top = Y
Me.Left = X
End Sub


Danke Patric

:)

 

die Userform sollte da geöffnet werden wo Du rechts Klick machst. Top und Left ist oben links.
Ich baue keine Datei nach, die Zeit hat schon jemand investiert.
Ein Link zur Datei wäre nicht schlecht.

 

Hallo Hajo,

die Datei kann ich leider nicht hochladen, da das von den Arbeitsrechnern nicht möglich ist.
hier mal mein gesamter Code:

'*************************************************
'In Tabelle 1 steht
'*************************************************
Option Explicit

Public X, Y

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("C4:H23")) Is Nothing Then GoTo Line1
Cancel = True
UserForm1.Label1.Caption = Sheets("Tabelle2").Range("D5")
UserForm1.Label2.Caption = Sheets("Tabelle2").Range("D6")
UserForm1.Label3.Caption = Sheets("Tabelle2").Range("D7")
UserForm1.Label4.Caption = Sheets("Tabelle2").Range("D8")
UserForm1.Label5.Caption = Sheets("Tabelle2").Range("D9")
UserForm1.Label6.Caption = Sheets("Tabelle2").Range("D10")
UserForm1.Label7.Caption = Sheets("Tabelle2").Range("D11")
UserForm1.Label8.Caption = Sheets("Tabelle2").Range("D12")
UserForm1.Label9.Caption = Sheets("Tabelle2").Range("D13")
UserForm1.Label10.Caption = Sheets("Tabelle2").Range("D14")
X = Target.Left
Y = Target.Top

UserForm1.Show

Line1: If Intersect(Target, Range("B4:B23")) Is Nothing Then GoTo Line2
Cancel = True
UserForm2.Label1.Caption = Sheets("Tabelle2").Range("B5")
UserForm2.Label2.Caption = Sheets("Tabelle2").Range("B6")
UserForm2.Label3.Caption = Sheets("Tabelle2").Range("B7")
UserForm2.Label4.Caption = Sheets("Tabelle2").Range("B8")
UserForm2.Label5.Caption = Sheets("Tabelle2").Range("B9")
UserForm2.Label6.Caption = Sheets("Tabelle2").Range("B10")
UserForm2.Show

Line2: If Intersect(Target, Range("C2:C3")) Is Nothing Then Exit Sub
Cancel = True
'besonderheit

End Sub

'************************
'Bei Userform1 steht
'***********************
Option Explicit
Public X, Y
Private Sub UserForm_Activate()
Me.Top = Y
Me.Left = X
End Sub

Private Sub Label1_Click()
ActiveCell.Value = Sheets("Tabelle2").Range("D5")
Sheets("Tabelle2").Range("D5").Copy
ActiveCell.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Dim Zielbereich As Range
Set Zielbereich = Sheets("Tabelle1").Range("C4:G23")
If Intersect(ActiveCell, Zielbereich) Is Nothing Then
Unload Me
Else
Cells(ActiveCell.Row, ActiveCell.Column + 1).Activate
End If
End Sub
Private Sub Label10_Click()
ActiveCell.Value = Sheets("Tabelle2").Range("D14")
Sheets("Tabelle2").Range("D14").Copy
ActiveCell.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Dim Zielbereich As Range
Set Zielbereich = Sheets("Tabelle1").Range("C4:G23")
If Intersect(ActiveCell, Zielbereich) Is Nothing Then
Unload Me
Else
Cells(ActiveCell.Row, ActiveCell.Column + 1).Activate
End If
End Sub
Private Sub Label2_Click()
ActiveCell.Value = Sheets("Tabelle2").Range("D6")
Sheets("Tabelle2").Range("D6").Copy
ActiveCell.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Dim Zielbereich As Range
Set Zielbereich = Sheets("Tabelle1").Range("C4:G23")
If Intersect(ActiveCell, Zielbereich) Is Nothing Then
Unload Me
Else
Cells(ActiveCell.Row, ActiveCell.Column + 1).Activate
End If
End Sub
Private Sub Label3_Click()
ActiveCell.Value = Sheets("Tabelle2").Range("D7")
Sheets("Tabelle2").Range("D7").Copy
ActiveCell.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Dim Zielbereich As Range
Set Zielbereich = Sheets("Tabelle1").Range("C4:G23")
If Intersect(ActiveCell, Zielbereich) Is Nothing Then
Unload Me
Else
Cells(ActiveCell.Row, ActiveCell.Column + 1).Activate
End If
End Sub
Private Sub Label4_Click()
ActiveCell.Value = Sheets("Tabelle2").Range("D8")
Sheets("Tabelle2").Range("D8").Copy
ActiveCell.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Dim Zielbereich As Range
Set Zielbereich = Sheets("Tabelle1").Range("C4:G23")
If Intersect(ActiveCell, Zielbereich) Is Nothing Then
Unload Me
Else
Cells(ActiveCell.Row, ActiveCell.Column + 1).Activate
End If
End Sub
Private Sub Label5_Click()
ActiveCell.Value = Sheets("Tabelle2").Range("D9")
Sheets("Tabelle2").Range("D9").Copy
ActiveCell.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Dim Zielbereich As Range
Set Zielbereich = Sheets("Tabelle1").Range("C4:G23")
If Intersect(ActiveCell, Zielbereich) Is Nothing Then
Unload Me
Else
Cells(ActiveCell.Row, ActiveCell.Column + 1).Activate
End If
End Sub
Private Sub Label6_Click()
ActiveCell.Value = Sheets("Tabelle2").Range("D10")
Sheets("Tabelle2").Range("D10").Copy
ActiveCell.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Dim Zielbereich As Range
Set Zielbereich = Sheets("Tabelle1").Range("C4:G23")
If Intersect(ActiveCell, Zielbereich) Is Nothing Then
Unload Me
Else
Cells(ActiveCell.Row, ActiveCell.Column + 1).Activate
End If
End Sub
Private Sub Label7_Click()
ActiveCell.Value = Sheets("Tabelle2").Range("D11")
Sheets("Tabelle2").Range("D11").Copy
ActiveCell.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Dim Zielbereich As Range
Set Zielbereich = Sheets("Tabelle1").Range("C4:G23")
If Intersect(ActiveCell, Zielbereich) Is Nothing Then
Unload Me
Else
Cells(ActiveCell.Row, ActiveCell.Column + 1).Activate
End If
End Sub
Private Sub Label8_Click()
ActiveCell.Value = Sheets("Tabelle2").Range("D12")
Sheets("Tabelle2").Range("D12").Copy
ActiveCell.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Dim Zielbereich As Range
Set Zielbereich = Sheets("Tabelle1").Range("C4:G23")
If Intersect(ActiveCell, Zielbereich) Is Nothing Then
Unload Me
Else
Cells(ActiveCell.Row, ActiveCell.Column + 1).Activate
End If
End Sub
Private Sub Label9_Click()
ActiveCell.Value = Sheets("Tabelle2").Range("D13")
Sheets("Tabelle2").Range("D13").Copy
ActiveCell.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Dim Zielbereich As Range
Set Zielbereich = Sheets("Tabelle1").Range("C4:G23")
If Intersect(ActiveCell, Zielbereich) Is Nothing Then
Unload Me
Else
Cells(ActiveCell.Row, ActiveCell.Column + 1).Activate
End If
End Sub

 

Hi,

du hast an 2 Stellen Public X, Y stehen - einmal im Tabellenblatt und ein weiteres Mal im UserForm. Dadurch werden diese Variablen beim Starten des UserForms mit 0 belegt.

 

Hi,

sorry das ich jetzt erst antworte.

Hab das leider nicht hinbekommen. Egal an welcher stelle ich Public X, Y weg nehme, bekomme ich eine Fehlermeldung. Hab mich jetzt damit abgefunden, dass die Userform in der mitte des Bildschirms angezeigt wird.

Danke für eure Hilfe.

 

Hi,

die Public-Variable gehört in ein allgemeines Modul.

 

Moin,

was steht denn in der Eigenschaft "StartUpPosition" der Forms? 1 = Fenstermitte? Habe das auf 0 = Manuell gestellt mit folgendem Code wird die Form direkt unterhalb der Maus angezeigt:

Code:

PS: Die .top und .left Werte sind schon die richtigen Eigenschaften. Sie bezeichnen die linke obere Ecke der Form und anhand der Height und Width Werte wird der Rest der Form dann berechnet.
PPS: das Code:

musste dann aber rausnehmen.