Vba - Excel - Länge ermitteln als Funktion

An diesen Beispiel wird erklärt wie man die Länge eines Textes mit einer kleinen Funktion ermittelt.

Mehr über Funktionen gibt's hier.

Vba Code:

Sub LaengeErmitteln()
    ' Deklariert die Variable tText als String(Text)
    Dim tText As String
    
    ' Zelle A1 wird ausgewählt
    Range("A1").Select
    ' Der Inhalt der Aktieven Zelle (A1) wir der Variable tText zugewiesen
    tText = ActiveCell.Value
    
    'Ausgabe
    MsgBox (nLaenge(tText))
    
End Sub


Funktion Code:

Public Function nLaenge(ByVal tText As String) As Integer
    ' Len(Ausdruck) gibt die Länge als Zahl zurück.
    ' In diesen Beispiel die Länge von der Variable tText.
    ' Das Ergebniss wird der Funktion nLaenge zugewiesen.
  nLaenge = Len(tText)
End Function