Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: modMain

Sub VBEKomponenten()
   Dim oVBE As Object
   Dim iCounter As Integer
   iCounter = 1
   For Each oVBE In ThisWorkbook.VBProject.VBComponents
      Select Case oVBE.Type
         Case 1: Cells(iCounter, 2) = "Standardmodul"
         Case 100: Cells(iCounter, 2) = "Klassenmodul"
         Case 3: Cells(iCounter, 2) = "UserForm"
      End Select
      Cells(iCounter, 1) = oVBE.Name
      iCounter = iCounter + 1
   Next oVBE
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen VBE und Editor