Thema Datum  Von Nutzer Rating
Antwort
Rot Byte Zaehler erstellen
 15.06.2021 17:20:48 Makro_Starter
NotSolved
15.06.2021 20:44:03 Gast68247
NotSolved
16.06.2021 16:37:43 Der Steuerfuzzi
NotSolved
17.06.2021 11:18:15 Der Steuerfuzzi
*****
Solved

Ansicht des Beitrags:
Von:
Makro_Starter		 Datum:
15.06.2021 17:20:48		 Views:
1132		 Rating:
     
Antwort:
  Ja
Thema:
Byte Zaehler erstellen
?
1
Hallo zusammen,

ich bin dabei einen Byte Zähler zu basteln. Aktuell sieht der Code so aus: 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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. 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Byte Zaehler erstellen
 15.06.2021 17:20:48 Makro_Starter
NotSolved
15.06.2021 20:44:03 Gast68247
NotSolved
16.06.2021 16:37:43 Der Steuerfuzzi
NotSolved
17.06.2021 11:18:15 Der Steuerfuzzi
*****
Solved