Indsæt Automatisk

Der er mig bekendt ikke nogen indbyggede muligheder. En makro ville blive endnu mere tung at arbejde med.

Hvad mener du med "går helt amok hvis man udskriver" ?

Bare at der kommer 1171 sider ;-O
Ikke at jeg har prøvet....

Denne kode i arkets modul indsætter en formel i E-kolonnen, når der tastes i en af kolonnerne A, B, C eller D:


Private Sub Worksheet_Change(ByVal Target As Range)
    If Not IsEmpty(Intersect(Target, Range("a:d"))) Then
        a = ActiveCell.Row
        Range("E" & a).Formula = "=C" & a & "*" & "D" & a
    End If
End Sub

Hej jkrons
det virker somom at er en mindre fejl for der kommer også formler i andre celler i E-kolonnen og der ud over syntes jeg også at arket arbejder meget langsomt med denne code ( der går lang tid fra jeg har tastet til det kommer på skærmen.

jeg har ændret denne del: (Target, Range("c:d")))
så det jeg arbejder med ser sådanne ud:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not IsEmpty(Intersect(Target, Range("c:d"))) Then
        a = ActiveCell.Row
        Range("E" & a).Formula = "=C" & a & "*" & "D" & a
    End If
End Sub

Jkrons
jeg hade helt glemt den her men du kan lige smide et svar

Her et et svar :-). Den kører fint hos mig, og ikke specielt langsomt :-)