ich brauch eure Hilfe. Habe in der Recherche gesucht aber nichts gefunden.
Ich habe eine For each Schleife und möchte das bei jedem 100zten Durchlauf etwas passiert.
Stelle mir das in etwa so vor. Bitte nicht lachen!
Sub reinigen()
For Each cell In Range(Cells(14, 21), Cells(3000, 164))
If x / 100 = ganze Zahl Then
ProgressBar1.Value = i
i = i + 1
End If
If cell.Value = Search Then
cell.Value = ""
End If
x = x + 1
Next cell
End Sub
Wie setze ich das um? Falls jemand eine Idee oder einen Ansatz hat würde ich mich freuen.
Vielen Dank für Eure Hilfe.
mfg
Louis