Office Version ermitteln

Gepostet am: Mar 09, 2011 3:58:39 PM

Da ich in letzter Zeit damit beschäftigt bin einige Add-ins für Office 2007 und 2010 umzustellen, stellte sich die Frage, wie man denn in Excel und Word schnell ermitteln kann, welche Version denn gerade installiert ist. 

> Val(Application.Version)

warum Val() in diesem Zusammenhang wichtig ist, erfährt man hier.

Das ist insofern von Bedeutung, da ab Excel 2007 einige weitreichende Änderungen vorgenommen wurden. So ist beispielsweise die Anzahl der Zellen drastisch erhöht worden, Ribbons wurden eingeführt und auch sonst noch einige weitreichende Änderungen.

Excel Version auslesen

Function ExcelVersionermitteln(Optional bAusgabe As Boolean = False, Optional strText As String = "installierte Version: ") As Integer' siehe auch http://support.microsoft.com/kb/282034/deDim strValue As StringSelect Case Val(Application.Version)   Case 5     strValue = "Excel 5.0"     ExcelVersionermitteln = 5   Case 7     strValue = "Excel 95"     ExcelVersionermitteln = 7   Case 8     strValue = "Excel 97"     ExcelVersionermitteln = 8   Case 9     strValue = "Excel 2000"     ExcelVersionermitteln = 9   Case 10     strValue = "Excel 2002/XP"     ExcelVersionermitteln = 10   Case 11     strValue = "Excel 2003"     ExcelVersionermitteln = 11   Case 12     strValue = "Excel 2007"     ExcelVersionermitteln = 12   Case 14     strValue = "Excel 2010"     ExcelVersionermitteln = 14   Case Else     strValue = "Unbekannte Version von Excel"     ExcelVersionermitteln = 0End SelectIf bAusgabe = True Then     MsgBox strText & strValue, vbInformation End IfEnd Function