VBA-Blog Der VBA und Excel Blog von Tobias Schmid

Eine kleine Funktion um die Häufigkeit eines bestimmten Zeichens in einem Text zu bestimmen:

Private Function AnzahlZeichen(ByVal Text As String, ByVal SuchText As String) As Integer
    AnzahlZeichen = Len(Text) - Len(Replace(Text, SuchText, ""))
End Function

Sub Test()
    Debug.Print AnzahlZeichen("Visual Basic", "a")
End Sub




 Average: 
 
Select ratingCancel ratingPoorOkayGoodGreatAwesome
 
Your rating: Keine