Alle Prozeduren eines Moduls auflisten

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: