Private Sub Workbook_Open()
 If CheckAddin("ATPVBAEN.XLA") = False Then _
 MsgBox "Bitte installieren Sie das Add-In Analyse-Funktionen, " & _
 "bevor Sie die Makros in dieser Arbeitsmappe verwenden. "
End Sub

Function CheckAddin(addname As String) As Boolean
 Dim ad As AddIn, res As Boolean
 res = False
 ' In der Add-In-Auflistung nach dem Add-In suchen.
 For Each ad In AddIns
 ' Ist es vorhanden, True zurückliefern.
 If ad.Name = addname Then res = True
 Next
 CheckAddin = res
End Function