wissel telkens invoer- en uitvoercel

[PietC]

Stel:
A1 bevat een waarde (bijvoorbeeld het getal 20.000)
A2 bevat een percentage (bijvoorbeeld 30%)
A3 toont de uitkomst van A1 maal A2, hier dus 6.000. SImpel.
maar:
Ik wil nu graag zelf in A3 (de uitkomstcel) een getal invoeren, om direct daarna het bijbehorende percentage in A2 te zien. Voer ik 8.000 in A3 in, moet er dus 40% in A2 te zien zijn. Vervolgens kan ik bijvoorbeeld een ander percentage in A2 invoeren, en A3 vertoont weer een uitkomst. Invoer- en uitvoercel wisselen dus van functie, naar gelang je in de ene of in de andere cel iets invoert. Ik hoop dat dit duidelijk is...
Uiteraard snap ik, dat een eventuele formule in A3 (=A1*A2) direct overschreven wordt als er invoer in die cel plaatsvindt. Het zal dus wel anders moeten, maar hoe? Wie weet er wat op?

 

[Wigi]

Hallo

Zoals je zelf al had gedacht, dit kan niet.

Als ik van jou was, zou ik mezelf het leven niet moeilijk maken, en 3 verschillende situaties voorzien.

Een blokje om A1 in te vullen, 1 om A2 te doen, 1 om A3 te doen.

Het kan "fancier" maar dan moet je gaan programmeren in VBA.

Wigi

 

[PietC]

Bedankt voor de vlotte reactie!
Er zijn inderdaad eenvoudiger methoden, maar toch blijft het vraagstukje me plagen... Mocht ik het op een andere wijze (wat je zegt: VBA ) voor mekaar krijgen, dan post ik dat hier weer.

 

[Wigi]

Met een Worksheet_Change event in VBA is daar niet veel moeilijks aan

Zie andere topics in dit forum waar dat ook al werd gebruikt.

Wigi

 

[Gert Bouwmeeste]

Voorbeeldbestand

Voorbeeldcode:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim InvoerA2 As Long
Dim InvoerB2 As Long
Dim InvoerC2 As Long


If Target.Address = "$B$2" Then
    InvoerA2 = Range("A2").Value
    InvoerB2 = Range("B2").Value
    Range("C2").Value = CLng((InvoerA2 * InvoerB2) / 100)
End If

If Target.Address = "$C$2" Then
    InvoerA2 = Range("A2").Value
    InvoerC2 = Range("C2").Value
    Range("B2").Value = CLng((InvoerC2 / InvoerA2) * 100)
End If

End Sub