Schleife läuft extrem lange
11.11.2020 19:08:01
Mani
ich habe in meinem Code drei Schleifen eingebaut jede Schleife läuft über ca 5000 Zeilen
Erste:
LetzteZeile = Cells(Rows.Count, 1).End(xlUp).Row
a = 1
i = a
Ende = LetzteZeile
Zusatz = Right(Cells(a, 1).Value, 11)
Do
If Right(Cells(i + 1, 1).Value, 11) Zusatz Then
Rows(i + 1).Insert
a = i + 2
Zusatz = Right(Cells(a, 1).Value, 11)
i = i + 1
Ende = Ende + 1
End If
i = i + 1
Loop Until i = Ende
Zweite und Dritte:
Set rngBereich = Range("I1:I" & LetzteZeile)
For Each rngCell In rngBereich
With rngCell
.NumberFormat = "General"
If IsDate(.Text) Then
.Value = DateValue(.Text)
End If
End With
Next
Set rngBereich = Range("M1:M" & LetzteZeile)
For Each rngCell In rngBereich
With rngCell
.NumberFormat = "General"
If IsDate(.Text) Then
.Value = DateValue(.Text)
End If
End With
Next
Es funktioniert alles einwandfrei und beim ersten Testen lief auch alles relativ zugig ab.
Nur jetzt beim dritten oder vierten ausführen dauert das ganze eine Ewigkeit.
Meine CPU zu schießt hoch auf 100 % .
Und wenn ich abreche und gucke wie weit es gelaufen ist , ist nicht wirklich viel zu sehen.
Hat einer von euch eine Idee woran das liegen kann?
Kann ich es vielleicht anders umsetzen das es schneller geht und die CPU nicht so überlastet?
Habe ich Grundsätzlich was verkehrt gemacht ?
Bildschirm Aktualisierungen und sowas habe ich schon ausgestellt.
Würde mich über jede Hilfe freuen.
Viel Grüße
der Manni