Thema Datum  Von Nutzer Rating
Antwort
12.07.2021 16:25:51 Alex
NotSolved
12.07.2021 16:51:05 Gast51832
*****
NotSolved
12.07.2021 17:04:14 Gast85492
NotSolved
12.07.2021 17:31:39 Gast24794
NotSolved
12.07.2021 18:15:17 Gast98805
NotSolved
12.07.2021 18:22:09 Gast50778
NotSolved
13.07.2021 17:44:54 Gast62614
NotSolved
18.07.2021 13:00:13 Alexander
NotSolved
Rot kleiner Tipp:
12.07.2021 19:31:56 Gast68241
NotSolved
13.07.2021 17:46:23 Gast47332
NotSolved
16.07.2021 15:12:42 Gast25698
NotSolved
16.07.2021 16:46:40 Gast66256
NotSolved

Ansicht des Beitrags:
Von:
Gast68241
Datum:
12.07.2021 19:31:56
Views:
190
Rating: Antwort:
  Ja
Thema:
kleiner Tipp:

kleiner Tipp:

    For i = 1 To Len(Expression)
      Select Case Mid$(Expression, i, 1)
        Case "a" To "z", "A" To "Z"
          ANZAHLBUCHSTABEN = ANZAHLBUCHSTABEN + 1
      End Select
    Next

es ginge auch so:

    For i = 1 To Len(Expression)
      Select Case LCase$(Mid$(Expression, i, 1))
        Case "a" To "z"
          ANZAHLBUCHSTABEN = ANZAHLBUCHSTABEN + 1
      End Select
    Next

... oder man setzt im Modul zu Beginn Option Compare Text dann spielt Groß/Klein auch keine Rolle mehr beim Vergleichen (gilt allerdings für das gesamte Modul).

 

Grüße


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
12.07.2021 16:25:51 Alex
NotSolved
12.07.2021 16:51:05 Gast51832
*****
NotSolved
12.07.2021 17:04:14 Gast85492
NotSolved
12.07.2021 17:31:39 Gast24794
NotSolved
12.07.2021 18:15:17 Gast98805
NotSolved
12.07.2021 18:22:09 Gast50778
NotSolved
13.07.2021 17:44:54 Gast62614
NotSolved
18.07.2021 13:00:13 Alexander
NotSolved
Rot kleiner Tipp:
12.07.2021 19:31:56 Gast68241
NotSolved
13.07.2021 17:46:23 Gast47332
NotSolved
16.07.2021 15:12:42 Gast25698
NotSolved
16.07.2021 16:46:40 Gast66256
NotSolved