wie immer eine harte Nuss, worüber keine Antwort im Internet zu finden ist:
Ich habe einen Addin. Diese stellt Zusatzformeln zur Verfügung in Excel.
Wie kann ich diese Formeln per VBA auflisten?
Vielen Dank im Voraus.
Yal
Sub ListeFunctions()
Dim vbc As Object, iCounter As Long, wkb As Workbook
Set wkb = Workbooks("MeinAddin.xla")
For Each vbc In wkb.VBProject.VBComponents
With vbc.CodeModule
For iCounter = 1 To .CountOfLines
If Trim(.Lines(iCounter, 1)) Like "Function*" Then
Cells(Rows.Count, 1).End(xlUp).Offset(1) = .Lines(iCounter, 1)
End If
Next
End With
Next vbc
End Sub