Office: (Office 2016) Zeichen zählen

DTT · 16. November 2020

Hallo,

ich wollte fragen, ob es die Möglichkeit gibt, bestimmte Zeichen von einer Zeichenkette zu zählen.

Als Bsp
nanaKRKRKRKRKRnanaKRKRKRKRKRnanaKRKRKRKRKRnanaKRKRKRKRKRnanaKR

Wie viele "K" und "a" da drin sind mit einer Abfrage.
Ich hab bis jetzt nur
Gesamt02: Länge([Gesamt])/2

:)

Maxel · 18. November 2020

Prinzip:
Code:

Option Compare Binary
Option Explicit

Function CountChars(strText As String, _
strChar As String) As Long
Dim varTemp As Variant
varTemp = Split(strText, strChar)
CountChars = UBound(varTemp)

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

neue Spalte in der Abfrage:
Code:

intAnzahlZeichen: CountChars(DeinText, "K")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

TSchenke · 18. November 2020

Hallo,
eine weitere Möglichkeit (im Direktfenster getestet):
Code:

?Len("nanaKRKRKRKRKRnanaKRKRKRKRKRnanaKRKRKRKRKRnanaKRKRKRKRKRnanaKR")-Len(Replace("nanaKRKRKRKRKRnanaKRKRKRKRKRnanaKRKRKRKRKRnanaKRKRKRKRKRnanaKR","a",""))
10
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß, Thomas

TSchenke · 18. November 2020

Oder als Funktion:
Code:

Public Function ZeichenZaehlen(Zeichensatz As String, Zeichen As String) As Long

ZeichenZaehlen = Len(Zeichensatz) - Len(Replace(Zeichensatz, Zeichen, ""))

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Im Direktfenster:
Code:

?ZeichenZaehlen("nanaKRKRKRKRKRnanaKRKRKRKRKRnanaKRKRKRKRKRnanaKRKRKRKRKRnanaKR","K")
21
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Thomas

Maxel · 18. November 2020

\@Thomas
Beachte allerdings den Replace-Parameter zum Binär-Vergleich.

knobbi38 · 18. November 2020

Hallo,

oder die schnelle klassische ANSI Variante:
Code:

Public Function CountChars2( _
ByVal StringValue As String, _
ByVal SearchCharcter As String) As Long
Dim b() As Byte
Dim c As Byte
Dim i As Long

b = StrConv(StringValue, vbFromUnicode)
c = Asc(SearchCharcter)

For i = 0 To UBound(b)
If b(i) = c Then
CountChars2 = CountChars2 + 1
End If
Next
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Ulrich

TSchenke · 18. November 2020

Hallo,
der Vorteil der Lösungen von Maxel und mir ist, dass man nach Belieben Groß-/Kleinschreibung beachten kann oder nicht und auch eine Folge von mehreren Zeichen zählen kann, im Beispiel des TS (ob den das wohl noch interessiert?) etwa den String "na".
Gruß Thomas

Maxel · 7. Januar 2021

von TSchenke

TS (ob den das wohl noch interessiert?)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Zumindest hat er stillschweigend einen Erledigt-Haken gesetzt...

DTT · 18. November 2020

\@Maxel , @TSchenke und @knobbi38 danke für eure schnellen Antworten und Möglichkeiten mein Problem zu lösen. Ich werde Sie alle bei mir ausprobieren und je nach dem, was für mich am besten passt benutzen. Vielen Dank nochmal

Mfg

Office: (Office 2016) Zeichen zählen

Zeichen zählen

Zeichen zählen

Zeichen zählen

Zeichen zählen

Zeichen zählen - Similar Threads - Zeichen zählen

Zählen von Zeichen in Zelle

Makro: Zeichen in Zelle zählen

Zählen von Zeichen in Zellen

Zählen von Zeichen in Zellen mit Excel für Mac

Zahl vor Zeichen ermitteln

Excel Formel: Zahlen zwischen Zeichen von Rechts ausschneiden

Lange Zahlen als Text (E+ Fehler beim Ersetzen von Zeichen)