Oplopende nummering in Excel (afhankelijk van het vullen van een cel)

[evero]

Goedemiddag,

Ik heb een beetje op internet zitten spitten voor een oplossing van wat ik zoek, maar helaas.
Wat ik zoek is het volgende.

Als ik in cel D5 iets invul wil ik dat in cel C5 het nummer 1 komt te staan
Als ik daarna in bijvoorbeeld D7 iets invul wil ik dat in C7 het nummer 2 komt te staan
Als ik daarna in bijvoorbeeld D14 iets invul wil ik dat in C14 het nummer 3 komt te staan.

Als ik daarna in D8 iets invul wil ik dat in C8 het nummer 3 verschijnt en dat het nummer in C14 veranderd van een 3 in een 4

Ik hoop dat mijn uitleg voldoende is en dus een voorbeeld overbodig.

Groet,
evero

 

[SjonR]

Met VBA kom ik hier op:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column = 4 Then
        Lr = Range("D" & Rows.Count).End(xlUp).Row
        For Each cl In Range("D1:D" & Lr)
            If cl.Value <> "" Then
                cl.Offset(, -1).Value = Application.CountA(Range("D1:D" & cl.Row))
            End If
        Next
    End If
End Sub

Of deze formule in C1 en dan doortrekken naar beneden:

=ALS(D1<>"";AANTALARG($D$1:D1);"")

 

[evero]

Hallo SjonR,

Dank voor je snelle reactie.
De VBA code doet wat ik voor ogen had alleen heb ik nog een opmerking.
Als ik een reeks gegevens in kolom D heb ingevuld en ik haal, ergens halverwege de reeks, een regel weg dan herstelt de volgorde van cijfers zich niet.
Bestaat er een mogelijkheid dit op te lossen?

 

[SjonR]

Maak van de Worksheet_Change eens Worksheet_SelectionChange.

Maar waarom gebruik je de formule niet?

 

[evero]

Hallo SjonR,

De verandering van Worksheet_Change naar Worksheet_SelectionChange maakt dat het nu wel werkt zoals ik het graag hebben wil.

Waarom ik de formule niet gebruik?

Ik denk in VBA een grotere vrijheid te hebben in het gebruik.
Als ik de formule gebruik en ik wil een regel tussenin invoegen dan ontbreekt de formule op die regel.
Met VBA heb ik dat problem niet.

Bedankt voor je hulp.
Ik zet de vraag op opgelost.