Excel und VBA - Die Excel-FAQ

Makro in Abhängigkeit der Excel-Version verzweigen

Screenshots zu den Aufrufoberflächen der Excel-Materialien

Makro in Abhängigkeit der Excel-Version verzweigen

Problem: Wie kann ich ein Makro in Abhängigkeit der abzufragenden Excel-Version verzweigen?

StandardModule: basMain

Sub VersionsTest()
   Select Case Left(Application.Version, 1)
      Case Is >= 8: Call Meldung1
      Case 5, 7: Call Meldung2
   End Select
End Sub

Private Sub Meldung1()
   MsgBox prompt:="Version >= 8"
End Sub

Private Sub Meldung2()
   MsgBox prompt:="Version 5/7"
End Sub