In einem Ereignismakro möchte ich dem Bereich2 den Range("EndDat") zuweisen. EndDat ist ein Bereich in der Spalte A des Tabellenblattes, in dem das Ereignismakro hinterlegt ist. Wenn nun innerhalb dieses Bereichs eine Zeile gelöscht wird, sollte eine Formel im ganzen Bereich eingesetzt werden.
Im Moment passiert gar nichts, wenn ich eine Zeile lösche. Sieht jemand das Problem?
Danke für eine Rückmeldung.
Peter
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich2 As Range
Set Bereich2 = Range("EndDat") '.Address
If Intersect(Target, Bereich2) Is Nothing Then
Debug.Print "JA"
'=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 If
End Sub