Alle Prozeduren eines Moduls auflisten

Funktion

Diese Funktion listet alle Prozeduren eines Moduls auf.

Code

Public Sub AlleProzedurenEinesModulsAuflisten(vbc As VBIDE.VBComponent)


  'Variablen deklarieren
  Dim lngStartZeile As Long
  Dim lngProcTyp As Long


  With vbc.CodeModule
    lngStartZeile = .CountOfDeclarationLines + 1
    Do Until lngStartZeile >= .CountOfLines
      Debug.Print .ProcOfLine(lngStartZeile, lngProcTyp)
      lngStartZeile = lngStartZeile + _
        .ProcCountLines(.ProcOfLine(lngStartZeile, _
        lngProcTyp), lngProcTyp)
    Loop
  End With


End Sub

Beschreibung

Die erste Prozedur beginnt in der ersten Zeile nach dem Deklarationsabschnitt des Moduls. Der Nane der Prozedur wird mit der Funktion "ProcOfLine" ermittelt. Zur ersten Zeile dieser Prozedur wird die Anzahl der Zeilen dieser Prozedur hinzugezählt. Dort beginnt die nächste Prozedur.

Verweise

Damit dieser Code funktioniert, ist folgender Verweis erforderlich:

• Microsoft Visual Basic for Applications Extensibility 5.3