Verweise in VBA/Excel

Hi Leutz!
Vielleicht kann mir einer von euch ja weiterhelfen.
Ich schlage mich gerade mit den Verweisen von VBA rum,
bzw. den gebrochenen Verweisen.
Bitte keine Hinweise auf andere Beträge die hab ich mit
Sicherheit schon gelesen.
Ich weiß wie ich ein Projekt nach Verweisen durchsuchen und
auch wie ich sie mir falls sie fehlen rein lade usw. nur eines
funktioniert leider nicht.
Angenommen ich habe auf einem Computer einen Verweis auf Outlook
olb Datei der Version 11.
Wenn ich nun auf anderem Computer mit einer geringeren Outlookversion
z.B. Version 10 sitze, kann man unter Extras Verweise sehen, dass der Verweis
zu Outlook Version 11 gebrochen ist.
Jetzt will ich den gebrochenen raus und den Version 10 Verweis rein, das Problem ist nur ich kann den alten Verweis nicht löschen.
Programm:
For Each objVerweis In Application.VBE.ActiveVBProject.References
intZeile = intZeile + 1
strGUID = objVerweis.GUID
lngMajor = objVerweis.major
lngMinor = objVerweis.minor
If strGUID = "{00062FFF-0000-0000-C000-000000000046}" Then
Application.VBE.ActiveVBProject.References.Remove objVerweis
---&gt ActiveWorkbook.VBProject.References.Remove objVerweis
Application.VBE.ActiveVBProject.References.AddFromFile "C:\Program Files\Microsoft Office\Office10\msoutl.olb"
Else
ThisWorkbook.Sheets("Tabelle1").Range("A" & intZeile).Value = _
"Name: " & objVerweis.Name & vbCrLf & "GUID: " & objVerweis.GUID & vbCrLf & _
"Description: " & objVerweis.Description & vbCrLf & "FullPath: " & objVerweis.FullPath & vbCrLf
End If
Next objVerweis
Exit Sub
Bei dem mit Pfeil gekennzeichneten Punkt kommt dann Fehlermeldung das die DLL nicht gefunden wurde. Ist mir auch klar schließlich ist der Verweis ja gebrochen, aber ich will ihn ja rauslöschen und das macht er einfach nicht.
Hat irgendwer von euch vielleicht noch ideen?
Danke lg JOhannes

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub prcSetReferences() Dim intIndex As Integer Dim bolfound As Boolean With ThisWorkbook.VBProject.References For intIndex = 1 To .Count If .Item(intIndex).GUID = _ "{0002E157-0000-0000-C000-000000000046}" Then If .Item(intIndex).IsBroken Then _ .Remove .Item(intIndex) Else _ bolfound = True: Exit For End If Next If Not bolfound Then .AddFromGuid _ GUID:="{0002E157-0000-0000-C000-000000000046}", _ Major:=5, Minor:=3 End With End Sub

Vielen Dank für die Antwort, aber daran ein object zu verwenden anstelle einer wirklichen Referenz macht zumindest bei mir überhaupt keinen Unterschied. Hab das auch mit den "tatsächlichen Object versucht, dass ic mit ActivevWorkbook.... usw ansprechen kann ist immer das Gleiche.
Das Problem liegt prinzipiell an .isBroken weil das nicht wie in der Hilfe definiert einer nicht mehr vorhanden Referenz nicht false ausgibt sondern Fehler 48 und beim Vesuch diesen gebrochenen Verweis zu entfernen bekommst du dann die Fehlermeldung "Fehler beim Laden einer DLL"...
Dennoch hab ich eine relativ zufriedenstellende Lösung gefunden. Eigentlich war mein Problem ja nur dass wenn ich VBA mit Outlook 11 Verweis speichere und dann auf PC mit Verweis auf Outlook 10 öffne nix mehr geht weil Verweis eben gebrochen ist, aber das sollte wie ich gestern abend herrausgefunden habe gar nicht passieren, eigentlich sollte er stillschweigend den 10er Verweis reinnehmen was er auch tut wenn man die WIn-Reg ein wenig anpasst, 1 oder 2 nutzlose Verweise zusätzlich einstellt. Wenns wen interessiert bitte reinposten dann stell ichs rein.
lg johannes

Beliebteste Forumthreads (12 Monate)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread