Public Function AnzahlBuchstaben(ParamArray AlleArgumente() As Variant) As String
Dim Argument As Variant
Dim Zelle As Range
Dim KonkatinierterString As String
Dim Zwischensumme As Long
For Each Argument In AlleArgumente
Select Case TypeName(Argument)
Case "String", "Double"
KonkatinierterString = KonkatinierterString & CStr(Argument)
Case "Range"
For Each Zelle In Argument
KonkatinierterString = KonkatinierterString & CStr(Zelle)
Next Zelle
End Select
Next Argument
Zwischensumme = Len(KonkatinierterString)
KonkatinierterString = LCase(KonkatinierterString)
KonkatinierterString = Replace(KonkatinierterString, "a", "")
KonkatinierterString = Replace(KonkatinierterString, "b", "")
KonkatinierterString = Replace(KonkatinierterString, "c", "")
KonkatinierterString = Replace(KonkatinierterString, "d", "")
KonkatinierterString = Replace(KonkatinierterString, "e", "")
KonkatinierterString = Replace(KonkatinierterString, "f", "")
KonkatinierterString = Replace(KonkatinierterString, "g", "")
KonkatinierterString = Replace(KonkatinierterString, "h", "")
KonkatinierterString = Replace(KonkatinierterString, "i", "")
KonkatinierterString = Replace(KonkatinierterString, "j", "")
KonkatinierterString = Replace(KonkatinierterString, "k", "")
KonkatinierterString = Replace(KonkatinierterString, "l", "")
KonkatinierterString = Replace(KonkatinierterString, "m", "")
KonkatinierterString = Replace(KonkatinierterString, "n", "")
KonkatinierterString = Replace(KonkatinierterString, "o", "")
KonkatinierterString = Replace(KonkatinierterString, "p", "")
KonkatinierterString = Replace(KonkatinierterString, "q", "")
KonkatinierterString = Replace(KonkatinierterString, "r", "")
KonkatinierterString = Replace(KonkatinierterString, "s", "")
KonkatinierterString = Replace(KonkatinierterString, "t", "")
KonkatinierterString = Replace(KonkatinierterString, "u", "")
KonkatinierterString = Replace(KonkatinierterString, "v", "")
KonkatinierterString = Replace(KonkatinierterString, "w", "")
KonkatinierterString = Replace(KonkatinierterString, "x", "")
KonkatinierterString = Replace(KonkatinierterString, "y", "")
KonkatinierterString = Replace(KonkatinierterString, "z", "")
KonkatinierterString = Replace(KonkatinierterString, "ß", "")
KonkatinierterString = Replace(KonkatinierterString, "ä", "")
KonkatinierterString = Replace(KonkatinierterString, "ö", "")
KonkatinierterString = Replace(KonkatinierterString, "ü", "")
AnzahlBuchstaben = Zwischensumme - Len(KonkatinierterString)
End Function
Sub SetFunctionInfos()
Application.MacroOptions Macro:="AnzahlBuchstaben", Description:="Funktion zur Bestimmung der Anzahl von vorkommenden Buchstaben", Category:=9
End Sub