UF in Bildmitte Excel stürzt auf Mon2 ab
12.01.2022 10:21:22
Karl-Heinz
habe folgendes Problem: Ich arbeite mit zwei Monitoren am PC und habe eine xlsm-Datei mit Userforms.
Damit die beim öffnen nicht willkürlich irgendwo an den zwei Monitoren angezeigt werden -das finde ich sehr lästig-, habe ich diese mit unten stehendem Code, - den ich in diesem Forum gefunden habe -, in Bildmitte gebracht. Das funktioniert auch prima, allerdings nur wenn die Datei im linken Monitor 1 angezeigt und bearbeitet wird. Sobald ich die Datei von Monitor 1 auf Monitor 2 verschiebe und das entsprechende Makro starte, hängt sich die Datei auf und ich kann Excel nur noch über den TaskManager beenden. Ohne den untenstehenden Code funktioniert auch auf Monitor 2 alles prima.
Was kann man tun, um dies zu ändern? Schon mal vielen Dank für die Hilfe und viele Grüße Karl-Heinz
Private Sub UserForm_Initialize()
'Userform in Bildmitte bringen
Dim x As Long
Dim y As Long
Dim t As Long
Dim l As Long
Dim mx As Long ' Mitte Breite des Fensters
Dim my As Long ' Mitte Höhe des Fenster
Dim fx As Long ' linker Rand des Fensters
Dim fy As Long ' oberer Rand des Fensters
x = ActiveWindow.Width
y = ActiveWindow.Height
t = ActiveWindow.Top
l = ActiveWindow.Left
mx = CLng(x / 2) + t
my = CLng(y / 2) + l
' linker Rand der Userform, Offset
Me.Left = mx - CLng(Me.Width / 2)
' oberer Rand der Userform, Offset
Me.Top = my - CLng(Me.Height / 2)
End Sub
Anzeige