Excel Versionen

[marose67]

Hallo,

ich habe hier einen Code um Excel Versionen zu erkennen. Was ist z.B.: Excel Version 15?

Microsoft Excel Objekt Tabelle1

Option Explicit 

Sub ExcelVersionErmitteln() 
    Select Case Application.Version 
        Case "16.0" 
            MsgBox "Excel 365" 
        Case "14.0" 
            MsgBox "2010 und Excel 2011 (WIN/MAC)" 
        Case "12.0" 
            MsgBox "Excel 2007 und Excel 2008" 
        Case "11.0" 
            MsgBox "Excel 2003" 
        Case "10.0" 
            MsgBox "Excel 2002" 
        Case "9.0" 
            MsgBox "Excel 2000" 
        Case "8.0" 
            MsgBox "Excel 97" 
        Case Else 
            MsgBox "Excel-Version konnte nicht ermittelt werden!" 
    End Select 
End Sub 

Gruß
Marcus

[steve1da]

Hola,

Excel 15.0 ist Excel 2013.

https://de.wikipedia.org/wiki/Microsoft_Excel

Gruß,
steve1da

[marose67]

Hallo Steve,

da habe ich ja noch ein wenig nachzuarbeiten. Danke für den Hinweis. Das stimmt aber scheinbar nicht. Ich habe Excel 365. Version wird mir angegeben: Version 16.0, Laut Wiki ist das Excel 2016.

Habe folgenden Code zum Auslesen verwendet:##


Sub msgboxxx()
MsgBox "Welcome to Microsoft Excel version " & _
Application.Version & " running on " & _
Application.OperatingSystem & "!"
End Sub


Gruß
Marcus

[maninweb]

Hallo,

doch, das ist korrekt. 16 wird für Excel 2016, Excel 2019 und Excel 365 verwendet.

Gruß

[snb]

PHP-Code:

Sub M_snb()
  MsgBox "Excel " & Choose(Split(Application.Version, ".")(0) - 7, 97, 2000, 2002, 2003, 2007, , 2010, 2013, "365  oder 2016 oder 2019")
End Sub 


[marose67]

Hallo snb,

habe mir deinen Code in meiner Datei mitgespeichert. Danke für den Hinweis.

Liebe Grüße
Marcus