Ich habe den folgenden Code und er macht genau das, wofür ich ihn brauche, aber die Schleife dauert viel zu lange (3 Minuten +). Ich bin neu in VBA, daher bin ich mir nicht ganz sicher 1) was die beste Alternative ist 2) wie man die richtige Syntax für diese Alternative verwendet und meinen Code fehlerfrei ausführen lässt. Vielen Dank!

Dim i As Integer
For i = 2 To 13000

If Sheets("Sheet1").Range(Cells(i, 3), Cells(i, 3)) = "Police" 
    And Sheets("Sheet1").Range(Cells(i, 14), Cells(i, 14)) = "Bi-wkly Uniform Pay" Then _
Sheets("Sheet1").Range(Cells(i, 3), Cells(i, 3)) = "Police - Uniform"

Next i