Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

VBA-Verweis ab- und einschlaten- wie? | Herbers Excel-Forum


Betrifft: VBA-Verweis ab- und einschlaten- wie? von: Dietmar aus Aachen
Geschrieben am: 20.11.2009 16:10:52

Hallo in die Runde,

Frage 1:
weiß jemand, wie ich einen VBA-Verweis dauerhaft abschalten kann? Ich möchte dies zB mit - Ref Edit Control- machen.
Wenn ich jedoch dás Häkchen wegenehmen, Excel speichere und dann schließe; und es dann wieder öffne ist das Häkchen wieder da!

Was ist zu tun?

Frage 2:
Gibt es einen VBA-Code um einen VBA-Verweis abzuschalten/einzuschalten ?
Ich VBA-Verweis -Ref Edit Control- beim Öffnen einer Arbeitsmappe deaktivieren und beim Schließen der Mappe wieder aktivieren.

Jermand eine Ahnung wie das geht?

Danke in die Runde !

Dietmas aus Aachen

  

Betrifft: Defekte Verweise per VBA löschen - Code-Beispiele von: NoNet
Geschrieben am: 20.11.2009 17:07:27

Hallo Dietmar,

hier ein passender VBA-Code zum Löschen defekter Verweise :

Sub DefekteVerweiseLoeschen()
    '04.11.2009, 20.11.2009, NoNet - www.excelei.de
    Dim objRef As Object, antwort
    On Error Resume Next
    
    For Each objRef In ActiveWorkbook.VBProject.References
        If objRef.isbroken Then
            antwort = MsgBox("Soll folgender VBA-Werweis gelöscht werden ?" & vbLf & vbLf & _
                objRef.Description & vbLf & vbLf & _
                "(Datei : " & objRef.Fullpath & ")", vbYesNo + vbQuestion, _
                "Defekten Verweis gefunden :")
            If Err Then
                antwort = MsgBox("Soll folgender VBA-Werweis gelöscht werden ?" & vbLf & vbLf &  _
_
                    "(Datei : " & objRef.Fullpath & ")", vbYesNo + vbQuestion, _
                    "Defekten Verweis gefunden :")
            End If
            If antwort = vbYes Then
                ActiveWorkbook.VBProject.References.Remove objRef
            End If
        End If
    Next
End Sub
Einige weitere Beiträge von mir zum Thema "Verweise"findest Du hier :

http://spotlight-wissen.de/archiv/message/1071334.html
https://www.herber.de/forum/archiv/1088to1092/t1090627.htm#1090629
http://www.ms-office-forum.de/forum/showthread.php?t=232888
http://www.ms-office-forum.net/forum/showthread.php?t=234648

Viel Erfolg, schönes WE, Gruß NoNet