ich habe eine Change routine auf einem Arbeitsblatt, mit der ich wieder Zellen verändere!
Jetzt will ich bei dieser Änderung aber nicht das die Change routine wieder startet.
Wie kann ich das umgehen?
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = False
For c = 11 To 53 Step 3
If Cells(c, 4).Value = "" And Cells(c, 5).Value = "" Then
Else
If Cells(c, 52).Value <> Cells(c, 4).Value Or Cells(c, 5).Value <> Cells(c, 53).Value Then
For i = 1 To 45 Step 1
Cells(c, i).Select
If ActiveCell.Interior.ColorIndex = 1 Then
'MsgBox ("Bitte Sicherheit einbauen")
adresse = Cells(c, i).Address
Call Modul1.Sicherheitsroutine
End If
Next i
Cells(c, 52).Value = Cells(c, 4).Value
'hier springt die Routine wieder nach oben da change!
Cells(c, 53).Value = Cells(c, 5).Value
End If
End If
Next c
End Sub