Individuelle Formel: ANZAHLZEICHEN
Ausgangslage - Was tut dieser Code-Schnipsel?
Folgend finden Sie eine VBA Funktion, mit deren Hilfe Sie die Anzahl der Zeichen aus einem gewünschten Bereich ermitteln können. Dazu kopieren Sie den folgenden Quellcode bitte in ein eigenes Modul.
Der Quelltext
Option Explicit
' Original-Quelltext unter: https://www.online-vba.de/individuelle-formel-anzahlzeichen
' Express-Hilfe für VBA unter https://www.online-vba.de/vba-expresshilfe
' Es gelten die Nutzungsbedingungen von 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
Anmerkungen und Hinweise
Dieser Codeschnipsel wurde geschrieben von Marc Wershoven im Jahr 2013.
Die Nutzung erfolgt auf eigene Gefahr.
Bitte denken Sie immer zuerst an eine ausreichende Datensicherung.
Wir können keinen kostenlosen Support anbieten.
Es gelten unsere Nutzungsbedingungen.
