Modulnamen per Makro auslesen

[Anne Haubrich]

Hallo,

innerhalb meines  Projektes verwende ich einige Module, denen ich diverse Namen gegeben habe.

Gibt es eine Möglichkeit diese Namen, ähnlich wie bei Tabellenblattnamen, auszulesen und dann z.B.

in einem Sheet abzuspeichern? Falls so etwas nicht geht bitte schreibt mir das auch.

[Helvetier]

Hallo Anne

Code:

Sub Module_auslesen()
   Dim Msg As String
    For n = ActiveWorkbook.VBProject.VBComponents.Count To 1 Step -1
       If ActiveWorkbook.VBProject.VBComponents(n).Type = 1 Then
           Msg = Msg & ", " & ActiveWorkbook.VBProject.VBComponents(n).Name
       End If
   Next
   MsgBox Msg
End Sub

Hilft dies?

[Anne Haubrich]

Hallo Helvetier,

das hilft ungemein! Genau das was ich gesucht habe. Besten Dank!

Grüße
Anne