VBA code werkt niet goed

[Roma]

Beste mensen,
Ik heb een code gemaakt voor projectnummers.
Het werkt redelijk. Het probleem is wanneer ik het projectnummer verwijderd hij toch door gaat tellen en dat is niet de bedoeling.
Daarnaast wil ik een button maken om met een klik het nieuwe nummer in te geven.
Wie voor dit probleem een oplossing
Alvast bedankt

 

[OctaFish]

Je macro kan een stuk simpeler.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim iSect As Variant
    
    Set iSect = Application.Intersect(Target, Range("$E$16:$E$20"))
    If Not iSect Is Nothing Then
        If Not [e8] = "" Then [e8] = [e8+1]
    End If

End Sub

Heb je ook meer ruimte voor de check op een lege E8 En je hebt geen extra knop nodig.

 

[Roma]

Beste Michel,
Bedankt voor je reactie.
De macro werkt perfect. maar als ik op bv. cel E17 drukt wordt cel E8 ook vermeerderd.
De bedoeling is dat er een nieuw project komt het nummer wordt ingevoerd (cel E8 vermeerderd met 1
Er zijn dus 5 verschillende projecten.

 

[JeanPaul28]

Ik ga een deel code gebruiken van Michel, in bijlage

 

[Roma]

Jean-Paul,
Dat is precies wat ik bedoelde.
Perfect en bedankt voor het meedenken
Ron

 

[Roma]

Jean-Paul,
Bestaat er ook de mogelijkheid dat de code wordt aangeroepen door een nummer(debiteurennr.) uit een andere cel(B16 t/m B20)?
Ron

 

[JeanPaul28]

Geef eens een voorbeeld hoe er dat dan moet uit zien.

 

[Roma]

Jean-Paul,
Sorry, hier is de bijlage
Ron

 

[JeanPaul28]

Typ een deb nr in een van de cellen B16:B20 en project nummer wordt geplaatst, hoop dat dit is wat je bedoelt

 

[Roma]

Jean-Paul,
Dit is helemaal het einde
Bedankt voor alles
Ron