Windows-Version per Excel-Makro bestimmen

01. Juli 2009
Martin Althaus Von Martin Althaus, Excel, Office ...

So stellen Sie das Betriebssystem fest

Wenn Sie die Windows-Version feststellen möchten, mit der Excel arbeitet, können Sie das in einer Tabelle über die Funktion INFO erledigen.

Aber wie machen Sie das in einem Makro? Setzen Sie den folgenden VBA-Code ein:

Sub LeseWindowsVersion()
Dim a As String
Dim Version As String
Version = Application.OperatingSystem
Select Case Version
Case "Windows (32-bit) NT 4.00"
 
Version = "Windows NT 4.0"
Case "Windows (32-bit) 4.10"
 
Version = "Windows 98"
Case "Windows (32-bit) NT 5.00"
 
Version = "Windows 2000"
Case "Windows (32-bit) NT 5.01"
 
Version = "Windows XP"
Case "Windows (32-bit) NT 6.00"
 
Version = "Windows Vista"
End Select
a = MsgBox("Auf Ihrem System läuft: " & vbLf & Version, vbOKOnly, "Windows-Version")
End Sub

Dieses Makro ist ein bisschen länger, weil es eine Fallunterscheidung durchführen muss. Excel liefert die aktuellen Betriebssystemversion zwar über die Eigenschaft Application.OperatingSystem, der zurückgegebene Windows-Code entspricht aber nicht dem Namen der Windows-Version, sondern der internen Microsoft-Versionsbezeichnung.

Diese Bezeichnungen wandelt das Makro in einer Case-Verzweigung um und gibt anschließend das Ergebnis aus. Die folgende Abbildung zeigt, wie das aussehen kann:

Tipp: Falls Sie wissen möchten, wie Sie ein Makro in Excel eingeben und starten, finden Sie hier eine Kurzanleitung:

http://www.exceldaily.de/excel-makros-vba/artikel/d/so-geben-sie-makros-in-excel-ein.html

Werden Sie mit unseren Tipps zum Excel-Profi!

Jetzt gratis per E-Mail

DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Weitere Artikel zum Thema

Newsletter

Jetzt kostenlose Excel-Hilfe anfordern!

  • die besten Tipps
  • völlig kostenlos
  • jederzeit abbestellbar
DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Experten

Rudolf Ring twittert für @Computerwissen

Die von Ihnen eingegebene E-Mail Adresse ist nicht korrekt. Bitte korrgieren Sie Ihre Eingabe und klicken Sie auf "OK":

Bitte wählen Sie mindestens einen Newsletter aus und klicken Sie auf "OK"