VBA-Verweis auf SOLVER.XLA mit VBA reparieren

15/10/2009 - 09:18 von Andreas Killer | Report spam
Juhu. :-))

Wenn ich unter XL2000 in VBA einen Verweis auf SOLVER.XLA setzte und
dann das File mit einer anderen Excel-Version öffne, dann meckert er
wegen des fehlenden Verweises.

Im Prinzip müsste man nun "von Hand" den Verweis nachpflegen, was ich
aber meinen Usern nicht zumuten kann/möchte, zumal er bei geschütztem
VBA-Project eh nicht drankommt.

Gibt es da eine Chance in WorkBook_Open den Pfad zu reparieren?
Oder kann man den kaputten Verweis entfernen?

Theoretisch wàre es ja möglich nach SOLVER.XLA zu suchen und ihn in
etwa so hinzuzufügen:

Public Sub setzen()
Dim intIndex As Integer, bolgefunden As Boolean
With ThisWorkbook.VBProject.References
For intIndex = 1 To .Count
If Right(.Item(intIndex).FullPath, InStr(1, StrReverse( _
.Item(intIndex).FullPath), "\") - 1) = "SOLVER.XLA" Then _
bolgefunden = True: Exit For
Next
If Not bolgefunden Then .AddFromFile "C:\Programme\Microsoft " & _
"Office\OFFICE11\Makro\Solver\SOLVER.XLA"
End With
End Sub

Oder kann man den Verweis einfach nochmals "draufhauen" und die
kaputten Verweise einfach ignorieren?

Hat da jemand zufàlliger Weise was fertiges für dies "uralte" Problem?
Andere Lösungsansàtze, Hinweise?

Andreas.
 

Lesen sie die antworten

#1 Alexander Wolff
15/10/2009 - 10:23 | Warnen spam
Bedingte Kompilierung oder Abfrage von Systemvariablen kommt nicht in Frage?
Moin+Gruss Alexander - MVP for MS Excel - www.xxcl.de - mso2000sp3 --7-2

Ähnliche fragen