Worksheet_Change
sile1234
ich muss verschiedene Zellbereiche auf Änderungen überwachen und wenn in den Bereichen Änderungen vorgenommen werden 2 anderen Zellen löschen. Komischerweise reagiert das Worksheet_Change nur wenn ich "entf" auf meiner Tastatur drücke während ich in den "beobachteten" Zellbereichen bin. Aber wenn ich einfach einen anderen Text dort reinschreiben, dann passiert nichts.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Kontrollbereich
Kontrollbereich = Array("$G$29:$K$29", "$O$29:$S$29", "$G$32:$K$32", "$O$32:$S$32")
For i = 0 To UBound(Kontrollbereich)
If Target.Address = Kontrollbereich(i) Then
Application.Workbooks("Test.xls").Worksheets("Test").Cells(35, 7).Value = ""
Application.Workbooks("Test.xls").Worksheets("Test").Cells(35, 15).Value = ""
Else
End If
Next
End Sub
Hat jemand von Euch eine Idee warum es nur auf "entf" reagiert?Viele Dank und Gruß
Sile1234