Hoe rijen automatisch te nummeren als de aangrenzende cel niet leeg is in Excel?

In Excel is het gebruik van de vulgreep om handmatig een reeks getallen te maken een gebruikelijke manier om serienummers of indexen voor lijsten te genereren. Echter, vaak zijn er situaties waarin je alleen rijen wilt nummeren als een specifieke aangrenzende cel gegevens bevat. Bijvoorbeeld, je wilt misschien automatisch rijnummers genereren in een lijst, maar nummering overslaan waar de aangrenzende gegevenscellen leeg zijn. Bovendien verwacht je mogelijk dat deze nummers direct worden bijgewerkt wanneer gegevens worden ingevoerd of verwijderd — zodat er altijd een actuele volgorde wordt weergegeven zonder handmatige tussenkomst.

Rijen automatisch nummeren als de aangrenzende cel niet leeg is met behulp van een formule

Rijen automatisch nummeren als de aangrenzende cel niet leeg is met behulp van VBA-code

Rijen automatisch nummeren als de aangrenzende cel niet leeg is met behulp van een formule

Een efficiënte manier om dynamische rijnummering te bereiken op basis van waarden in aangrenzende cellen is door een Excel-formule te gebruiken. Met deze aanpak worden rijnummers alleen weergegeven wanneer de aangrenzende cel een waarde bevat. Wanneer je gegevens toevoegt of verwijdert in deze cellen, wordt de nummering automatisch bijgewerkt. Hier is een praktische methode die je kunt gebruiken:

1. Selecteer de cel waar je wilt dat de nummering begint (bijvoorbeeld A2 als je gegevens beginnen in B2). Voer de volgende formule in:

=IF(B2<>"",COUNTA($B$2:B2),"")

2. Sleep vervolgens de vulgreep naar beneden langs je gegevens om deze formule op andere rijen toe te passen. De nummering wordt automatisch aangepast en toont alleen nummers voor rijen waar gegevens aanwezig zijn in kolom B.

Als je problemen ervaart waarbij de nummers niet zoals verwacht worden bijgewerkt, controleer dan of de formule naar alle relevante rijen is gekopieerd, en dat er geen samengevoegde cellen of data-validaties zijn die interfereren met je bereik. Onthoud dat formules afhankelijk zijn van nauwkeurige verwijzingen en verstoord kunnen worden door structurele wijzigingen in het werkblad.

Rijen automatisch nummeren als de aangrenzende cel niet leeg is met behulp van VBA-code

Voor meer gevorderde gebruikers, of in gevallen waarin je liever geen formules door je hele werkblad wilt toepassen — of wanneer je nummering moet worden bijgewerkt na het plakken van gegevens, blokken verwijderen of frequent wijzigen — biedt een VBA-macro een aantrekkelijk alternatief. Met VBA kun je kolomnummers automatisch bijwerken telkens wanneer een aangrenzende cel wordt bewerkt, zonder de noodzaak van formules. Dit is ideaal voor invoerformulieren, importlogboeken of takenlijsten met frequente indelingwijzigingen.

1. Druk op Alt + F11 om het Visual Basic for Applications-editorvenster te openen. Zoek in de Projectverkenner je werkmap, dubbelklik vervolgens op het relevante werkblad (bijvoorbeeld “Sheet1”) onder “Microsoft Excel Objects”.

2. Plak in het codevenster dat verschijnt de volgende code. Dit voorbeeld gaat ervan uit dat je rijen in kolom A wilt nummeren op basis van of kolom B niet leeg is; je kunt de verwijzingen aanpassen voor je specifieke bereik indien nodig:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim chk As Range
    Set chk = Intersect(Target, Me.Columns("B"))
    If chk Is Nothing Then Exit Sub
    
    Application.EnableEvents = False
    Call RenumberNonBlank(Me, "B", "A", 2)
    Application.EnableEvents = True
End Sub
Sub RenumberNonBlank(ws As Worksheet, _
                    keyCol As String, _
                    numCol As String, _
                    firstDataRow As Long)
    Dim lastRow As Long
    Dim r As Long
    Dim seq As Long
    lastRow = ws.Cells(ws.Rows.Count, keyCol).End(xlUp).Row
    seq = 1
    For r = firstDataRow To lastRow
        With ws
            If Trim(.Cells(r, keyCol).Value) <> "" Then
                .Cells(r, numCol).Value = seq
                seq = seq + 1
            Else
                .Cells(r, numCol).ClearContents
            End If
        End With
    Next r
End Sub

3. Sla op en sluit de VBA-editor. Nu zal kolom A onmiddellijk opnieuw worden genummerd wanneer je inhoud toevoegt, bewerkt of verwijdert in kolom B, wat de aanwezigheid (of afwezigheid) van gegevens weerspiegelt. De volgorde schuift omhoog of omlaag terwijl je items toevoegt of verwijdert in kolom B.