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

Programmeren

Excel; lege cellen vullen met waarde bovenstaande cel

E. Cle
3 antwoorden
  • Ik lees een grote hoeveelheid gegevens in Excel in vanuit een .txt-bestand. Dat levert helaas een groot aantal lege cellen op omdat bij rijen over hetzelfde onderwerp alleen de eerste rij de naam van het onderwerp bevat.
    Ik ben dus op zoek naar een manier (in een macro?) om een lege cel automatisch te vullen met de eerste de beste waarde die, omhoog zoekende, te vinden is in dezelfde kolom.

    Wie heeft een goed idee?

    Moonie
  • Moonie,

    Onderstaande sub zou het moeten doen.
    Selecteer de cellen en laat de routine het werk doen.
    Als je een hele kolom selecteert, kan het een paar seconden duren voor de hele kolom gedaan is. Ik kon niet vinden hoe je de laatste rij en kolom uit een selectie kan vinden. Maar misschien helpt iemand daarbij.
    Ik heb de sub getest met Excel-97 SR2. Het zal ook wel met hogere versies werken.

    [code:1:e05a84aa4c]Sub VulWaardenAan()
    Dim SelectieStartRij As Integer
    Dim BladLaatsteRij As Integer
    Dim c As Variant
    Dim WaardeHogereCel As Variant

    SelectieStartRij = Selection.Cells(1, 1).Row
    BladLaatsteRij = Cells.SpecialCells(xlCellTypeLastCell).Row
    For Each c In Selection
    If c.Row <= BladLaatsteRij Then
    If c.Row > SelectieStartRij Then
    If c.Value = "" Then c.Value = WaardeHogereCel
    End If
    WaardeHogereCel = c.Value
    End If
    Next c

    End Sub[/code:1:e05a84aa4c]
    Met vriendelijke groet,

    Maarten.
  • Thanks Maarten, ziet er niet eens zo ingewikkeld uit.
    Om de laatste rij te ontdekken kan ik de macro misschien laten kijken of er in de kolom ernaast iets staat. Zo niet, dan is de laatste rij net geweest…

    Moonie

Beantwoord deze vraag

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