Option Explicit
 
Private Sub AnzahlSuchen()
Dim wb As Workbook
Dim ws As Worksheet
Dim rng As Range
Dim c As Range
Dim SearchValue As String
Dim i As Long
 
Set wb = ThisWorkbook
Set ws = wb.Sheets("Tabelle1")
 
SearchValue = "100"
 
Set rng = ws.Range("E:E")
 
For Each c In rng.Cells
 
If c.Value = SearchValue Then
i = i + 1
End If
 
Next
 
MsgBox ("Der Wert wurde " & i & " mal gefunden!")
 
Set ws = Nothing
Set wb = Nothing
 
End Sub

EALA FREYA FRESENA