Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Anders (software)

Excel vraag over bedragen halveren

spiderned
6 antwoorden
  • Ik heb een exel formulier met 3 kolommen en 200 rijen.
    In de derde kolom staan onder elkaar bedragen (in euro's).
    Nu wil ik al die bedragen in 1 keer halveren.
    Dus bv.
    10 —-> 5
    22,50 —> 11,25

    enz.

    Ik heb, denk ik, het hele excel programma doorgespit, maar het enige resultaat is een zootje van het formulier. :evil:
    Misschien is het helemaal niet mogelijk en zou ik dus al die bedragen handmatig moeten halveren. :cry:
    Graag dan ook een reactie, dan kan ik alvast beginnen.

    Alvast bedankt.
  • Halveren is hetzelfde als vermenigvuldigen met een half. Rekenkundig is dat dan: x 0,5 of in de spreadsheetnotatie *0,5

    Ik zou dus in de kolom ernaast in de eerste cel de volgende formule plaatsen, waarbij ik er van uitga dat A1 de cel is met de eerste waarde die je wilt halveren: =A1*0,5

    Dan deze formule naar alle cellen eronder kopieren, en de uitkomst zal telkens de helft van het getal in de cel links ervan zijn.

    mvgroet Edmond
  • Edmond, je bent een schat :oops:
    Het scheelt me een hoop tik- en uitrekenwerk.

    Hartstikke bedankt, kan ik weer verder met andere dingen.
    Waarom had ik dit nu niet eerder hier gevraagd?
  • Nou…misschien heb je alle bedragen al handmatig door twee gedeeld….maar met dit kleine macrootje is het zo gepiept:

    [code:1:b82a1ad263]
    Sub KolomDoor2()

    Dim i As Integer

    For i = 1 To 200

    ' Eventueel bij lege waarde stoppen
    ' –> hiervoor moet je de ' op de volgende regel weghalen
    ' If Cells(i, 3) = "" Then Exit For
    Cells(i, 3).Value = Cells(i, 3).Value / 2
    Next i


    End Sub
    [/code:1:b82a1ad263]


    Ruud


    ……oh…scherm veel te lang niet ververst…… :oops:
  • Bedank voor je antwoord, maar ik ben niet zo thuis in excel.
    Dus waar ik die macro moet invoeren/zetten is mij een raadsel.

    Ik hoef niet alles handmatig in te voeren, dankzij het antwoord van Edmond :lol:
  • volgens mij kan het ook zonder een extra kolom in te voegen (of een macro):

    1) typ het getal twee in een lege cel
    2) kies "kopieren"
    3) selecteer de getallen die gedeeld moeten worden
    4) kies bewerken>plakken speciaal en selecteer delen

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.