Wie kann ich mir alle Modulnamen einer Arbeitsmappe in "Tabelle1" in Spalte A ab Zeile 2 auflisten?
Gruss, Peter
Sub mA()
Dim intI As Integer
Dim vbc As Object
intI = 2
With ActiveWorkbook.VBProject
For Each vbc In .VBComponents
ActiveWorkbook.Worksheets("Tabelle1").Cells(intI, 1) = vbc.Name
intI = intI + 1
Next vbc
End With
End Sub