Erkennung des Bildschirms in Excel bei mehreren Monitoren
Schritt-für-Schritt-Anleitung
Um herauszufinden, auf welchem Bildschirm sich Excel befindet, kannst du die folgenden Schritte in VBA umsetzen:
-
Starte den VBA-Editor:
- Drücke
ALT + F11, um den VBA-Editor zu öffnen.
-
Füge ein neues Modul hinzu:
- Klicke mit der rechten Maustaste auf das Projekt im Projekt-Explorer und wähle
Einfügen > Modul.
-
Füge den folgenden Code ein:
Private Declare PtrSafe Function MonitorFromWindow Lib "user32" (ByVal hwnd As LongPtr, ByVal dwFlags As Long) As LongPtr
Private Declare PtrSafe Function GetMonitorInfo Lib "user32" (ByVal hMonitor As LongPtr, lpmi As MONITORINFO) As Long
Private Type MONITORINFO
cbSize As Long
rcMonitor As RECT
rcWork As RECT
dwFlags As Long
End Type
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Sub GetActiveExcelMonitor()
Dim hMonitor As LongPtr
Dim mi As MONITORINFO
hMonitor = MonitorFromWindow Application.hWnd, 0
mi.cbSize = Len(mi)
If GetMonitorInfo(hMonitor, mi) Then
MsgBox "Excel ist auf Monitor: " & hMonitor
End If
End Sub
-
Führe das Makro aus:
- Schließe den VBA-Editor und gehe zurück zu Excel. Drücke
ALT + F8, wähle GetActiveExcelMonitor und klicke auf Ausführen.
Jetzt erhältst du eine Meldung, die dir anzeigt, auf welchem Monitor sich Excel befindet.
Häufige Fehler und Lösungen
-
Fehler: "Benutzerdefinierte Funktion konnte nicht ausgeführt werden"
Lösung: Stelle sicher, dass du die richtigen API-Deklarationen verwendest. Die Verwendung von PtrSafe ist notwendig, wenn du Excel 64-Bit verwendest.
-
Fehler: "Keine Rückgabewerte"
Lösung: Überprüfe, ob du die richtigen Berechtigungen hast, um auf Monitor-Informationen zuzugreifen. Manchmal kann es helfen, Excel mit Administratorrechten zu starten.
Alternative Methoden
Eine weitere Möglichkeit, die Position der Userform zu bestimmen, ist die Verwendung der StartUpPosition-Eigenschaft:
-
Setze die StartUpPosition:
- Wähle in der Eigenschaftsliste deiner Userform die Option
Manuell.
-
Positioniere die Userform im Initialize-Event:
Private Sub UserForm_Initialize()
Me.Top = ActiveWindow.Top + (ActiveWindow.Height - Me.Height) / 2
Me.Left = ActiveWindow.Left + (ActiveWindow.Width - Me.Width) / 2
End Sub
Diese Methode orientiert sich am aktuellen Excel-Fenster, was die Handhabung vereinfacht.
Praktische Beispiele
Wenn du beispielsweise eine Userform zentrieren möchtest, kannst du den UserForm_Initialize-Code verwenden. Dies sorgt dafür, dass die Userform immer in der Mitte des Excel-Fensters erscheint, egal auf welchem der Bildschirme sich Excel befindet.
Tipps für Profis
- Nutze die API-Funktionen, um detaillierte Informationen über die Monitorauflösungen zu erhalten.
- Halte VBA-Referenzen auf dem neuesten Stand, um mögliche Komplikationen mit verschiedenen Excel-Versionen zu vermeiden.
- Experimentiere mit der Positionierung von Userforms, um eine benutzerfreundliche Oberfläche zu gestalten.
FAQ: Häufige Fragen
1. Wie kann ich die Auflösung des Monitors abfragen?
Du kannst die API-Funktion GetMonitorInfo verwenden, um Informationen zur Auflösung und zu den Eigenschaften des Monitors abzurufen.
2. Ist diese Methode in allen Excel-Versionen anwendbar?
Die vorgestellten Methoden sind in Excel 2010 und höher anwendbar. Achte darauf, dass du die richtigen API-Deklarationen für 32-Bit oder 64-Bit verwendest.