Prüfen ob ein Verweis vorhanden ist

Prüfen, ob ein Verweis vorhanden ist

Funktion

Diese Funktion prüft, ob ein Verweis vorhanden ist.

Code

Public Function IstVerweisVorhanden(strVerweis As String) As Boolean

'Variablen deklarieren Dim ref As VBIDE.Reference
'Initialisieren IstVerweisVorhanden = False
For Each ref In Application.VBE.ActiveVBProject.References If ref.Name = strVerweis Then IstVerweisVorhanden = True Exit Function End If Next
End Function

Beschreibung

Die Funktion wird mit "False" initialsiert. Dann wird die Auflistung der Verweise durchlaufen. Wenn der Name eines Verweises mit dem gesuchten Namen übereinstimmt, ist der Verweis vorhanden.

Verweise

Damit dieser Code funktioniert, ist folgender Verweis erforderlich: