Hur gör jag om jag har en text med bokstäver och siffror och vill räkna ut hur många bokstäver och hur många siffror den innehåller?

Hej
Så här kan du göra

Option Explicit
Dim testStr As String ' innhåller bokstäver och siffror

Private Sub Command1_Click()
Dim i As Long, tecken As Long, numb As Long, char As Long
testStr = "öflkjlöftdöäå937823475634890cxkvbkxfk8506"
For i = 1 To Len(testStr)
tecken = Asc(Mid$(testStr, i, 1))
Select Case tecken
Case 48 To 57 'Ascii nr för siffror
numb = numb + 1
Case Else
char = char + 1
End Select
Next ' i
MsgBox Str(numb) & " siffror" & vbCrLf & _
Str(char) & " bokstäver"
End Sub

mvh
Sven

danke!