Betriebssystem auslesen in Excel
Schritt-für-Schritt-Anleitung
Um das Betriebssystem zu ermitteln, kannst du VBA verwenden. Hier sind die Schritte, die du befolgen solltest:
- Öffne Excel.
- Drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Klicke auf
Einfügen > Modul, um ein neues Modul zu erstellen.
- Kopiere den folgenden Code in das Modul:
Private Declare Function GetVersionEx Lib "kernel32" Alias _
"GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type
Const VER_PLATFORM_WIN32_WINDOWS = 1
Const VER_PLATFORM_WIN32_NT = 2
Private Sub ErmittelnBS()
Dim PlatForm As String, OSVersion As OSVERSIONINFO
OSVersion.dwOSVersionInfoSize = Len(OSVersion)
GetVersionEx OSVersion
PlatForm = "Unbekanntes Betriebssystem"
With OSVersion
If .dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then
If .dwMinorVersion = 0 Then
PlatForm = "Windows 95"
ElseIf .dwMinorVersion = 10 Then
PlatForm = "Windows 98"
ElseIf .dwMinorVersion = 90 Then
PlatForm = "Windows ME"
End If
ElseIf .dwPlatformId = VER_PLATFORM_WIN32_NT Then
If .dwMajorVersion = 4 Then
PlatForm = "Windows NT"
ElseIf .dwMajorVersion = 5 Then
If .dwBuildNumber = "2600" Then
PlatForm = "Windows XP"
End If
End If
End If
End With
MsgBox "Aktuelles Betriebssystem: " & vbCrLf & vbCrLf & PlatForm
End Sub
- Schließe den VBA-Editor und starte das Makro über
Entwicklertools > Makros.
Häufige Fehler und Lösungen
-
Fehler: "Komponente nicht gefunden"
Lösung: Stelle sicher, dass du die richtigen Bibliotheken in den Verweisen aktiviert hast. Gehe zu Extras > Verweise im VBA-Editor und aktiviere die entsprechenden.
-
Fehler: Das Makro läuft nicht.
Lösung: Überprüfe, ob die Makros in Excel aktiviert sind. Gehe zu Datei > Optionen > Trust Center > Einstellungen für das Trust Center > Makroeinstellungen.
Alternative Methoden
Eine einfachere Methode, um das Betriebssystem anzuzeigen, ist die Verwendung der Excel-Funktion INFO. Hier ist, wie du es machen kannst:
- Gib in eine Zelle folgende Formel ein:
=INFO("Sysversion")
Diese Funktion zeigt die aktuelle Systemversion an und ist besonders nützlich, wenn du keine VBA-Programmierung verwenden möchtest.
Praktische Beispiele
-
Betriebssystem in einer MessageBox anzeigen:
Verwende den oben genannten VBA-Code, um das Betriebssystem in einer MessageBox auszugeben.
-
Betriebssystem in einer Zelle anzeigen:
Du kannst den Output des VBA-Codes auch in eine bestimmte Zelle schreiben:
Range("A1").Value = "Aktuelles Betriebssystem: " & PlatForm
Tipps für Profis
- Nutze Fehlerbehandlung im VBA-Code, um unerwartete Probleme abzufangen.
- Dokumentiere den Code gut, damit du später leichter nachvollziehen kannst, wie das Betriebssystem abgerufen wurde.
- Teste den Code auf verschiedenen Windows-Versionen, um sicherzustellen, dass er überall funktioniert.
FAQ: Häufige Fragen
1. Wie kann ich das Betriebssystem abfragen, wenn ich kein VBA verwenden möchte?
Du kannst die Funktion INFO("Sysversion") in eine Zelle eingeben, um die Systemversion anzuzeigen.
2. Funktioniert dieser Code in Excel 365?
Ja, der VBA-Code sollte in allen modernen Excel-Versionen funktionieren, einschließlich Excel 365.