Automatische rij invoegen bij X en formule overnemen

[soundguy]

hallo,

voor een excel zou ik graag willen dat er automatische een rij word ingevoegd op het moment dat er in kolom A een X word gezet.
de rij moet toegeveogd worden onder de rij met de X en de formule uit de bovenliggende rij moet overgenomen worden.

voor het eerste deel heb ik in een oud topic op dit forum het volgende gevonden :

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ExSub

i = Cells(Cells.Rows.Count, "G").End(xlUp).Row

    If Not Intersect(Target, Range("G1:G" & i)) Is Nothing Then
        If Target = "Afspraak" Then
            Target.Offset(1, 0).EntireRow.Insert
            Target.Offset(1, -3).Select
        End If
    End If
    
ExSub:
    Exit Sub

End Sub

echter neemt deze niet de formule over...

weet iemand hoe ik dit moet doen ?

mvg,
soundguy

 

[sylvester-ponte]

neem eens een macro op die een regel invoegt en de regel daarboven copyeerd en er onder plakt enz....

 

[zapatr]

..zou ik graag willen dat er automatische een rij word ingevoegd op het moment dat er in kolom A een X word gezet. De rij moet toegevoegd worden onder de rij met de X en de formule uit de bovenliggende rij moet overgenomen worden.

Vreemde gang van zaken vind ik. Als bv. in A4 een X getypt wordt (in A4 kan dan geen formule staan), moet onder A4 een rij toegevoegd worden en daarin moet dan de formule komen die in A3 staat... (??).