Famille de feuilles de calcul Microsoft avec des outils pour l’analyse, le graphique et la communication des données.
Cette réponse a été traduite automatiquement. Par conséquent, il peut y avoir des erreurs grammaticales ou des formulations étranges.
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`` MsgBox "Excel-Version 2010"`` Case 15 'Excel 2013`` MsgBox "Excel-Version 2010"
Case 16
MsgBox "Excel-Version 2016 or above"
Case Else`` MsgBox "Die Programmversion konnte nicht ermittelt werden"`` `` End Select``End Sub