Clever-Excel-Forum

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.

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?

Hallo Helvetier,

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

Grüße
Anne

Anne Haubrich

Helvetier

Anne Haubrich