Nutzen Sie unser 
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
