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

Makro überprüft die Anzahl aller Zeichen

Makro überprüft die Anzahl aller Zeichen
22.06.2005 23:32:54
stefan
Hi,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro überprüft die Anzahl aller Zeichen
22.06.2005 23:51:01
Fred
Hi,
Option Explicit

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

mfg Fred
AW: Makro überprüft die Anzahl aller Zeichen
23.06.2005 09:30:51
stefan
Hi Fred,
prima, das ist ja genau das was ich brauche !
Funktioniert suuuuuuuuper ! Danke Dir...
Gruss Stefan
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige