Zeichen zählen ohne Leerzeichen und ausgeben

[schauan]

Hallöchen,

leider sehe ich hier keine kleinen codes mehr. Hier mal mein Ansatz, falls ich es richtig verstanden habe:

Arbeitsblatt mit dem Namen 'Tabelle1'
	B	C
1	ABC	198

Zelle	Formel
C1	=sumBytes(B1)

Diese Tabelle wurde mit Tab2Html (v2.5.0) erstellt. ©Gerd alias Bamberg

und der Funktionscode:

Code:

Function sumBytes(rngZelle As Range) As Double
Dim bBy() As Byte
bBy = StrConv(rngZelle, vbFromUnicode)
sumBytes = Application.Sum(bBy)
End Function