ich habe hier ein Makro , aus dem Forum, von Nepumuk, dass alle Makros einer Mappe auflistet, aber nicht den Makrotext.
Meine Bitte, kann man das Makro so erweitern, oder ein neues erstellen, dass auch die Makros selbst, also der VBA Text, ebenfalls in der aktien Tabelle dazu aufgelistet wird?
Wäre schön, wenn das möglich wäre.
Hier das bisherge Makro von Nepumuk, dass schon prima geht, nur der Makrotext ist nicht da:
Sub MakroListe()
Dim vbc As Object, iRow As Integer, iCol As Integer, iCounter As Integer, sMacro As _
String
Cells.Clear
Rows(1).Font.Bold = True
For Each vbc In ThisWorkbook.VBProject.VBComponents
iRow = 1
iCol = iCol + 1
Cells(iRow, iCol).Value = vbc.Name
Debug.Print vbc.Type
With vbc.CodeModule
For iCounter = 1 To .CountOfLines
If .ProcOfLine(iCounter, 0) > "" Then
sMacro = .ProcOfLine(iCounter, 0)
If sMacro Cells(iRow, iCol) Then
iRow = iRow + 1
Cells(iRow, iCol).Value = sMacro
End If
End If
Next iCounter
End With
Next vbc
Columns.AutoFit
End Sub
Mit Gruß und Dank für evtl. Hilfe,
Dieter(Drummer)