CODE-SCHNIPSEL

Option Explicit
' ****************************************************************
' Autor/en und Original-Quelltext unter:
' https://www.online-vba.de/vba_anzahlzeichen.php
' Verwendung der Quelltexte auf eigene Gefahr!
' Es gelten die Nutzungsbedingungen von https://www.online-vba.de
' ****************************************************************

Public Function ANZAHLZEICHEN(ByVal Bereich As Range) As Long
  Dim i As Long
  Dim oCell As Object
    
    i = 0
    For Each oCell In Bereich.Cells
        i = i + Len(CStr(oCell))
    Next oCell
    
    ANZAHLZEICHEN = i
    
End Function