Worksheet: change

'Private Sub Worksheet_Change(ByVal Target As Range)
'If Cells(r, 6) = Target Then
'Cells(r, 8).Select: cells(r, 9) = 17
'End If
eine Dateneingabe in einem Excelblatt unterstützt werden.
Während der Ausführung des Sub werden auch Werte in Zellen des
Excelblattes geschrieben (z.B. cells(3,6)=17).
Dabei kommt es jedoch zum Neustart des Sub, da es sich ja um eine Dateneingabe=Change handelt. Dadurch entsteht eine Endlosschleife, die nur mit ESC/Abbruch der VBA-Ausführung beendet werden kann. Wie kann man das unterdrücken?
Grüsse aus Berlin von
Peter