Pagina 1 van 1

inhoud van de actieve cel copiëren

BerichtGeplaatst: za feb 13, 2010 5:36 pm
door dogbert176
Veronderstel:

Je hebt in kolom C rijen 1 tot 10 een reeks getallen staan.
Ik wil dat, als ik door deze rij loop met de cursor, de inhoud van de cel die geselecteerd is, automatisch naar cel A1 gecopiëerd wordt.

Dus in cel A1 is altijd de inhoud te zien van de cel, die op het werkblad geselecteerd is.

In excel had ik daar een macro voor, maar die werkt niet in Calc:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
rij = ActiveCell.Row
ARTnr = Cells(rij, 1).Value
If (ActiveCell.Row > 50) Then
Application.EnableEvents = False
Range("a1").Value = Selection.Value
Application.EnableEvents = True
End If
End Sub


Ik vraag me of dit niet met een formule op te lossen is.

mvg,
Dogbert

Re: inhoud van de actieve cel copiëren

BerichtGeplaatst: za feb 13, 2010 9:40 pm
door Johan
U bedoeld zoiets zoals op rekenblad 1 in de bijlage, maar dan zonder knop? 8-)

Re: inhoud van de actieve cel copiëren

BerichtGeplaatst: zo feb 14, 2010 12:54 am
door dogbert176
ja, idd
mooi script trouwens, bedankt ;)

met het script uit m'n eerste posting in excel echter, kun je zonder knop te duwen een volledige reeks getallen doorlopen, waarbij het getal telkens in cel A1 wordt gecopieëerd.

Best handig.

mvg,
dogbert