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: