Sub kontrolle()
Dim suche
Dim i As Integer
Dim f As Object
For Each c In Range("D5:BI59").Cells
spalte = c.Column
wert = c.Value
zeile = 0
With Worksheets("Analyse").Range("d100:d354")
Set f = .Find(wert, LookIn:=xlValues)
If Not f Is Nothing Then zeile = 74
End With
With Worksheets("Analyse").Range("e100:e354")
Set f = .Find(wert, LookIn:=xlValues)
If Not f Is Nothing Then zeile = 75
End With
With Worksheets("Analyse").Range("f100:f354")
Set f = .Find(wert, LookIn:=xlValues)
If Not f Is Nothing Then zeile = 76
End With
With Worksheets("Analyse").Range("g100:g354")
Set f = .Find(wert, LookIn:=xlValues)
If Not f Is Nothing Then zeile = 77
End With
If zeile > 0 Then Cells(spalte, zeile).Value = Cells(spalte, zeile).Value + 1
Next
End Sub