Zwei Fenster anordnen

[Lutz Fricke]

Hallo zusammen,

ich stehe mal wieder auf dem Schlauch vorm Wald...

Ich möchte zwei Fenster nebeneinander anordnen. Die beiden Fenster gehören zu zwei verscheidenen Excel-Mappen.
Wie mache ich das, auch wenn noch x andere Excel-Fenster offen sind?

Mit ActiveWorkbook.Windows.Arrange ArrangeStyle:=xlVertical bekomme ich zwar zwei Fenster derselben Mappe nebeneinander. Oder mit Application.Windows.Arrange ArrangeStyle:=xlVertical bekomme ich alle Fenster angeordnet.
Wie aber nur zwei bestimmte?

Vielen Dank für Eure Hilfe,
Lutz

[schauan]

Hallöchen,

hier mal ein Ansatz

Code:

Option Explicit

Sub ArangeWindows()
Dim appWind As Excel.Window
'Schleife ueber alle Excel-Fenster
For Each appWind In Application.Windows
  'mit dem Fenster
  With appWind
    MsgBox .Caption '--> hier dann Bedingung anhand des Namens setzen
    .WindowState = xlNormal
    .Top = 25
    .Left = 25
    .Width = 300
    .Height = 200
  'Ende mit dem Fenster
  End With
'Ende Schleife ueber alle Excel-Fenster
Next
End Sub