inhoud van de actieve cel copiëren
Geplaatst: za feb 13, 2010 5:36 pm
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
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