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 ?
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.
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
und warum testest du nicht meinen Vorschlag?
Hallo,
hat nicht funktioniert
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
ich möchte dir nicht jede kleinste Info aus der Nase kitzeln müssen... und bin somit raus
Ok
auch eine Lösung
Moin!
Mal kurz einmischend:
Zitat: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
Office 2013 LZF 1004
Wenn es natürlich nicht benötigt wird ! macht es auch keinen Sinn im Forum weiter zu helfen !!! oder ?.