|A    | B  | C                 | D    | E  | F    | G
   |-------------------------------------------------
 1 |1-0  | 0  | =AnzTipps(1,"-")  | 2-0  | 0  | 3-0  | 0

Public Function AnzTipps(Zeile As Long, _
                        SuchText As String, _
                        Optional Start As Long = 1, _
                        Optional Ende As Long = 99) As Single
    Dim Spalte As Long
    Dim Wert As Double
    Wert = 0
    For Spalte = Start To Ende
        If InStr(1, Cells(Zeile, Spalte), SuchText) > 0 Then
            Wert = Wert + 1
        End If
    Next Spalte
    AnzTipps = Wert
End Function