es ist war nicht ganz so wie ich es haben wollte, aber damit kann ich gut leben:
Sub ZeichenProZelleZählen()
Dim i As Integer
i = Len(ActiveCell.Value)
MsgBox i
End Sub
An Rainer: weil Du meine mail nicht gelesen hast, was ja auch verständlich ist, das Makro von Dir klappte auch, dafür nochmal danke und auch an alle anderen für Ihre Hilfe.
Rob