Dim rngLogFehlermeldungen As Excel.Range
Dim rngLogFehlermeldung As Excel.Range
Dim rngKatFehlermeldungen As Excel.Range
Dim rngKatFehlermeldung As Excel.Range
Dim rngKatMatch As Excel.Range
Set rngLogFehlermeldungen = Worksheets("Tabelle1").UsedRange.Columns(1)
Set rngKatFehlermeldungen = Worksheets("Tabelle2").UsedRange.Columns(1)
For Each rngLogFehlermeldung In rngLogFehlermeldungen.Cells
For Each rngKatFehlermeldung In rngKatFehlermeldungen.Cells
If rngLogFehlermeldung.Text Like rngKatFehlermeldung.Text Then
Set rngKatMatch = rngKatFehlermeldung
Exit For
End If
Next
If Not rngKatMatch Is Nothing Then
With rngKatMatch(ColumnIndex:="D")
.Value = .Value + 1
End With
Set rngKatMatch = Nothing
End If
Next