Sub Anzahl_Fuenfen()
 Dim rngBereich As Range
 Dim rngZelle As Range
 Dim Fuenfer As Long
 Dim varZeichen As Variant
 Dim intI As Integer
   For Each rngBereich In Selection.Areas
      For Each rngZelle In rngBereich
         For intI = 1 To Len(rngZelle.Value)
         varZeichen = Mid(rngZelle.Value, intI, 1)
            If varZeichen = 5 Then
               Fuenfer = Fuenfer + 1
            End If
         Next intI
      Next rngZelle
   Next rngBereich
 MsgBox Fuenfer
End Sub