Userform neben einer Zelle plazieren / Zell-Koordinaten auf Bildschirm umrechnen

21/03/2009 - 08:00 von Andreas Killer | Report spam
Juhu. :-)

Mir ist da grad eingefallen das ich doch auch noch was fragen wollte.

Ich habe eine Userfrom die Zellen manipuliert und da ist es dumm wenn
die UF über der ActiveCell plaziert ist und der User die Zelle nicht
sehen kann.

Also müsste ich prüfen ob die UF über der Zelle liegt, ist kein
Problem via

Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Declare Function IntersectRect Lib "user32" (lpDestRect As RECT,
lpSrc1Rect As RECT, lpSrc2Rect As RECT) As Long

liese sich eine Überlappung feststellen, wenn da nicht ein dummes
Problem wàre:

Die Koordinaten der UF (Me.Top / Me.Left) geben Bildschirmkoordinaten
zurück, die Zelle (ActiveCell.Top / ActiveCell.Left) gibt jedoch
Koordinaten im Abstand zu Zelle A1 an, d.h. Range("A1").Top/.Left ist
immer 0.

Wie bekomme ich nun raus wo auf dem Bildschirm die Zelle A1 ist, damit
ich sie auf Überschneidung mit meiner UF prüfen kann?

Andreas.
 

Lesen sie die antworten

#1 Alexander Wolff
22/03/2009 - 07:53 | Warnen spam
http://groups.google.de/group/micro...103908d8de

oder bei http://michael-schwimmer.de/xlMain.htm schmökern.
Moin+Gruss Alexander - MVP for MS Excel - www.xxcl.de - mso2000sp3 --7-2

Ähnliche fragen