Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
796to800
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
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Verweis für CountOfLines CompTypeToName

Verweis für CountOfLines CompTypeToName
03.09.2006 12:37:57
Reinhard
Hallo Wissende,
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verweis für CountOfLines CompTypeToName
03.09.2006 12:59:30
K.Rola
Hallo,
das ist eine UDF:

Function CompTypeToName(VBComp As VBComponent) As String
Select Case VBComp.Type
Case vbext_ct_ActiveXDesigner
CompTypeToName = "Active X Designer"
Case vbext_ct_ClassModule
CompTypeToName = "Klassenmodul"
Case vbext_ct_Document
CompTypeToName = "Dokument"
Case vbext_ct_MSForm
CompTypeToName = "MS Form"
Case vbext_ct_StdModule
CompTypeToName = "Standardmodul"
Case Else
End Select
End Function

Gruß K.Rola
Anzahl Zeilen in einem Modul
03.09.2006 13:21:02
Reinhard
Hallo K.Rola,
jetzt klappt es, dankeschön.
Ich will alle Module exportieren, aber nur enn sie nicht leer sind. Wie ermittle ich denn die Anzahl der Zeilen der Pozeduren in einem Modul und/oeder die Gesamtanzahl Zeilen in einem Modul?
Einige fehlgeschlagene Versuche sind nachstehend.
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)
'MsgBox VBComp.CountOfLines
'MsgBox VBComp.Lines.Count
'MsgBox VBComp.VBE.CodePanes.Count
'MsgBox Application.VBE.CodePanes(3).CodeModule.ProcCountLines("VBComp", vbext_pk_Proc)
Next VBComp
MsgBox str
End Sub
Function CompTypeToName(VBComp As VBComponent) As String
Select Case VBComp.Type
Case vbext_ct_ActiveXDesigner
CompTypeToName = "Active X Designer"
Case vbext_ct_ClassModule
CompTypeToName = "Klassenmodul"
Case vbext_ct_Document
CompTypeToName = "Dokument"
Case vbext_ct_MSForm
CompTypeToName = "MS Form"
Case vbext_ct_StdModule
CompTypeToName = "Standardmodul"
Case Else
End Select
End Function

Danke ^ Gruß
Reinhard
Anzeige
noch offen o.w.T.
03.09.2006 13:30:20
Reinhard


AW: nix offen m.w.T.
03.09.2006 14:06:30
Nepumuk
Hallo Reinhard,
so:
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub tt()
    Dim VBComp As Object, str As String
    For Each VBComp In ThisWorkbook.VBProject.VBComponents
        str = str & VBComp.Name & " = " & CompTypeToName(VBComp) & Chr(13)
        MsgBox VBComp.CodeModule.CountOfDeclarationLines
        MsgBox VBComp.CodeModule.CountOfLines
    Next VBComp
    MsgBox str
End Sub

Function CompTypeToName(VBComp As Object) As String
    Select Case VBComp.Type
        Case 11
            CompTypeToName = "Active X Designer"
        Case 2
            CompTypeToName = "Klassenmodul"
        Case 100
            CompTypeToName = "Dokument"
        Case 3
            CompTypeToName = "MS Form"
        Case 1
            CompTypeToName = "Standardmodul"
        Case Else
    End Select
End Function

Gruß
Nepumuk
Anzeige
AW: nix offen m.w.T.
03.09.2006 14:19:19
Reinhard
Hallo Nepumuk,
danke dir.
Gruß
Reinhard

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige