Hallo Dieter,
was passiert wenn du die anweisungen, die "Active.Cell" enthalten einfach mit
"Target" austauscht ?
If Not Intersect(Target, Range("B2:C11")) Is Nothing Then
PersDatVon = Year(Cells(Target.Row, 2)) & "." & Month(Cells(Target.Row, 2))
....
...
Vielleicht kannst du zuerst die betroffenen Zellen in Variable auslesen und dann die ganzen
Änderungen vornehmen.
Ein weiterer Gedanke wäre, "Application.EnableEvents" einzusetzen.
Probiers mal aus, wenns nicht klappt nochmals melden.
Viele Grüße
Herby