variabele uit worksheet opnemen in formule in andere worksheet

[eurotax]

een puntcoefficient staat bij basisdata

bij samenstelling van een artikelbestand kan voor een bepaald artikel een puntwaarde gegeven worden.
bij invulling van een puntwaarde zou via VBA de formule

(=F" & rij & "*" & waarde puntcoefficient & ")"

moeten ingeschreven worden in kolom G

de worksheet "Artikel" wordt later apart opgeslagen zodat er geen verwijzingen naar andere sheets mogelijk is. Vanaf die moment is de puntcoefficient vast.

Nu geeft excel telkens een foutmelding. Graag wat hulp.

 

[Superzeeuw]

eurotax,

Probeer onderstaande code maar eens.

Private Sub Worksheet_Change(ByVal Target As Range)
    punt = Sheets("Basis Data").Range("E6").Value
    If Target.Column = 6 And IsNumeric(Target.Value) = True Then
        Cells(Target.Row, 7).FormulaLocal = "= F" & Target.Row & "*" & punt
    End If
End Sub

Waarom zet je trouwens een formule weg op een datablad dat veiligesteld moet worden.
Waarom laat je VBA niet de waarde wegschrijven na berekening.
v.b. in F4 staat 2 zet dan in G4 gewoon (2*0,6177) 1,2354!

Zie onderstaande code:

Private Sub Worksheet_Change(ByVal Target As Range)
    punt = Sheets("Basis Data").Range("E6").Value
    If Target.Column = 6 And IsNumeric(Target.Value) = True Then
        Cells(Target.Row, 7).Value = cells(Target.Row,6).Value * punt
    End If
End Sub

Grtz

 

[snb]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 6 And IsNumeric(Target.Value) Then Target.Offset(, 1) = Sheets("Basis Data").Range("E6").Value * Target.Value
End Sub

 

[eurotax]

Hallo Superzeeuw en snb,

bedankt voor de antwoorden.
Het eerste antwoord ga ik gebruiken.

De reden waarom de formule mee overgenomen moet worden is omdat ik vertrek van een groot artikelbestand.
Daaruit worden enkel die artikels weerhouden die in een werf voorkomen.
Deze werfnota wordt apart opgeslagen maar moet achteraf nog aanpasbaar zijn door anderen. Aangezien ze niet zo bedreven zijn in excel zet ik de formules voor hen er al standaard in zodat zij enkel de aantallen moeten aanpassen.

nogmaals bedankt.