Thema Datum  Von Nutzer Rating
Antwort
29.12.2015 18:24:12 eddie1108
Solved
Blau Anzahl Großbuchstaben aus Text
 29.12.2015 20:38:32 Gast44108
Solved
29.12.2015 21:59:11 Gast11113
Solved

Ansicht des Beitrags:
Von:
Gast44108		 Datum:
29.12.2015 20:38:32		 Views:
946		 Rating:
     
Antwort:
 Nein
Thema:
Anzahl Großbuchstaben aus Text

das wäre eine Möglichkeit.

Function grossbuchstaben(quelle As String)
Dim text As String
Dim text2 As String
Dim anzahl As Long
Dim i As Long

text = quelle
text2 = UCase(text)
anzahl = 0
For i = 1 To Len(text)
    If Mid(text, i, 1) = Mid(text2, i, 1) Then anzahl = anzahl + 1
Next i

MsgBox "Es gab " & anzahl & " Großbuchstaben!"

End Function

 

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:



  • 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
29.12.2015 18:24:12 eddie1108
Solved
Blau Anzahl Großbuchstaben aus Text
 29.12.2015 20:38:32 Gast44108
Solved
29.12.2015 21:59:11 Gast11113
Solved