offset ersetzen

Forumthread: offset ersetzen
1 Beitrag zu diesem Forumthread
Anzeige

Forumthread: offset ersetzen

offset ersetzen

09.02.2003 18:01:22

Jens

Hallo zusammen, ich hatte heute morgen schon im Forum ein Problem zur Lösung gestellt und mir wurde sehr gut geholfen. Nun hänge ich nochmal bei einem Problem. Im nachfolgendem Code wird bei Eingabe in Spalte 3 oder 4 eine Formel in Spalte 8 und 9 geschrieben. Nun meine Frage: Wie kann ich den Offset-Befehl durch einen Befehl ergänzen so das die Spalten 8 und 9 mit den Formeln gefüllt werden?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow As Integer
iRow = ActiveCell.Row
If Target.Column <> 3 And _
Target.Column <> 4 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
Target.offset(0,8).FormulaArray = "=C" & iRow & "*(Product(if((E" & iRow & ":G" & iRow & ">0),E" & iRow & ":G" & iRow & ")))"
Target.offset(0,9).FormulaArray = "=D" & iRow & "*(Product(if((E" & iRow & ":G" & iRow & ">0),E" & iRow & ":G" & iRow & ")))"
Application.CutCopyMode = False
ERRORHANDLER:
Application.EnableEvents = True

End Sub