Hallöchen,
leider sehe ich hier keine kleinen codes mehr. Hier mal mein Ansatz, falls ich es richtig verstanden habe:
und der Funktionscode:
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
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)