gibt es eine Möglichkeit mittels einer Sub die Eingestellte Bildschirmauflösung des Monitors zu ermitteln?
Für einen Tipp wäre ich sehr dankbar.
Ciao Polarfuchs
Public Sub Main()
Dim gWidth As Integer, gHeight As Integer
gWidth = GetSystemMetrics(SM_CXSCREEN)
gHeight = GetSystemMetrics(SM_CYSCREEN)
MsgBox "Bildschirmbreite: " & Chr(9) & gWidth & Chr(13) & "Bildschirmhöhe: " & Chr(9) & gHeight
End Sub
Gruß OttoH
Um die Bildschirmauflösung deines Monitors in Excel auszulesen, musst du ein kleines VBA-Skript verwenden. Folge diesen Schritten:
Öffne Excel und drücke ALT + F11
, um den VBA-Editor zu öffnen.
Klicke im Menü auf Einfügen
und wähle Modul
, um ein neues Modul zu erstellen.
Kopiere und füge den folgenden Code in das Modul ein:
Option Explicit
Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1
Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Public Sub Main()
Dim gWidth As Integer, gHeight As Integer
gWidth = GetSystemMetrics(SM_CXSCREEN)
gHeight = GetSystemMetrics(SM_CYSCREEN)
MsgBox "Bildschirmbreite: " & Chr(9) & gWidth & Chr(13) & "Bildschirmhöhe: " & Chr(9) & gHeight
End Sub
Schließe den VBA-Editor und kehre zu Excel zurück.
Drücke ALT + F8
, wähle Main
aus der Liste und klicke auf Ausführen
, um die Bildschirmauflösung anzuzeigen.
Wenn du auf Probleme stößt, hier einige häufige Fehler und deren Lösungen:
Fehlermeldung: "Konstanten, Zeichenfolgen fester Länge, benutzerdefinierte Datenfelder und Declare-Anweisungen sind als Public-Elemente von Objektmethoden nicht zugelassen."
Der Code läuft nicht oder gibt keine Ergebnisse zurück.
Declare Function
-Anweisung korrekt ist und dass du die richtigen Berechtigungen hast, um VBA auszuführen.Neben VBA gibt es auch andere Möglichkeiten, die Bildschirmauflösung abzurufen:
Windows + R
, gib msinfo32
ein und suche dort nach den Anzeigeinformationen.Hier sind einige Beispiele, wie du die Bildschirmauflösung weiter nutzen kannst:
1. Kann ich den Code auch in Excel Online verwenden?
Der VBA-Code funktioniert nur in der Desktop-Version von Excel, nicht in Excel Online.
2. Ist es sicher, VBA in Excel zu verwenden?
Ja, solange du nur vertrauenswürdige Skripte verwendest. Vermeide es, unbekannte Codes aus dem Internet zu verwenden, um Sicherheitsrisiken zu minimieren.
3. Funktioniert dieser Code auf allen Windows-Versionen?
Der Code sollte auf den meisten aktuellen Windows-Versionen funktionieren, solange VBA unterstützt wird.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen