Thema Datum  Von Nutzer Rating
Antwort
04.11.2012 15:55:52 vba experte^100
NotSolved
Blau Anzahl von string in string
 05.11.2012 13:01:52 Dekor
NotSolved

Ansicht des Beitrags:
Von:
Dekor		 Datum:
05.11.2012 13:01:52		 Views:
908		 Rating:
     
Antwort:
  Ja
Thema:
Anzahl von string in string

Hallo Experte,

mein Vorschlag...

Sub Buchstaben_zaehlen()
   Dim Text As String
   Dim Buchstabe As String
   Dim n As Integer
   Dim z As Integer

   Text = InputBox("Bitte geben Sie einen Text ein.")
   Buchstabe = InputBox("Bitte geben Sie einen Buchstaben ein, der gesucht werden soll.")
   
   ' Prüfen ob ein Buchstabe eingegeben wurde
   If len(Buchstabe) = 1 Then
      ' Prüfen ob nicht doch eine Zahl eingegeben wurde
      If Not IsNumeric(Buchstabe) Then
         ' Schleife bis Textende
         For n = 0 To Len(Text)
            ' ist an dieser Position der Buchstabe zu finden
            If Mid(Text, n, 1) = Buchstabe Then
               ' Dann Zähler um eins erhöhen
               z = z + 1
            End If
         Next
         ' Ergebnis anzeigen!
         msgbox "Anzahl von '" & Buchstabe & "' : " & z
      End If 
   End If

End Sub

 

 

Gruß Detlev

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
04.11.2012 15:55:52 vba experte^100
NotSolved
Blau Anzahl von string in string
 05.11.2012 13:01:52 Dekor
NotSolved