Kleiner Nachtrag:
Soll ja in Zielspalte "C", dannn eine keine Korrektur:
Cells(iZeile, rCell.Column - 3).FormulaLocal = .......
VG KH