zeichen zählen
11.07.2003 09:03:19
uwe
auf meine frage nach dem zählen eines zeichens, egal ob mehrmals in einer zelle oder nur einzeln, habt ihr mir diesen code geschickt:
Sub CharCount()
Dim intStep As Integer
Dim strZelle As String
Dim strSuch As String
Dim intFind As Integer
If ActiveCell.Value = "" Then
MsgBox "Leere Zelle"
Exit Sub
End If
intStep = 0
strZelle = ActiveCell.Value
strSuch = InputBox("Suchzeichen eingeben", "Suchzeichen", "x")
If strSuch = "" Then
MsgBox "Leerer Suchbegriff"
Exit Sub
End If
Do Until InStr(1, strZelle, strSuch) = 0
intFind = intFind + 1
If InStr(1, strZelle, strSuch) = 0 Then
Exit Do
End If
strZelle = Right(strZelle, Len(strZelle) - InStr(1, strZelle, strSuch))
Loop
MsgBox intFind & " mal gefunden"
End Sub
da ich eine echte programmier0 bin... wie muß ich den code verändern, wenn ich die anzahl der "x"e im bereich b5:c27 (z.b.) ermitteln will?
uwe