2 x Worksheet_Change in der gleichen Tabelle

Sub funktionierte, bis ich versuchte einen 2. zu integrieren. Anscheinend verträgt es nicht  _
gleichzeitig zwei (zumindest auf diese Art). Ich möchte jedoch einen Code auslösen, wenn im Bereich C8:C1000 eine Änderung geschieht und zusätzlich, wenn im Range "EndDat" eine Änderung geschieht.
Ob ich dann die Formel auf diese Art eintragen kann, ist wohl fraglich, doch ich kann es noch  _
nicht probieren, wegen dem erst genannten Problem.
Danke für ein Feedback.
Peter


Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Range(Cells(8, 3), Cells(1000, 3))
If Not Intersect(Target, Bereich) Is Nothing Then Exit Sub
Application.StatusBar = Prüfung(Range(Cells(8, 3), Cells(1000, 3)), 1)  ‘User definierte  _
Funktion
End Sub




Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Range("EndDat").Address
If Not Intersect(Target, Bereich) Is Nothing Then Exit Sub
'=WENN(ODER(MONAT(G9)>MONAT(G8);JAHR(G8)>JAHR(G9));G9;"")  'entspricht der Formel in A9
Range("EndDat") = "=IF(OR(MONTH(R[-1]C[6])>MONTH(RC[6]),YEAR(R[-1]C[6])>YEAR(RC[6])),RC[6],"""") _
End Sub