Attribute VB_Name = "modKaraktersTellen" Option Explicit ' ______________________________________________________________________________ ' | | ' | Wim Gielis | ' | http://www.wimgielis.be | ' | Custom functions to count a cell's number of letters, digits and signs | ' | 12/04/07 | ' |______________________________________________________________________________| Function letters(rng As Range) As Integer Dim i As Integer, karakter, txt As String txt = rng.Text letters = 0 For i = 1 To Len(txt) karakter = Mid(txt, i, 1) If Asc(karakter) > 64 And Asc(karakter) < 91 Then letters = letters + 1 If Asc(karakter) > 96 And Asc(karakter) < 123 Then letters = letters + 1 Next End Function Function cijfers(rng As Range) As Integer Dim i As Integer, karakter, txt As String txt = rng.Text cijfers = 0 For i = 1 To Len(txt) karakter = Mid(txt, i, 1) If IsNumeric(karakter) Then cijfers = cijfers + 1 Next End Function Function leestekens(rng As Range) As Integer Dim i As Integer, karakter, txt As String txt = rng.Text leestekens = 0 For i = 1 To Len(txt) karakter = Mid(txt, i, 1) Select Case karakter Case ".", ",", ":", ";", "?", "!" leestekens = leestekens + 1 End Select Next End Function