Makronamen auflisten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub ListMacros() Dim VBComp As VBComponent Dim VBCodeMod As CodeModule Dim oListsheet As Object Dim StartLine As Long Dim ProcName As String Dim iCount As Integer Application.ScreenUpdating = False On Error Resume Next Set oListsheet = ActiveWorkbook.Worksheets.Add iCount = 1 oListsheet.[a1] = "Macro" For Each VBComp In ThisWorkbook.VBProject.VBComponents Set VBCodeMod = ThisWorkbook.VBProject.VBComponents(VBComp.Name).CodeModule StartLine = VBCodeMod.CountOfDeclarationLines + 1 Do Until StartLine >= VBCodeMod.CountOfLines oListsheet.[a1].Offset(iCount, 0).Value = VBCodeMod.ProcOfLine(StartLine, _ vbext_pk_Proc) iCount = iCount + 1 StartLine = StartLine + _ VBCodeMod.ProcCountLines(VBCodeMod.ProcOfLine(StartLine, vbext_pk_Proc), _ vbext_pk_Proc) Loop Set VBCodeMod = Nothing Next VBComp Application.ScreenUpdating = True End Sub

Hallo Woto,
teste mal:

Option Explicit

Private Sub UserForm_Initialize()

    Dim objVBComponents As Object
    Dim lngLine As Long, ialngIndex As Long
    Dim strLastName As String, astrProcedures() As String

    'Alle oeffentlichen Prozeduren in Standardmodulen suchen
    For Each objVBComponents In ThisWorkbook.VBProject.VBComponents

        With objVBComponents.CodeModule

            'Nur in Standardmodulen
            If objVBComponents.Type = 1 Then

                'Schleife ueber alle Zeilen im Modul
                For lngLine = 1 To .CountOfLines

                    'Prozedurname gefunden
                    If .ProcOfLine(lngLine, 0) <> vbNullString Then

                        'Neuer Prozedurname
                        If .ProcOfLine(lngLine, 0) <> strLastName Then

                            'Zeile ist nicht leer
                            If Trim$(.Lines(lngLine, 1)) <> vbNullString Then

                                'Wenn es keine Function ist
                                If .Lines(lngLine, 1) Like "*Sub *()" Then

                                    'Name der Prozedur merken
                                    strLastName = .ProcOfLine(lngLine, 0)

                                    'Prozedur ist nicht Privat
                                    If Left$(.Lines(lngLine, 1), 7) <> "Private " Then

                                        'Prozedurne und Modulname an Listbox übergeben
                                        Call ListBox1.AddItem(pvargItem:=strLastName)

                                    End If
                                End If
                            End If
                        End If
                    End If
                Next
            End If
        End With
    Next
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makronamen auflisten

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread