Supportnet / Forum / Tabellenkalkulation
EndlosSchleife, aber warum???
Frage
Hallo Zusammen,
ich habe hinter meinem Sheet folgendes VB laufen:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Zeile, Spalte As Integer
Spalte = 5
For Zeile = 3 To 10
With Worksheets("Rennergebnis")
If .Cells(Zeile, Spalte).Value = .Cells(Zeile, Spalte - 3).Value Then
.Cells(Zeile, Spalte + 1).Value = .Cells(Zeile, Spalte - 2).Value
End If
End With
Next Zeile
End Sub
Excel schmiert ab, weil total überlastet... sobald ich die For-Schleife entferne gehts wieder!
eine Idee?
MfG Sebastian
Antwort 1 von sicci
Hallo Sebastian,
Das Change Ereignis wird bei Wertänderung erneut aufgerufen.
Das kann man verhindern mit:
vor der Anweisung:
Application.EnableEvents=True
nach der Anweisung:
.. =False
Gruß
sicci
Das Change Ereignis wird bei Wertänderung erneut aufgerufen.
Das kann man verhindern mit:
vor der Anweisung:
Application.EnableEvents=True
nach der Anweisung:
.. =False
Gruß
sicci