Gruppe
Allgemein
Bereich
Anwendung
Thema
Makro in Abhängigkeit der Excel-Version verzweigen
Problem
Wie kann ich ein Makro in Abhängigkeit der abzufragenden Excel-Version verzweigen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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