5
In einer Textzeile (String) die Anzahl eines vorgekommenen Buchstaben zählen
Hallo!
Ich bin noch neu im Bereich VBA und bin mir deshalb noch etwas unsicher in dieser Programmiersprache.
Würde gerne von euch wissen, wie ich beispielsweise die Anzahl "e" in einer Textzeile zählen kann.
Grüsse Michael
Ich bin noch neu im Bereich VBA und bin mir deshalb noch etwas unsicher in dieser Programmiersprache.
Würde gerne von euch wissen, wie ich beispielsweise die Anzahl "e" in einer Textzeile zählen kann.
Grüsse Michael
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 261541
Url: https://administrator.de/contentid/261541
Ausgedruckt am: 22.11.2024 um 16:11 Uhr
5 Kommentare
Neuester Kommentar
Hallo Michael,
z.B. so
Grüße Uwe
z.B. so
Dim intCount, strText, strBuchstabe,i
intCount = 0
strBuchstabe = "e" ' case sensitive
strText = "Hallo windelterrorist"
For i = 1 To Len(strText)
If Mid(strText,i,1) = strBuchstabe Then
intCount = intCount + 1
End If
Next
MsgBox "Der Buchstabe " & strBuchstabe & " wurde " & intCount & " mal gezählt." 
Danke viel mals für deine Antwort, Uwe.
Das hat soweit eigentlich prima funktioniert. Könnte man auch eine Zeile in eine InputBox eingeben und danach werden die Zeichen des eingegebenen Strings der InputBox gezählt? Wenn ja, wie würde es dann aussehen?
Wenn ich Option Explicit als erste Zeile verwende, dann kommt immer die Meldung: Fehler beim kompilieren, Variabel nicht definiert. Was mache ich falsch?
Habe auch nocheinen Sub übung1() mit End Sub hinzugefügt.
Das hat soweit eigentlich prima funktioniert. Könnte man auch eine Zeile in eine InputBox eingeben und danach werden die Zeichen des eingegebenen Strings der InputBox gezählt? Wenn ja, wie würde es dann aussehen?
Wenn ich Option Explicit als erste Zeile verwende, dann kommt immer die Meldung: Fehler beim kompilieren, Variabel nicht definiert. Was mache ich falsch?
Habe auch nocheinen Sub übung1() mit End Sub hinzugefügt.
Zitat von @windelterrorist:
Das hat soweit eigentlich prima funktioniert. Könnte man auch eine Zeile in eine InputBox eingeben und danach werden die
Zeichen des eingegebenen Strings der InputBox gezählt? Wenn ja, wie würde es dann aussehen?
Klar:Das hat soweit eigentlich prima funktioniert. Könnte man auch eine Zeile in eine InputBox eingeben und danach werden die
Zeichen des eingegebenen Strings der InputBox gezählt? Wenn ja, wie würde es dann aussehen?
Option Explicit
Dim intCount, strText, strBuchstabe, i
strBuchstabe = "e" ' case sensitive
strText = InputBox("Bitte geben Sie Ihren Text ein","Eingabe")
For i = 1 To Len(strText)
If Mid(strText,i,1) = strBuchstabe Then
intCount = intCount + 1
End If
Next
MsgBox "Der Buchstabe " & strBuchstabe & " wurde " & intCount & " mal gezählt." Wenn ich Option Explicit als erste Zeile verwende, dann kommt immer die Meldung: Fehler beim kompilieren, Variabel nicht
definiert. Was mache ich falsch?
das i war nicht deklariert, hatte ich vergessen definiert. Was mache ich falsch?
Option Explicit bedeutet ja das man alle verwendeten Variablen vorher mit DIM deklarieren muss. Ist das nicht der Fall wird ein Fehler ausgeworfen.
Grüße Uwe
Klasse es funktioniert danke viel mals für deine Mühe, Uwe!
Grüsse Michael
Grüsse Michael
Hallo,
nur als Ergänzung eine etwas kürzere Variante:
Gruß
...
nur als Ergänzung eine etwas kürzere Variante:
Option Explicit
Dim strText, strBuchstabe
strBuchstabe = "e" ' case sensitive
strText = InputBox("Bitte geben Sie Ihren Text ein","Eingabe")
intCount = Len(strText) - Len(Replace(strText, strBuchstabe, ""))
MsgBox "Der Buchstabe " & strBuchstabe & " wurde " & intCount & " mal gezählt." Gruß
...
