Versionen von Windows und Excel ermitteln

Mit dem folgenden Makro können Sie ganz einfach die installierte Windows- und Excel-Version ermitteln.

Sub Info_Windows_Excel()
'Ermittlung der installierten Windows- und der Excelversion
   antw = MsgBox("Betriebssystem: " & Application.OperatingSystem & Chr(10) & _
   "Excel-Version: " & Application.Version, vbInformation, "Info")
End Sub


Die Information wird über eine Message-Box ausgegeben.

Mit Hilfe des zweiten VBA-Codes wird die Excel-Version ausgelesen und die Version ebenfalls mit Hilfe einer Message-Box ausgegeben. Der Vorteil dieses Makros besteht darin, dass Sie abhängig von der Excel-Version weitere Befehle ausführen können. So werden im Beispiel nur bei Excel 2010 die Blattregisterkarten ausgeblendet, bei allen anderen Excel-Versionen nicht. Auf diese Weise kann Excel abhängig von der Excel-Version individualisiert werden.

Sub Excel_Version_auslesen()
'** Auslesen, welche Excel-Version verwendet wird
Select Case Val(Application.Version)
 Case 8 'Excel 97
 MsgBox "Excel-Version 97"
 
 Case 9 'Excel 2000
 MsgBox "Excel-Version 2000"
 
 Case 10 'Excel 2002/XP
 MsgBox "Excel-Version 2002/XP"
 
 Case 11 'Excel 2003
 MsgBox "Excel-Version 2003"
 
 Case 12 'Excel 2007
 MsgBox "Excel-Version 2007"
 Case 14 'Excel 2010
 ActiveWindow.DisplayWorkbookTabs = False
 MsgBox "Excel-Version 2010"
 
 Case 15 'Excel 2013
 MsgBox "Excel-Version 2010"
 
 Case Else
 MsgBox "Die Programmversion konnte nicht ermittelt werden"
 
 End Select
End Sub

 

 

Partnerlinks

Relevante Artikel

Ihre Zufriedenheit ist unser Ziel, deshalb verwenden wir Cookies. Mit diesen ermöglichen wir, dass unsere Webseite zuverlässig und sicher läuft, wir die Performance im Blick behalten und Sie besser ansprechen können. Cookies werden benötigt, damit technisch alles funktioniert und Sie auch externe Inhalte lesen können. Des Weiteren sammeln wir unter anderem Daten über aufgerufene Seiten, getätigte Käufe oder geklickte Buttons, um so unser Angebot an Sie zu Verbessern. Mehr über unsere verwendeten Dienste erfahren Sie unter „Weitere Informationen“. Mit Klick auf „Akzeptieren“ erklären Sie sich mit der Verwendung dieser Dienste einverstanden. Ihre Einwilligung können Sie jederzeit mit Wirkung auf die Zukunft widerrufen oder ändern.