ich bin neu hier und hoffe auf eure Unterstützung...
Ich hätte gerne den Code der nachfolgendes unabhängig von der verwendeten Bildschirmgröße durchführt...mit prozentualen Verteilungen falls möglich:
Besten Dank im Vorraus
Sub Ansicht()
' Ansicht Makro
ActiveWindow.NewWindow
ActiveWindow.NewWindow
Windows.Arrange ArrangeStyle:=xlHorizontal
Sheets("Liste-B").Select
With ActiveWindow
.Top = 1
.Left = 797.5
End With
With ActiveWindow
.Width = 463.5
.Height = 214.5
End With
Windows("Beispiel.xlsm:2").Activate
Sheets("Liste-C").Select
With ActiveWindow
.Top = 217
.Left = 797.5
End With
With ActiveWindow
.Width = 463.5
.Height = 214.5
End With
Windows("Beispiel.xlsm:1").Activate
With ActiveWindow
.Width = 794.25
.Height = 216
End With
With ActiveWindow
.Top = 1.75
.Left = 1
End With
With ActiveWindow
.Width = 794.25
.Height = 647.25
End With
Sheets("Liste-A").Select
ActiveWindow.SmallScroll Down:=39
Range("A40").Select
Windows("Beispiel.xlsm:2").Activate
With ActiveWindow
.Width = 463.5
.Height = 431.25
End With
Windows("Beispiel.xlsm:1").Activate
Range("A40").Select
End Sub