Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1864to1868
1864to1868
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel mitverschieben

Forumthread: Excel mitverschieben

Excel mitverschieben
15.01.2022 13:54:07
Stefan
Hallo,
gibts irgendwie eine Lösung dass sich beim Verschieben (Bildschirmposition) der geöffneten Userform
das geöffnete Excel im Hintergrund mitverschiebt (also quasi dann an der gleichen Position landet)
lg Stefan
https://www.herber.de/bbs/user/150401.xlsm
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel mitverschieben
15.01.2022 16:41:52
volti
Hallo Stefan,
das ist grundsätzlich kein Problem.
Die Frage ist nur, was als Trigger gelten soll.
Wenn Dir der Mousemove innerhalb der UF reicht, kannst Du es so machen:
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Bminimize.BackColor = RGB(240, 240, 240)
  Application.Top = UserForm1.Top + 10: Application.Left = UserForm1.Left + 10
End Sub
Falls nicht, müsste man schauen was es gibt, um die Fensterverschiebung direkt abfangen zu können. Falls keiner eine andere Idee hat, ggf. mit API.
Gruß Karl-Heinz
Anzeige
AW: Excel mitverschieben
15.01.2022 16:47:54
Stefan
super Sache schon mal,
danke fürs Einlesen in Code
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige