ist es möglich die Anzahl aller Zeichen innerhalb eines
Excel-VBA-Projektes per Makro zu zählen ?
Beispiel:
Sub test()
Range("B1").Select
End Sub
Das sind genau 39 Zeichen incl. der Leerzeichen.
Gruss Stefan
Sub test()
Range("B1").Select
End Sub
Sub Zeilen_und_Zeichen()
Dim objVB As Object, l As Long, z As Long
If ActiveWorkbook.VBProject Is Nothing Then
MsgBox "Kein Projekt aktiviert! ", 64, "weise hin..."
Exit Sub
End If
For Each objVB In ActiveWorkbook.VBProject.VBComponents
With objVB.CodeModule
For l = 1 To .CountOfLines
z = z + Len(.Lines(l, 1))
Next
End With
Next
MsgBox l - 1 & " Zeilen" & Chr(10) & z & " Zeichen"
End Sub