SwapDisplays Window-Position tauschen VBE/XL

[d'r Bastler]

Moin allerseits,

wer mit dem VBE auf dem einen Monitor und XL auf dem anderen arbeitet, möchte gelegentlich die Positionen tauschen. So geht's ohne lästiges Geschiebe (Allg. Modul (z.B. in der PERSONAL.XLSB), mit aktiviertem Verweis Visual Basic for Application Extensibility 5.3) :

Code: Alles auswählen

Option Explicit

Sub SwapWindows()
Dim iLeft As Integer: iLeft = 1920    '>>>>>>>>>>> Bildschirmbreite anpassen

With Application
    
    .WindowState = xlNormal
    .VBE.MainWindow.WindowState = vbext_ws_Maximize

    With .VBE.MainWindow
        If .Left >= iLeft Then
            .Left = -5
        Else
            .Left = iLeft + 1
        End If
        .WindowState = vbext_ws_Maximize
    End With
    
    If .Left >= iLeft Then
        .Left = 0
    Else
        .Left = iLeft + 1
    End If
    .WindowState = xlMaximized
    
End With

End Sub

Funktioniert natürlich nur, wenn die beiden nicht gerade aufeinander liegen ...

Viel Spaß damit!

lg