Private Function ZeichenAnzahl(sString As String, Zeichen As String) As Long
    Dim x, Anzahl As Long
 
    If sString <> "" And Zeichen <> "" Then
        For x = 1 To Len(sString)
            If UCase(Mid(sString, x, 1)) = UCase(Zeichen) Then
                Anzahl = Anzahl + 1
            End If
        Next x
    End If
 
    ZeichenAnzahl = Anzahl
End Function

Cu

AndyBrandi


http://www.againsttcpa.com