Tabelle auf 2.Monitor

[Arni49]

Hallo,
ich habe da noch eine offene Baustelle.
im Moment löse ich es so:

Sub ZweiMonitor()

'


' ZweiMonitor Makro


'


'


    Sheets("Termine Tagesaktuell").Select


    ActiveWindow.NewWindow


    Windows("Praxis 2017.xlsm:1").Activate

    ActiveWindow.WindowState = xlMaximized



jetzt erstellt er eine : 1 und eine :2 Datei die auf die Monitore gezogen werden müssen.

Gibt es die Möglichkeit das dies automatisch geht ?

[Winny]

Hi

Du könntest es mit ActiveWindow.Left = 800 oder so probieren, wenn Der Wert größer dem rechten Rand von Monitor1 ist könnte er das Window auf den zweiten Monitor ziehen und dann mit ActiveWindow.WindowState = xlMaximized dort fest zu platzieren. Mangels 2tem Monitor kann ich das aber nicht selbst testen.

[Arni49]

Habe es jetzt so probiert:
Sub Monitor2()
Sheets("Termine Tagesaktuell").Select
  ActiveWindow.NewWindow
    Application.Left = -964.5
    Application.Top = -4.5
    Application.Width = 971
    Application.Height = 749
    Windows("Praxis 2017.xlsm:1").Activate
    ActiveWindow.WindowState = xlMaximized
End Sub
   
jetzt kommt aber ein Laufzeitfehler

[Winny]

und warum testest du nicht meinen Vorschlag?

[Arni49]

Hallo,

hat nicht funktioniert

[Arni49]

Habe es so eingegeben.

Sub ZweiMonitor()
'
' ZweiMonitor Makro
'
'
    Sheets("Termine Tagesaktuell").Select
    ActiveWindow.NewWindow
    ActiveWindow.Left = 800
    Windows("Praxis 2017.xlsm:1").Activate
    ActiveWindow.WindowState = xlMaximized
   
   
End Sub
   

Laufzeitfehler kommt

[Winny]

ich möchte dir nicht jede kleinste Info aus der Nase kitzeln müssen... und bin somit raus

[Arni49]

Ok
auch eine Lösung

[RPP63]

Moin!
Mal kurz einmischend:

Laufzeitfehler kommt

Es wäre praktisch, die Nummer und Beschreibung des LZF zu nennen.
Da wäre Hilfe vllt. möglich.

Anyway:
Ab xl2013 hat sich das Fenstermanagement von Excel grundlegend geändert!
Siehe: Single Document Interface (SDI)

Ich habe "nur" xl2010, bin mir aber fast sicher, dass dies nicht so einfach geht, wie Du Dir das vorstellst.
Stichworte:
API-Programmierung,
primären und sekundären Monitor sowie deren (unterschiedliche) Auflösung auslesen,
"freien" Monitor ermitteln und aktuelle Instanz dort platzieren.

Ich bin ehrlich:
Mangels Nutzen für mich werde ich dafür keine Stunden investieren.
Vielleicht findet sich ja jemand.

Gruß Ralf

[Arni49]

Office 2013 LZF 1004

Wenn es natürlich nicht benötigt wird ! macht es auch keinen Sinn im Forum weiter zu helfen !!! oder ?.