Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 4 van 4

Onderwerp: Waarde vervangen in 3 kolommen met waarde uit andere kolom

  1. #1
    Junior Member
    Geregistreerd
    15 oktober 2021
    Vraag is niet opgelost

    Waarde vervangen in 3 kolommen met waarde uit andere kolom

    Hallo iedereen,

    Ik ben gisteren een paar uur bezig geweest om het volgende voor mekaar te krijgen (ik ben een enorme leek als het gaat om excel).

    In kolom A staat een ID, kolom B,C,D (relatie kolommen) hebben een waardes die vervangen moeten worden. Elke Rij heeft een eigen ID met bijbehorende waarde. Voorbeeld:

    A= ID 20. Kolom B heeft waarde: 100. Kolom C heeft waarde: 200. Kolom D heeft waarde: 300. Kolom F heeft een waarde die in een van de 3 kolommen (b,c,d) voor kan komen en Kolom G is de waarde die in Kolom F moet gaan vervangen.

    Nu wil ik dus in de 3 relatie kolommen zoeken naar een waarde die in kolom F staat en deze vervangen door waarde in Kolom G.

    Ik denk dat het zo duidelijk is en ik hoop dat iemand mij kan helpen.

    Mvg en dank!

  2. #2
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    9 september 2000
    Locatie
    Zuid-Holland
    Plaats een voorbeeld documentje.
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  3. #3
    Junior Member
    Geregistreerd
    15 oktober 2021
    Yes komt ie!
    Bijgevoegde bestanden Bijgevoegde bestanden

  4. #4
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Dat kan alleen met een macro of misschien met Power Query.

    1 van de mogelijkheden:

    Code:
    Sub VenA()
      ar = Cells(1).CurrentRegion
      ar1 = Cells(1, 6).CurrentRegion
      For j = 2 To UBound(ar1)
        For jj = 2 To UBound(ar)
          For jjj = 2 To UBound(ar, 2)
            If ar(jj, jjj) = ar1(j, 1) Then ar(jj, jjj) = ar1(j, 2)
          Next jjj
        Next jj
      Next j
      Cells(1, 10).Resize(UBound(ar), UBound(ar, 2)) = ar
    End Sub
    Bijgevoegde bestanden Bijgevoegde bestanden
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren