• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Opbouw berekende waarde Excel formule

  • Onderwerp starter Onderwerp starter NVV
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

NVV

Gebruiker
Lid geworden
5 mrt 2021
Berichten
6
Goedemiddag,

Voor mijn werk ben ik bezig om in een Excel bestand berekeningen te maken. De uitkomst van deze berekeningen is afhankelijk van enkele keuzes die gemaakt worden door de eindgebruiker van het bestand.
De eind som is het totaal van meerdere berekeningen. Nu zou ik graag de opbouw van de eind som zichtbaar laten zijn zonder dat ik hier cellen voor gebruik (dus iets soortgelijks als een notitie/opmerkingenveld zoals deze bij een cel kan worden ingevoegd). Weet iemand of dit mogelijk is? En zo ja, hoe?

Indien er iets onduidelijk is hoor ik dat ook graag!
 
In de bijlage heb ik even een zeer versimpelde versie gemaakt. ivm vertrouwelijkheid van gegevens kan ik het echte document helaas niet delen
 

Bijlagen

Beste Emields,

Allereerst dank voor uw reactie!

Helaas is dat niet helemaal wat ik bedoel. wellicht daat het nu duidelijker is
 

Bijlagen

verkeerd begrepen is verkeerd geantwoord.
Dit zal waarschijnlijk beter zijn.
de code staat achter blad 1
 

Bijlagen

Beste Emields,


Dit is inderdaad wat ik bedoel. Nu zou ik ook nog graag willen dat de bedragen in het opmerkingen veld veranderen bij een andere keuze (dus zeg model D ipv model A). Weet u of dat mogelijk is?
 
Waarschijnlijk niet goed gekeken naar het bestand van @emields.

Stukje korter en anders.



Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [d3]) Is Nothing Then
 x = [d4] * 0.1
 y = ([d4] + [d5]) * 0.0405
 Z = [d4] * 0.054
[d9].NoteText "voordeel" & vbLf & "subsidie       :" & x & vbLf & "Kia netto     :" & y & vbLf & "Mia netto    :" & Z
End If
End Sub

En dan zou het ook nog wel op een regeltje kunnen.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [d3]) Is Nothing Then [d9].NoteText "voordeel" & vbLf & "subsidie       :" & [d4] * 0.1 & vbLf & "Kia netto     :" & ([d4] + [d5]) * 0.0405 & vbLf & "Mia netto    :" & [d4] * 0.054
End Sub

Ps. En haal die lege regel uit die validatielijst!
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan