Option Explicit
Sub tt()
Dim VBComp As VBComponent, str As String
For Each VBComp In ThisWorkbook.VBProject.VBComponents
str = str & VBComp.Name & " = " & comptypetoname(VBComp) & Chr(13)
Next VBComp
MsgBox str
End Sub
Im Code wird "comptypetoname" bemängelt, Kompilierungsfehler, Sub oder Funstion nicht definiert.
Ich nehme an, dass ein Verweis fehlt, nur welcher?
Wie füge ich noch CountOfLines ein?
Gestzt unter Extras--Verweise sind:
Visual Basic for Applications
Microsoft Excel 9.0 Object Library
Ole Automation
Microsoft Office 9.0 Object Library
Microsoft Forms 2.0 Object Library
Microsoft Visual Basic for Applications Extensibility 5.3
Atpvbaen.xls
funcres
Internet Assistant
Danke ^ Gruß
Reinhard