Sub Projektliste()
    Module = ""
    Klassenmodule = ""
    Forms = ""
    Mappen = ""
    For Each VBPro In ThisWorkbook.VBProject.VBComponents
         If VBPro.Type = 1 Then _
            Module = Module & VBPro.Name & Chr(13)
         If VBPro.Type = 2 Then _
            Klassenmodule = Klassenmodule & VBPro.Name & Chr(13)
         If VBPro.Type = 3 Then _
            Forms = Forms & VBPro.Name & Chr(13)
         If VBPro.Type = 100 Then _
            Mappen = Mappen & VBPro.Name & Chr(13)
    Next VBPro
    MsgBox "***Module***" & Chr(13) & Module & Chr(13) & _
       "***Klasenmodule***" & Chr(13) & Klassenmodule & Chr(13) & _
       "***Userforms***" & Chr(13) & Forms & Chr(13) & _
       "***Arbeitsmappe und Tabellen***" & Chr(13) & Mappen
End Sub