Hab das gestern schon gepostet (siehe unten) und die Antwort von Rolf Beißner hat leider nicht funktioniert.
Da ich nicht wusste wie diesen Beitrag wieder aktivieren kann - hab ich ihn hier wieder reinkopiert - sorry.
Kurzschilderung:
Problem: Will Anzahl der Codezeilen ermitteln => hab
Sub dazu über Rechereche gefunden => hat nicht gefunkt => Rolf hat mir geantwortet => hab Antwort ausgeführt => hat leider nicht gefunkt.
Bitte Euch daher um Antwort.
Danke & lg aus Wien
imnag
PS.: Ich weiß ich könnte den Code einfach in ein xls kopieren und dort dann abzählen - aber lieber wär mir halt eine elegantere Methode
################################ von gestern ###########################
Ermitteln d. Codezeilen von imnag vom 09.11.2005 13:40:33
AW: Ermitteln d. Codezeilen - von Rolf Beißner am 10.11.2005 10:10:10
Hi !
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
Hallo ?setz' mal einen Verweis (F11 - Extras - Verweise) aufdie Bibliothek "Microsoft Visual Basic for Applications Extensibility x.x"fGRolf