Clever-Excel-Forum

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

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

Lutz Fricke

schauan