Ermittlung der Office-Version und Version des Betriebssystems

108001




Mit diesem Makro kann geprüft werden, welche Office-Version bzw. welches Betriebssystem installiert ist!

Im Programmablauf kann verzweigt werden und der Code entsprechend der installierten Office-Version ausgeführt werden!

 

Variante 1:

Sub test()

If InStr(Application.Version,"8")>0 Then

MsgBox "Sie arbeiten mit der Version 8"

Else

MsgBox "Sie arbeiten mit der Version 9"

end if

End sub

 

 

Variante 2:

Sub test2()

V = Application.Version

S = System.Version

StatusBar = "Sie arbeiten mit der Version " & V & " und der Version des Betreibssystems " & S

End Sub