Ich würde gerne ermitteln wieviele Codezeilen meine Module bereits enthalten.
Hab bei der Recherche folgende
Sub (siehe unten) gefunden, wobei ich folgende Fehlermeldung erhalte:
Die Methode VBE für das Objekt _Application ist fehlgeschlagen.
Bitte um Unterstützung oder andere
Sub die Codezeilen zählen kann.
Danke
mfg
imnag
Sub Code_lesen()
Dim i As Long, wks1 As Worksheet
Set wks1 = Worksheets("Tabelle1")
'"Modul1" ist der Name deines Moduls
With Application.VBE.ActiveVBProject.VBComponents("Auxiliary").CodeModule
If .CountOfLines < 1 Then Exit Sub
Debug.Print .CountOfLines
Debug.Print .CountOfDeclarationLines
End With
Set wks1 = Nothing
End Sub