VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Vorkommen von Werten mit Texten eintragen

Gruppe

Funktion

Bereich

ZÄHLENWENN

Thema

Vorkommen von Werten mit Texten eintragen

Problem

In Zelle H1 werden die Vorkommen der einzelnen Kurzbegriffe aus Spalte H gezählt und mit zugehörigem Text genannt.

Lösung

Nur anhand der zugehörigen Beispielarbeitsmappe darstellbar.




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 Funktion und ZÄHLENWENN