Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
832to836
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
832to836
832to836
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Deaktivierung eines Verweises geht nich

Deaktivierung eines Verweises geht nich
09.01.2007 20:44:38
michaonline
hallo,
hab im netz folgenden code gefunden:

function entfernen()
Dim VBEObj As Object
Set VBEObj = Application.VBE.ActiveVBProject.References
On Error Resume Next
VBEObj.AddFromFile "msoutl.olb"
End function
damit soll der verweis auf die msoutl.olb entfernt werden. habs mal ausprobiert. nur bei mir funktionierts nich?! kommt immer die fehlermeldung "Index außerhalb des gültigen bereiches" hab ihr ne idee, was falsch ist?
ich will lediglich den verweis auf die msoutl.olb entfernen
micha

		

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Deaktivierung eines Verweises geht nich
09.01.2007 20:46:30
Hubert
Mit VBEObj.AddFromFile "msoutl.olb" Verweis entfernen? Damit wird er gesetzt.
mfg Hubert
AW: Deaktivierung eines Verweises geht nich
09.01.2007 22:06:07
michaonline
hallo,
sorry, da hab ich doch den falschen quellcode gepostet....
hier der code zum löschen:

Private Sub CommandButton1_Click()
Dim VBEObj As Object
Set VBEObj = Application.VBE.ActiveVBProject.References
VBEObj.Remove VBEObj("c:\Programm\Microsoft Office\Office10\msoutl.olb")
End Sub

hab auch schon versucht nur: VBEObj.Remove VBEObj("msoutl.olb") anzugeben, geht auch nicht...
hast du ne idee?
micha
AW: Deaktivierung eines Verweises geht nich
09.01.2007 23:02:37
Ramses
Hallo
so Geht es
Sub Remove_Outlook_Refcerences()
    Dim i As Integer
    Dim findRefName As String
    findRefName = "msoutl.olb"
    With Application.VBE.ActiveVBProject.References
        For i = 1 To .Count
            If InStr(1, .Item(i).FullPath, findRefName) Then
                .Remove .Item(i)
                Exit Sub
            End If
        Next i
    End With
End Sub


Gruss Rainer
Anzeige
AW: Deaktivierung eines Verweises geht nich
10.01.2007 08:12:02
michaonline
hallo rainer,
vielen dank für deine hilfe, jetzt funktioniert *freu*
wünsch dir nen angenehmen tag
micha

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige