VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Vorkommen eine Zeichens in einem Bereich ermitteln

Gruppe

UDF

Bereich

Zeichenfolge

Thema

Vorkommen eine Zeichens in einem Bereich ermitteln

Problem

Wie kann ich ermitteln, wie oft ein bestimmtes Zeichen oder auch eine Zeichenfolge in einem bestimmten Bereich vorkommt?

Lösung

Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.




StandardModule: basMain

Function CharCount( _
   rng As Range, _
   sChr As String, _
   bln As Boolean)
   Dim rngAct As Range
   Dim iCounter As Integer, iChr As Integer
   For Each rngAct In rng.Cells
      If InStr(rngAct.Value, sChr) Then
         If bln = False Then
            iCounter = iCounter + 1
         Else
            For iChr = 1 To Len(rngAct.Value)
               If Mid(rngAct.Value, iChr, Len(sChr)) = sChr Then
                  iCounter = iCounter + 1
               End If
            Next iChr
         End If
      End If
   Next rngAct
   CharCount = iCounter
End Function

    


Beiträge aus dem Excel-Forum zu den Themen UDF und Zeichenfolge