Macro beschleunigen

Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
For lng = 3 To 33
For lng1 = 3 To 4385
For c = 2 To 49 Step 4
If Sheets("Dienstplan").Cells(lng1, 108) > Sheets("Dienstplan").Range("AT33") Then Exit For
If Sheets("Dienstplan").Cells(lng, c) = Sheets("Dienstplan").Cells(lng1, 108) Then
Sheets("Dienstplan").Cells(lng, c + 1) = Sheets("Dienstplan").Cells(lng1, 109)
End If
Next c
Next lng1
Next lng
Application.ScreenUpdating = True
End Sub