Hallo zusammen,
ich bin dabei einen Byte Zähler zu basteln. Aktuell sieht der Code so aus:
Sub ByteZaehler()
Const strSonderzeichen As String = "öäüÖÄÜ"
Laenge = Len(ActiveCell)
For i = 1 To Laenge
Z = Mid(ActiveCell, i, 1)
If Mid(ActiveCell, i, 1) Like "ö" Then
Byte_Zaehler = Byte_Zaehler + 2
ElseIf Mid(ActiveCell, i, 1) Like "ü" Then
Byte_Zaehler = Byte_Zaehler + 2
Else
Byte_Zaehler = Byte_Zaehler + 1
End If
Next i
ActiveCell.Offset(-1, 0) = Byte_Zaehler
End Sub
Gibt es einen besseren Weg über eine Variable Dim Sonderzeichen = "öäüß()" zu bauen? Leider weiß ich nicht so ganz wie ich das Makro umbauen soll. Hat jemand eine Idee?
Besten Dank vorab.
|