hab da von Nepumuk folgenden Code gefunden:
Public
Sub Verweis_setzen()
Dim intIndex As Integer
Dim bolgesetzt As Boolean
With ThisWorkbook.VBProject.References
For intIndex = 1 To .Count
If Right(.Item(intIndex).FullPath, InStr(1, StrReverse(.Item(intIndex).FullPath), "\") - 1) = "wshom.ocx" Then bolgesetzt = True: Exit For
Next
If Not bolgesetzt Then .AddFromFile "wshom.ocx"
End With
End Sub
Damit wird der Verweis zu Windows Scripting Host gesetzt. Ich sollte nun aber den Verweis zu Microsoft Scripting Runtime setzen.
Kann mir da jemand sagen, welche kryptische Zeichenkombination anstelle von "wshom.ocx" verwendet werden muss?
Gruss yogi