De ene cel of de ander cel invullen

[ArjanVijverberg]

Ik wil licht kunnen invoeren in 2 verschillende eenheden. Namelijk Mol en Joule. Als ik het in mollen invoer wil ik de waarde zien in Joule in de invoercel en andersom. Als dus een waarde in de ene cel invoer moet in de andere een formule komen en ook andersom.

Volgens mij heb ik dit in het verleden wel eens gemaakt in VBA, maar ik weet niet meer hoe?

 

[AlexCEL]

Je kunt met formules niet EN een formule hebben in een cel EN een waarde invoeren. Het is het een of het ander.

Anders wordt het VBA.

 

[OctaFish]

Dat zal je inderdaad met VBA moeten oplossen, want je kunt niet in de ene cel iets invoeren óf een formule hebben. Je overschrijft altijd de andere inhoud.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$9" Then
        Cells(9, 6).Value = Target.Value * 0.01889
    ElseIf Target.Address = "$F$9" Then
        Cells(9, 3).Value = Target.Value / 0.01889
    End If
End Sub

Krijg je een beetje een idee hoe je het kan aanpakken .

 

[LucHeyndrickx]

Zoals AlexCel al aangaf kan je géén formule én een waarde in dezelfde cel zetten.
Indien het enkel om een simpele berekening gaat, zou ik aanraden om gewoon 4 cellen te gebruiken.
Maar indien je met deze cellen verder gaat rekenen is het misschien toch aangewezen om VBA te gebruiken. Het zou natuurlijk prettig zijn mocht je zelf hier de formule kunnen plaatsen hoe die berekening er uit ziet. Anders moeten wij dat hier zelf gaan uitzoeken, wat toch ook niet de bedoeling kan zijn

 

[ArjanVijverberg]

Bedankt!

Met de VBA code is het gefixt