Opgelost Automatisch regelnummer

[Pjotr_68]

Goedemorgen,

Even een stomme vraag, ik heb in het verleden wel eens een kasboek gemaakt waarbij het volgende rijnummer automatisch werd ingevuld.
Als voorbeeld, in rij 3 begon nummer 1, en bij invullen van teksten werd er in rij 4 gelijk een 2 gezet.
En zo gebeurde het ook als ik dus in rij 4 ging typen dat er in de volgende rij gelijk een 3 werd gezet.
Weet alleen niet meer hoe ik dat gedaan heb, kasboek is verdwenen na een crash.

Zal echt wel simpel zijn maar kom er niet uit.

 

[AlexCEL]

Misschien een tabel gebruiken?

 

[Pjotr_68]

Dat hoeft niet echt, maar wat ik bedoel is dat zodra je "iets" typt in cel B2 dat er dan automatisch 2 komt te staan in A3.
Op zich is wat jij voorstelt ook wel makkelijk, maar had iets anders in gedachte.

 

[Pjotr_68]

Ooooh wacht even, ik zie hem nu staan.
Sorry, dat is inderdaad helemaal top

 

[Pjotr_68]

Maar hoe heb je dat gedaan?
Want ik wil toch eigenlijk dat wat ik aangaf, als ik begin te typen in B2 dat er dan 1 bij opgeteld wordt.

 

[AlexCEL]

Dat gebeurt toch? Voeg een regel toe (op tab drukken in laatste cel van de tabel, of eronder beginnen te typen) en er komt een opgehoogd volgnummer in de rij te staan.

 

[edmoor]

Want ik wil toch eigenlijk dat wat ik aangaf, als ik begin te typen in B2 dat er dan 1 bij opgeteld wordt.

Excel heeft geen gebeurtenis die wordt uitgevoerd bij het typen in een cel.

 

[Pjotr_68]

Dat gebeurt toch? Voeg een regel toe (op tab drukken in laatste cel van de tabel, of eronder beginnen te typen) en er komt een opgehoogd volgnummer in de rij te staan.

Klopt, bedankt in ieder geval.
Ga met deze aan de slag.

 

[Pjotr_68]

Excel heeft geen gebeurtenis die wordt uitgevoerd bij het typen in een cel.

In mijn beleving had ik het bij een oudere versie wel.
Maar misschien heb ik het mis.

 

[Warme bakkertje]

Zet deze eens in de bladmodule van het betreffende werkblad.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Cells(Target.Row + 1, 1) = vbNullString Then
        Application.EnableEvents = False
        Cells(Target.Row + 1, 1) = Application.Max(Columns(1)) + 1
        Application.EnableEvents = True
    End If
End Sub

en kijk eens of je hiermee verder kan.

 

[Pjotr_68]

Zet deze eens in de bladmodule van het betreffende werkblad.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Cells(Target.Row + 1, 1) = vbNullString Then
        Application.EnableEvents = False
        Cells(Target.Row + 1, 1) = Application.Max(Columns(1)) + 1
        Application.EnableEvents = True
    End If
End Sub

en kijk eens of je hiermee verder kan.

Dat is hem, dit werkt zoals ik verwacht.
Dank je wel.