Numbers (excel) cellen automatisch gelijk maken

[michaelvd1993]

Ik gebruik Number op mijn Mac, maar aangezien dat met Excel overeenkomt hoop ik hier goed te zitten.

Mijn vraag:

Ik probeer meerdere cellen aan elkaar te koppelen. Laten we zeggen A1, C5 en F8.

Nu kan ik in C5 en F8 de formule =A1 neerzetten waardoor ze dezelfde waarde krijgen als A1.

Nu wil ik ervoor zorgen dat als ik C5 verander, dat A1 en F8 veranderen.

Als ik dan in A1 de formule =C5 zet dan krijg ik een fout melding dat de formule naar dezelfde cel wijst.

Er moet dus een andere manier komen.


Samen gevat; alle drie de cellen moeten automatisch gelijk zijn, welke cel ik ook aanpas.

Hoe krijg ik dit voor elkaar?

 

[HSV]

Met onderstaande in moduleblad moet het lukken.
Maar je weet het nooit op een Mac.

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("A1,C5,F8")) Is Nothing Then
   Application.EnableEvents = False
     Range("a1,C5,F8") = Target
   Application.EnableEvents = True
 End If
End Sub

 

[michaelvd1993]

Is er niet een simpele formule voor? Aangezien t niet om 1 of 2 keer gaat, maar misschien wel 30 keer.

Wat ga ik hiermee doen?
Dit is wat ik te zien krijg:


Met onderstaande in moduleblad moet het lukken.
Maar je weet het nooit op een Mac.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1,C5,F8")) Is Nothing Then
Application.EnableEvents = False
Range("a1,C5,F8") = Target
Application.EnableEvents = True
End If
End Sub

 

[michaelvd1993]

Is er niet een simpele formule voor? Aangezien t niet om 1 of 2 keer gaat, maar misschien wel 30 keer.

Wat ga ik hiermee doen?
Dit is wat ik te zien krijg:


Met onderstaande in moduleblad moet het lukken.
Maar je weet het nooit op een Mac.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1,C5,F8")) Is Nothing Then
Application.EnableEvents = False
Range("a1,C5,F8") = Target
Application.EnableEvents = True
End If
End Sub

 

[HSV]

Helaas gaat dat niet met formules.
Je kan niet in een cel schrijven die ook een resultaat moet krijgen.

Druk Alt+F11.
Aan de linkerzijde van het nieuwe scherm (VBEditor) dubbelklik je op Blad1.
De code plak je in het grote witte vlak.
Sluit het venster en je keert terug naar je werkblad.
Vul nu in één van de cellen die in de code staan iets in.
Dus de cellen A1, C5 of F8.

 

[leofact]

Excel en Numbers zijn beide spreadsheets. Ze zijn echter niet zomaar vergelijkbaar. Als je Numbers gebruikt zal de geboden oplossing niet werken, want Numbers kent geen VBA. Helaas weet ik geen oplossing die wel werkt. Mogelijk kun je door anders inrichten van de input en de gewenste output je spreadsheet zo opbouwen dat je de gewenste resultaten krijgt.
Mvg Leo

 

[HSV]

Bedankt Leo,

Ik wist niet eens van het bestaan af van 'Numbers'.
Dan heb ik helaas ook geen oplossing.

 

[leofact]

Dat komt hier normaal gesproken ook niet voorbij. Even afwachten maar of ik het wel goed begrepen heb en het inderdaad om Numbers gaat.

 

[Leotaxi]

gebruik van een hulp 4 de cel een overweging ?

mvg
Leo