Excel VBA strip string into another cell

[ad_1]

I´m trying to create an Excelsheet that runs multiple VBA scripts after writing anything in A Column.

One part I would like some help with is that the character 2,3 and 4 written in A column (any row) should be written i D column same row.
I also would like to remove any information i D Column if I remove the text from A Column.

I have manage to create a script that calls modules after writing information i a cell in A Column

Private Sub Worksheet_Change(ByVal Target As Range)
 If Intersect(Target, Me.Range("A:A")) Is Nothing Then Exit Sub
 Application.EnableEvents = False 'to prevent endless loop
 On Error GoTo Finalize 'to re-enable the events
 Call Modul1.Module
Finalize:
 Application.EnableEvents = True
End Sub

Any help would be much appriciated.

[ad_2]

لینک منبع