Bestimmte Einträge Zählen

Private Sub Zaehlen_Click()
Dim Zelle As Range
Dim lZeile As Long
Dim BisZeile As Long
Dim Zaehler1 As Integer
Dim Zaehler2 As Integer
Dim Zaehler3 As Integer
Dim Zaehler4 As Integer
Dim Zaehler5 As Integer
Dim Zaehler6 As Integer
Dim Zaehler7 As Integer
Dim Display3 As Integer
Dim Display4 As Integer
Zaehler1 = 0: Zaehler2 = 0: Zaehler3 = 0: Zaehler4 = 0: Zaehler5 = 0
Zaehler6 = 0: Zaehler7 = 0
Display3 = 0: Display4 = 0
lZeile = 0
BisZeile = Range("B65526").End(xlUp).Row
For Each Zelle In Range(Cells(1, 2), Cells(BisZeile, 2))
lZeile = lZeile + 1
If Zelle = "Start of session" Then
Zaehler1 = Zaehler1 + 1
End If
If Zelle = "Searches in category energy" Then
Zaehler2 = Zaehler2 + Cells(lZeile, 3).Value
End If
If Zelle = "Searches in category general" Then
Zaehler3 = Zaehler3 + Cells(lZeile, 3).Value
End If
If Zelle = "Displaying a no of documents" Then
Display3 = Display3 + Cells(lZeile, 3).Value
End If  'Bringt nur die Gesamtsumme
If Zelle = "Searches in category mathe" Then
Zaehler4 = Zaehler4 + Cells(lZeile, 3).Value
End If
If Zelle = "Searches in category physics" Then
Zaehler5 = Zaehler5 + Cells(lZeile, 3).Value
End If
If Zelle = "Searches in category chem_analytical" Then
Zaehler6 = Zaehler6 + Cells(lZeile, 3).Value
End If
If Zelle = "Searches in category chem_engine" Then
Zaehler7 = Zaehler7 + Cells(lZeile, 3).Value
End If
Next Zelle
MsgBox "Sessions/login: " & Zaehler1 & vbCrLf _
& "searches energy: " & Zaehler2 & vbCrLf _
& "searches general: " & Zaehler3 & vbCrLf _
& "display general: " & Display3 & vbCrLf _
& "searches mathe: " & Zaehler4 & vbCrLf _
& "searches physics: " & Zaehler5 & vbCrLf _
& "searches chem_analytical: " & Zaehler6 & vbCrLf _
& "searches chem_engine: " & Zaehler7 & vbCrLf
End Sub