Option Explicit

Sub Aktuelle_Verweise_auflisten()
Dim aktVerweis(1000)
Dim NextRow As Integer, i As Integer

'Bei Auftreten eines Fehlers, diesen übergehen
On Error Resume Next

'Alle Daten in Tabellenblatt löschen
Cells.ClearContents

'Überschriften in Blatt eintragen
Range("A1") = "Verweis Name"
Range("B1") = "GUID-Eigenschaft"
Range("C1") = "Major-Eigenschaft"
Range("D1") = "Minor-Eigenschaft"

'In Variable "NextRow" den Wert 2 schreiben
NextRow = 2

'Schleife zum Auflisten aller aktuell gesetzten Verweise
For i = 1 To 1000
aktVerweis(i) = ActiveWorkbook.VBProject.References.Item(i).Name
If aktVerweis(i) <> "" Then
    'Verweisnamen in Spate A eintragen
    Cells(NextRow, 1) = aktVerweis(i)
    'GUID-Eigenschaft in Spate B eintragen
    Cells(NextRow, 2) = ActiveWorkbook.VBProject.References.Item(i).GUID
    'Major-Eigenschaft in Spate C eintragen
    Cells(NextRow, 3) = ActiveWorkbook.VBProject.References.Item(i).Major
    'Minor-Eigenschaft in Spate D eintragen
    Cells(NextRow, 4) = ActiveWorkbook.VBProject.References.Item(i).Minor
End If
'Variable "NextRow" um den Wert 1 erhöhen
NextRow = NextRow + 1
Next

End Sub

Option Explicit

Sub Verweis_setzen()
'Verweis auf Microsoft Outlook wird gesetzt
ThisWorkbook.VBProject.References.AddFromGuid "{00062FFF-0000-0000-C000-000000000046}", 9, 0
Aktuelle_Verweise_auflisten
End Sub

Option Explicit

Sub Verweis_aufheben()
'Verweis auf Microsoft Outlook wird aufgehoben
ThisWorkbook.VBProject.References.Remove ThisWorkbook.VBProject.References("Outlook")
Aktuelle_Verweise_auflisten
End Sub

2

Excel - Version

Getestet