ich würde gern wissen wieviel Zeichen verträgt ein vba Code,
gibt es eine Begrenzung oder ist es egal.
mfg
Harald
Private Sub anzahlCodeZeilen()
Dim oVB As Object, s1 As String, s2 As String, s3 As String, _
n1 As Long, n2 As Long
s1 = ""
n1 = 0
For Each oVB In Application.VBE.ActiveVBProject.VBComponents
n2 = oVB.codemodule.countoflines
s2 = VBA.Right(" " & VBA.Format(n2, "#,##0"), 7)
s3 = "Name: " & oVB.Name & vbTab & vbTab & "Zeilen: " & s2
Debug.Print s3
n1 = n1 + n2
Next
s1 = "Gesamtzahl der Zeilen: " & VBA.Format(n1, "#,##0")
MsgBox s1
End Sub
Gruß von Luschi
aus klein-Paris
PS: Verweis auf "Microsoft Visual Basic for Applications Extensibility 5.3" muß gesetzt werden
Im Direktbereich des Vba-Editors (Strg+G) findest Du eine Einzelauflistung.