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
Anfrage per E-Mail
+49(0) 151 164 55 914
Anfrage per Kontaktformular
Hilfe-Forum
