Gruppe
VBE
Bereich
Editor
Thema
VBE-Komponenten der aktiven Arbeitsmappe auslesen
Problem
Wie kann ich die VBE-Komponenten der aktiven Arbeitsmappe auslesen und in das aktive Blatt mit Angabe des Typs eintragen lassen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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