Gruppe
VBE
Problem
Wie kann ich die VBE-Komponenten der aktiven Arbeitsmappe auslesen und in das aktive Blatt mit Angabe des Typs eintragen lassen?
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