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