� Um alle installierten Add-Ins zu ermitteln, gen�gen wenige Zeilen Code.

���� Das nachfolgende Makro ermitteln diese und schreibt alle
���� Add-Ins in eine Listbox1 in Tabelle1.

���� Setzen Sie also eine Listbox1 auf Tabelle1,
���� und f�gen Sie neues Modul ein:

   Sub AddIns_ermitteln()
      Dim AI As AddIn
      'Listbox leeren
      Worksheets("Tabelle1").ListBox1.Clear
   �  'Schleifenbeginn
      For Each AI In Application.AddIns
�        'Dateinamen in Listbox eintragen
         Worksheets("Tabelle1").ListBox1.AddItem (AI.FullName)
���   �� 'Schleifenende
      Next
   End Sub

�