Bei Eingabe Formel
17.02.2003 17:20:01
Jens
wer kann mir auf die Sprünge helfen. Ich will bei Eingabe in Spalte 3 Formeln in Spalte 8 und 10 und bei Eingabe in Spalte 4 sollen die Formeln ebenfalls in Spalte 8 und 10 eingefügt werden. Der nachfolgende Code erfüllt zum Teil schon die Aufgaben zum einfügen der Formel in Spalte 8.
Wie bekomme ich nur die Formeln in die 10. Spalte, egal ob Eingabe in 3. oder 4. Spalte. Wer hat noch einen Tip wie ich eine Eingabe in Spalte 3 oder 4 zulassen kann?
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, 5).FormulaArray = "=C" & iRow & "*(Product(if((E" & iRow & ":G" & iRow & ">0),E" & iRow & ":G" & iRow & ")))"
Application.CutCopyMode = False
ERRORHANDLER:
Application.EnableEvents = True
Rows(iRow + 1).Insert
End Sub
Danke im voraus Jens