Office: Die Position einer Userform auf dem Desktop

Hallo zusammen,
ich möchte gerne durch Anklicken einer Zelle eine Userform aufrufen, die in der gleichen Zeile wie die Zelle steht, aber am Anfang der Spalte 10 (J).

Ich habe folgendes programmiert:
Private Sub UserForm_Initialize()
UserForm1.Left = Tabelle1.Cells(ActiveCell.Row, 10).Left + 20
UserForm1.Top = Tabelle1.Cells(ActiveCell.Row, 10).Top + 100
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Application.Intersect(ActiveCell, Range("$A$1:$B$300")) Is Nothing Then UserForm1.Show vbModeless
End If
End Sub

1. Versuch: Das funktioniert tadellos, solange ich nicht scrolle. Wenn ich z.B. A10 anklicke, erscheint die Userform mit der linken oberen Ecke in J10.

2. Versuch:Sobald ich aber scrolle und wieder in A10 klicke, erscheint die Userform auf dem Desktop an der gleichen Stelle wie beim 1. Versuch, nur ist jetzt durch das Scrollen die Userform an der Position J18, je nachdem, wie viel ich gescrollt habe.

Nun meine erste Frage: Gibt es die Möglichkeit, wie weit gescrollt (oder um wie viele Pixel verschoben wurde) wurde per Messwert zu erfassen und diese Verschiebung in meinen Code zu berücksichtigen, so dass die Userform auch nach einem Scrollvorgang wieder auf J10 erscheint?

Meine zweite Frage wäre: Ich habe versucht den Bildschirm-Zoom zu berücksichtigen durch Multiplikation von Userform1.Left mit (activewwindow.zoom/100), aber nach Veränderung des Zooms passte es nicht mit J10. Hat jemand eine bessere Idee?

Grüße
fischerpeter

:)

 

das Ereignis Private Sub UserForm_Initialize() wird in einer Excel Sitzung nur einmal ausgeführt. Benutze Activate.

 

Hallo,

@Hajo: Initialize wird immer dann ausgeführt wenn ein Userform in die Userforms-Auflistung geladen wird. Sprich nach der UnLoad-Methode wird es beim erneuten Laden auch erneut ausgeführt. Wenn das Userform per Hide-Methode ausgeblendet wird, dann ist es ja immer noch in der Auflistung.

@fischerpeter: Top und Left einer Zelle geben nicht die Position der Zelle auf dem Bildschirm, sondern die Position der Tabelle wieder. Zelle A1 hat immer die Position Top=0 und Left=0 egal wohin du scrollst.

Hier mal ein Beispiel wie ein Userform an der aktiven Zelle erscheint. Musst du dir nur anpassen:

Code:

 

Hallo Nepumuk,
ich schaue gerade meine bisher gestellten Fragen und und stelle gerade fest, dass ich noch nicht auf deine Antwort reagiert habe.

Also, genau deins war die Lösung. Es funktioniert genau wie gewünscht.

Vielen Dank
fischerpeter