Array kopieren u. Werte in anderes Array einsetzen
11.02.2007 19:49:27
Lorenz
Problem: lt untenstehenden CODE sollte aus den 3 Bereichen die Formel aus Zeile 111 in TargetZeile der Wert übertragen werden. Das tuts aber nicht!Leider!
Dim StatArr As Variant, RngArr As Variant
StatArr = Array(Range(Cells(111, 57), Cells(111, 104)), Range(Cells(111, 153), Cells(111, 168)), Range(Cells(111, 200), Cells(111, 231))).FormulaR1C1
RngArr = Array(Range(Cells(Target.Row, 57), Cells(Target.Row, 104)), Range(Cells(Target.Row, 153), Cells(Target.Row, 168)), Range(Cells(Target.Row, 200), Cells(Target.Row, 231)))
With RngArr
.Calculate
.Value = .Value
End With
Wie gehört der CODE geändert, daß dies geschieht?
Danke im Voraus
Lorenz