"Projekt oder Bibliothek nicht gefunden" / Verweis

Sub VBE_einbinden() Dim VBEObj As Object Set VBEObj = Application.VBE.ActiveVBProject.References On Error Goto ERRORHANDLER VBE.AddFromFile "domoobj.tlb" VBE.AddFromFile "notes32.tlb" Exit Sub ERRORHANDLER: If Err.Number = 48 Then Exit Sub 'falls schon geladen MsgBox "Die erforderlichen Bibliotheken...." End Sub Damit wird in der Verweisliste für jede Bibliothek ein Eintrag erzeugt und aktiviert: NICHT VORHANDEN: Lotus Notes .... Wenn ich dann manuell diese Verweise deaktiviere und die "richtigen Verweise" (also die ohne NICHT VORHANDEN:Lotus Notes...) aktiviere funktionier das AddIn auch wieder. Wo steckt der Fehler? Warum wird mir angezeigt, daß die Bibliothek nicht vorhanden ist? Warum sind die Verweise nur auf dem einen Rechner aktiviert? Gruß Dieterlem

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub prcAddReverence(objWorkbook As Workbook) 'anpassen Dim intIndex As Integer Dim blnFound As Boolean On Error GoTo err_exit With objWorkbook.VBProject.References 'anpassen For intIndex = 1 To .Count If .Item(intIndex).GUID = FM20_GUID Then 'anpassen If .Item(intIndex).IsBroken Then .Remove .Item(intIndex) Else blnFound = True End If End If Next If Not blnFound Then _ .AddFromGuid GUID:=FM20_GUID, Major:=2, Minor:=0 'anpassen End With objWorkbook.Application.Calculation = xlCalculationAutomatic Exit Sub err_exit: MsgBox "Fehler " & CStr(Err.Number) & vbLf & _ vbLf & Err.Description, vbCritical, "Fehler" End Sub

Sub prcAddReverence() Dim intIndex As Integer Dim blnFound As Boolean On Error GoTo err_exit With Application.VBE.ActiveVBProject.References For intIndex = 1 To .Count 'alle verwendete Bibliotheken If .Item(intIndex).GUID = "{29131520-2EED-1069-BF5D-00DD011186B7}" Then If .Item(intIndex).IsBroken Then .Remove .Item(intIndex) Else blnFound = True End If End If Next If Not blnFound Then _ .AddFromGuid GUID:="{29131520-2EED-1069-BF5D-00DD011186B7}", Major:=1, Minor:=1 'domobj.tlb End With Application.Calculation = xlCalculationAutomatic Exit Sub err_exit: MsgBox "Fehler " & CStr(Err.Number) & vbLf & _ vbLf & Err.Description, vbCritical, "Fehler" End Sub

Sub infosZuBibliothekenAusgeben() On Error Resume Next For Each verweis In Application.VBE.ActiveVBProject.References Debug.Print "Bezeichnung: " & verweis.Description & Chr(13) & "Speicherort: " & _ verweis.Fullpath & Chr(13) & "Name: " & verweis.Name & Chr(13) & "GUID: " & _ verweis.GUID & Chr(13); & "Major: " & verweis.Major & Chr(13) & "Minor: " & _ verweis.Minor & Chr(13) & Chr(13) Next verweis End Sub

Hallo Reinhard,
Major ist die Hauptversionsnummer und Minor ist die Nebenversionsnummer der jeweiligen Bibliothek. Bei Lotus Notes haben die sich von LoNo R5 auf LoNo R6 verändert.
Ich habe herausgefunden, daß die Fehlermeldung: "Wechsel in den Haltemodus ist zu diesem Zeitpunkt nicht möglich." nur erscheint, wenn ich den Code mit F8 durchgehe. bei einem Normalen durchgang (mit F5) gibt es keine Fehlermeldung. Somit läuft der Code Fehlerfrei


Sub infosZuBibliothekenAusgeben()
On Error Resume Next
For Each verweis In Application.VBE.ActiveVBProject.References
Debug.Print "Bezeichnung: " & verweis.Description & Chr(13) & "Speicherort: " & _
verweis.Fullpath & Chr(13) & "Name: " & verweis.Name & Chr(13) & "GUID: " & _
verweis.GUID & Chr(13) & "Major: " & verweis.Major & Chr(13) & "Minor: " & _
verweis.Minor & Chr(13) & Chr(13)
Next verweis
End Sub


Sub Bibliothek_hinzufügen()
Dim intIndex As Integer
Dim blnFound As Boolean
On Error GoTo err_exit
With Application.VBE.ActiveVBProject.References
For intIndex = 1 To .Count  'alle verwendete Bibliotheken
If .Item(intIndex).GUID = "{29131520-2EED-1069-BF5D-00DD011186B7}" Then
If .Item(intIndex).IsBroken Then
.Remove .Item(intIndex)
Else
blnFound = True
End If
End If
Next
If Not blnFound Then _
.AddFromGuid GUID:="{29131520-2EED-1069-BF5D-00DD011186B7}", Major:=1, Minor:=1 'domobj.tlb
End With
Application.Calculation = xlCalculationAutomatic
Exit Sub
err_exit:
MsgBox "Fehler " & CStr(Err.Number) & vbLf & _
vbLf & Err.Description, vbCritical, "Fehler"
End Sub

Gruß
Dieterlem

Beliebteste Forumthreads (12 Monate)

"Projekt oder Bibliothek nicht gefunden" / Verweis

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

194 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

"Projekt oder Bibliothek nicht gefunden" / Verweis

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

194 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread