Office: (Office 2016) VBA Excel UserForm

Hi@all, ich würde gerne die Summe aller Kleinbuchstaben (Groß- und Kleinbuchstaben) angezeigt bekommen aber die Summe der Ascii werte. (Bsp.: a=97 Dec + b=98 Dec = 195)
hoffe meine frage ist irgendwie verständlich. :)
Danke schon mal im voraus.
Das Ergebnis soll in einem Beschriftungsfeld angezeigt werden.
LG

 

Moin!
Verrätst Du uns auch, was der (mit Verlaub!) Blödsinn soll?
Was ist mit den Umlauten ä, ö, ü?
Was mit dem Sonderzeichen ß?

Code:

Sub Langeweile()
Const MeinText = "Heute gab es Rhabarberkuchen mit Kamelle-Überzug!"
Dim i&, Summe_klein&
For i = 1 To Len(MeinText)
  Select Case Asc(Mid(MeinText, i, 1))
    Case 97 To 122
      Summe_klein = Summe_klein + Asc(Mid(MeinText, i, 1))
  End Select
Next
Debug.Print Summe_klein
End Sub

Ergibt 4019

Gruß Ralf

 

Danke für deine Antwort, ahm in VBA frage ich mich jedes mal was der Blödsinn soll :D
Leider bekomme ich solche aufgaben und wir fangen nicht am Anfang mit VBA an sondern in der Mitte weil wir keine Zeit haben und ich blick da einfach nicht durch bzw. komm da einfach nicht rein. Und lt. Antwort auf mein letztes Thema hieß es, es gibt keine Nachhilfe in VBA-Excel.
Danke nochmal für deine Hilfe.
Und umlaute wie ä usw. sofern sie klein geschrieben sind sollten sie auch gezählt werden.
LG Mario

 

Hallo,

eine kostenlose Einführung in Excel-VBA gibt es in folgendem YouTube-Video. Einen kostenlosen Fortsetzungskurs kannst du am Ende dieses Videos anklicken.
https://www.youtube.com/watch?v=zLaIBlTBM_g

Das folgende Makro, das ich von RPP63 ergänzt habe, damit auch die ä,ö,ü,ß mitgezählt werden, kannst du ja dann übungshalber im Anschluss an den ersten YouTube-Einführungskurs zum Starten des ersten Makros verwenden.

Code:

Option Explicit

Sub Langeweile()
   Dim i&, Summe_klein&
   Dim MeinText As String
   
   MeinText = "Heute gab es Rhabarberkuchen mit Kamelle-Überzug!"
   For i = 1 To Len(MeinText)
     Select Case Asc(Mid(MeinText, i, 1))
       Case 97 To 122, Asc("ä"), Asc("ö"), Asc("ü"), Asc("ß")
         Summe_klein = Summe_klein + Asc(Mid(MeinText, i, 1))
     End Select
   Next
   With ActiveSheet
      .Range("A1").Value = MeinText
      .Range("A2").Value = "Summe Kleinbuchstaben:"
      .Range("C2") = Summe_klein
   End With
End Sub

Das Makro gibt daraufhin im aktiven Arbeitsblatt in Zelle A1 den Text aus, dessen Kleinbuchstabensumme ermittelt werden soll.
In A2 steht ein Info-Text und in C2 wird schließen die Summe aller Kleinbuchstuben des Textes aus A1 angezeigt.

 

Ich Danke euch vielmals.
habe jetzt einen eigenen code um die summe des ascii zu berechnen.
Müssen zur Zeit einen Lottozahlen Generator schreiben mit eigener abfrage in einer Userform aber das ist ein anderes Thema.
Danke nochmal und einen schönen Tag wünsche ich.

Lg Mario

 

Lottozahlengenerator

Off topic:
Einen Lottozahlengenerator schafft ein aktuelles Excel (Aboversion oder Excel-Online) mit einer einzigen Zellformel!
Hier für 6 aus 49

=SORTIEREN(INDEX(SORTIERENNACH(SEQUENZ(49);ZUFALLSMATRIX(49));SEQUENZ(6)))

[parsehtml]<table border='1' cellspacing='0' cellpadding='2' valign='middle' colspan='2' style='font-family:Calibri; color:#000000; border-collapse:collapse; background-color:#FFFFFF; font-size:14px; font-weight:normal; font-style:normal; '><colgroup><col width='28pt'><col width='15,75pt'></colgroup><tr style='background-color:#cacaca'><td>&nbsp;</td><td align='middle'>A</td></tr><tr><td style='background-color:#cacaca' align='middle'>1</td><td align='right' >8</td></tr><tr><td style='background-color:#cacaca' align='middle'>2</td><td align='right' >9</td></tr><tr><td style='background-color:#cacaca' align='middle'>3</td><td align='right' >14</td></tr><tr><td style='background-color:#cacaca' align='middle'>4</td><td align='right' >27</td></tr><tr><td style='background-color:#cacaca' align='middle'>5</td><td align='right' >29</td></tr><tr><td style='background-color:#cacaca' align='middle'>6</td><td align='right' style='border-bottom-left-radius: 0px;border-bottom-right-radius: 0px;' >33</td></tr></table>[/parsehtml][parsehtml]<table border='1' cellspacing='0' cellpadding='2' valign='middle' colspan='2' style='table-layout:auto; color:#000000; background-color:#FFFFFF; border-collapse:collapse; font-family:Calibri; font-size:14px;'><colgroup><col width='40pt'><col></colgroup><tr style='background-color:#eeaaaa'><td>Zelle</td><td>Formel</td></tr><tr><td style='border-bottom-left-radius: 0px;'>A1</td><td style='border-bottom-right-radius: 0px;'><Span style='color:#222222'>=SORTIEREN</Span><Span style='color:#0000DD'>(INDEX</Span><Span style='color:#222222'>(SORTIERENNACH</Span><Span style='color:#0000DD'>(SEQUENZ</Span><Span style='color:#222222'>(49)</Span><Span style='color:#0000DD'>;ZUFALLSMATRIX</Span><Span style='color:#222222'>(49)</Span><Span style='color:#0000DD'>)</Span><Span style='color:#222222'>;SEQUENZ</Span><Span style='color:#0000DD'>(6)</Span><Span style='color:#222222'>)</Span><Span style='color:#0000DD'>)</Span><Span style='color:#222222'></Span></td></tr></table>[/parsehtml]
Gruß Ralf