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:

• Microsoft Visual Basic for Applications Extensibility 5.3