Sorry falsch - AW: Name einer Prozedur lesen
01.07.2003 22:13:21
Nepumuk
Hallo Matthias,
da gibt es auch keine Möglichkeit den Namen der Prozedur rauszubekommen. Ich kann dir die Namen aller Prozeduren auflisten, oder alle Module nach eine bestimmten Prozedur suchen lassen, aber das ist auch schon alles. Das mit dem Auflisten funktioniert übrigens so:
Option Explicit
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
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
Gruß
Nepumuk