Makro in Abhängigkeit der Excel-Version verzweigen

Thema: Allgemein - Gruppe Anwendung

Arbeitsmappe

035898    243604

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