Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

VBE-Komponenten der aktiven Arbeitsmappe auslesen

Gruppe

Editor

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

    

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