Willkommen

Pivottabelle

Spezialfilter

Formeln

Zellformate

Bedingte Formate

Gültigkeit

Programmierung

UDF - Funktionen

Tipps & Tricks

Webabfrage

Fehlersuche

Farbindex

Shortcuts

Limitationen

Downloads

Links

Kontakt

Disclaimer

Impressum

Zählenwenn Text
Benutzerdefinierte Funktion
 
Die Standardfunktion "Zählenwenn" findet einen Text innerhalb einer Zelle nur 1x. Deshalb hier eine benutzerdefinierte Funktion, welche jedes Auftreten des Suchbegriffs innerhalb einer Zelle zählt. Die Worte sind jeweils durch ein Leerzeichen getrennt.
Bei einem String wie - abcTextdefText - wird das Wort Text 1x gefunden.
In diesem Beispiel soll das Wort "Text" gesucht werden.
 
Zählfunktionen
 ABCD
1Dieser Text dient als Beispiel Standard-Formel: 1 Treffer pro Zelle3
2Wie oft steht das Wort Text in diesem Text Nur exakte Treffer:4
3Häufig kommt ein Text innerhalb eines Textes mehrfach vor Auch Kombinationen5
Formeln der Tabelle
D1 : =ZÄHLENWENN(A1:A3;"*text*")
D2 : =zählenwenntext(A1:A3;"text")
D3 : =zählenwenntext(A1:A3;"*text*")
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
 
Damit diese Formel genutzt werden kann, muss dieser Code in ein allgemeines Modul.
 
Public Function Zählenwenntext(ByVal Bereich As Range, ByVal Suchbegriff As String) As Long
Dim SPL
Dim intI As Integer
Dim Zelle As Range
 
For Each Zelle In Bereich
SPL = Split(Zelle, " ")
  For intI = 0 To UBound(SPL)
   If UCase(SPL(intI)) Like UCase(Suchbegriff) Then
    Zählenwenntext = Zählenwenntext + 1
   End If
  Next
Next
 
End Function