So prüfen Sie, ob eine Applikation verfügbar ist 8.10 So prüfen Sie, ob eine Applikation verfügbar ist Eine häufige Fehlerquelle in der VBA-Programmierung ist dann gegeben, wenn versucht wird, anwendungsübergreifend zu programmieren, die entsprechende Anwendung aber gar nicht verfügbar ist. Im folgenden Listing sehen Sie, wie Sie über eine Funktion prüfen können, ob bei- spielsweise Microsoft Excel auf Ihrem PC installiert ist: Listing 8.22: Ist die Applikation verfügbar? Public Function AppDa(strApp As String) As Boolean Dim obj As Object On Error GoTo Fehler Set obj = CreateObject(strApp & ".Application") If Not obj Is Nothing Then AppDa = True Else AppDa = False End If Exit Function Fehler: AppDa = False End Function Sub ApplikationsVerfügbarkeitTesten() If AppDa("Excel") Then MsgBox "Anwendung ist installiert!", vbInformation Else MsgBox "Anwendung ist nicht installiert!", vbInformation End If End Sub 1 2 3 4 5 6 7 8 9 10 11 12 13 Übergeben Sie in der aufrufenden Prozedur den Namen der Anwendung, deren Existenz Sie überprüfen möchten. Danach versuchen Sie, über die Funktion Create- Object ein Objekt der Anwendung zu erstellen. Gelingt dies nicht, dann übergeben Sie den Wert False an die aufrufende Prozedur. 8.11 So prüfen Sie, ob ein bestimmtes Add-In verfügbar ist 14 15 16 Möchten Sie überprüfen, ob ein bestimmtes Add-In im Add-Ins-Manager verfügbar ist, dann können Sie auch hierfür eine Funktion schreiben, die wie folgt aussieht. Function AddInEingebunden(ByVal strAddInName As String) As Boolean Dim i As Integer For i = 1 To Application.AddIns.Count If LCase(Application.AddIns(i).Name) = LCase(strAddInName) Then AddInEingebunden = True 169