VBA t.b.v. een macro voor gebruik in Excel

[SLB]

Hallo,
Ik wil voor gebruik in Excel een macro maken die er voor zorgt dat ik vanuit de actieve cel 2 kolommen naar links spring, vervolgens de waarde van deze cel kopieert, dan teruggaat naar de oorspronkelijke positie en hierin de gekopieerde waarde plakt. Hierna wil vanuit de actieve cel 1 rij naar beneden.

Kan iemand mij hier de VBA voor geven?

Jullie zouden me enorm helpen.
Bedankt en groeten
Michel

 

[AD1957]

Voor alle cellen met dubbelklik in de betreffende cel.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With ActiveCell
    .Value = .Offset(, -2)
    Application.Goto .Offset(1)
    Cancel = True
End With

Plaats anders even een voorbeeldbestandje.

 

[xps351]

Zo'n macro kan je zelf eenvoudig maken door handelingen die beschrijft op te nemen.
Zie https://support.microsoft.com/nl-nl...n reeks,en selecteer vervolgens Macro opnemen.

 

[HSV]

With ActiveCell

Waarvoor zal toch

ByVal Target As Range

zijn.

 

[SLB]

Aan AD1957: ik heb geprobeerd de code in te brengen in een nieuwe macro in Excel, maar het lukte me niet. Ik heb een voorbeeldbestandje bijgesloten en daarin genoteerd wat ik graag zou willen. Bedankt

 

[HSV]

Als ik zo vrij mag zijn.
Er ontbreekt iets aan de code van AD.
Onderaan de code hoort nog :

End Sub

 

[edmoor]

@SLB:
En een .xlsx document bevat geen VBA code.

 

[AD1957]

Zo ?
Je moet trouwens 3 posities naar links.(samengevoegde cellen kolom K en L)

 

[SLB]

Hallo Albert, wat betreft de 3 posities... Right you are
En de macro werkt ook!! Hoe krijg ik die in mijn originele werkblad?

 

[AD1957]

Kopiëren en plakken in het betreffende werkblad van originele bestand.
Met Alt+F11 open je de VBA-editor.
Bestand daarna opslaan als .xlsm of xlsb document

 

[SLB]

Hallo, ik heb binnen code de range nog aangepast en nu werkt het prima!!
Enorm bedank!!