damit ein Code fehlerfrei läuft, möchte ich sicherstellen, dass mindestens
Servicepack 2 für Excel XP installiert ist. Leider reichen meine Kenntnisse
nicht aus, um das abzufragen.
Wie kann ich die Servicepackversion abfragen?
Grüße Gernot
Sub til()
Dim v As String
If Val(Application.Version) = 10 Then
Select Case Left(Application.Build, 1)
Case Is < 3: v = " nicht "
Case 3: v = 1
Case 4: v = 2
Case 6: v = 3
End Select
MsgBox "Servicepack " & v & " installiert!"
End If
End Sub