Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
984to988
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
984to988
984to988
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Wieso werden Verweise nicht gelöscht

Wieso werden Verweise nicht gelöscht
09.06.2008 09:59:16
stefanseevetal
Hallo liebe Experten!
Ich habe mal wieder eine Frage: Ich habe eine Prozedur, die zu Beginn in Excel die Verweise zurücksetzt.
Es funktioniert auch soweit, nur das nicht alle Verweise zurückgesetzt bzw. gelöscht werden. Ich mache das mit folgendem Code. Mir ist klar, dass die Standardverweise nicht gelöscht werden, aber leider muss ich diesen Code dreimal ausführen bis endlich nur noch die Standardverweise gesetzt sind. Wieso werden bei dieser Schleife nicht gleich alle Verweise gelöscht? Leider bekomme ich auch keine Fehlermeldung, so dass ich gar nicht weiß, was falsch läuft!
Danke und Gruß,
Stefan
For i = 1 To Application.VBE.ActiveVBProject.References.Count
On Error Resume Next
Set VBEObj = Application.VBE.ActiveVBProject.References
VBEObj.Remove VBEObj(i)
Next i

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wieso werden Verweise nicht gelöscht
09.06.2008 10:57:43
Luschi
Hallo Stefan,
in den Fällen, in denen man per Index Objekte löscht, muß man
vom größten zum kleinsten Wert löschen:

Dim VBEObj As Object
Set VBEObj = Application.VBE.ActiveVBProject.References
If Not (VBEObj Is Nothing) Then
For i = Application.VBE.ActiveVBProject.References.Count To 1 Step -1
On Error Resume Next
VBEObj.Remove VBEObj(i)
Next i
Set VBEObj = Nothing
End If

oder es per Objekt machen


Dim ref As Object
For Each ref In Application.VBE.ActiveVBProject.References
On Error Resume Next
Application.VBE.ActiveVBProject.References.Remove ref
Next ref
Set ref = Nothing

Gruß von Luschi
aus klein-Paris

Anzeige
AW: Wieso werden Verweise nicht gelöscht
09.06.2008 11:43:00
stefanseevetal
Danke für die Antwort. Es funktioniert super! Eine kleine Frage habe ich aber noch:
Wenn ich Deinen ersten Code nach dem Öffnen ausführe, dann funktioniert es einwandfrei. Wenn ich den Code automatisch beim Öffnen der Datei ausführen lasse, dann löscht er nicht alle Verweise? Ich konnte Feststellen, dass er bei der Ausführung beim Öffnen die Schleife nur 4x durchläuft, während die For-Schleife 9x durchlaufen wird (und somit dann auch wirklich alle Verweise raus sind), wenn ich es erst hinterher ausführe. Woran liegt das? Bedeutet das, dass nicht alle Verweise gleich beim Start geladen sind? Was kann ich da tun?
Danke und Gruß,
Stefan
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige