Private Sub CommandButton3_Click()
Dim f As Object
Dim wert, spalte, zeile As Integer
Range("D74:BDH77").ClearContents
For Each c In Range("D5:BDH59").Cells
spalte = c.Column
wert = c.Value
If wert <> "" Then
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 Worksheets("Analyse").Cells(zeile, spalte).Value = Worksheets("Analyse").Cells(zeile, spalte).Value + 1
End If
Next
End Sub