Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Anwendung