Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
692to696
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
692to696
692to696
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Ermitteln d. Codezeilen

Ermitteln d. Codezeilen
09.11.2005 13:40:33
imnag
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ermitteln d. Codezeilen
10.11.2005 10:10:10
Rolf
Hallo ?
setz' mal einen Verweis (F11 - Extras - Verweise) auf
die Bibliothek "Microsoft Visual Basic for Applications Extensibility x.x"
fG
Rolf
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige