Goedendag Allemaal,
Ik ben aan het stoeien geweest met een klein programmaatje.
Het lukt me vrij aardig.
Alleen ik zit met een probleempje.
Allereerst het probleempje:
Ik heb gegevens staan op het controleblad.
Als er nieuw in de regel staat wil ik de bekende gegevens kopieren naar het datablad, zodat deze deelnemer bekend is voor de volgende keer.
Ik krijg deze gegevens wel gekopieerd, alleen dan zou er een IDnr. aangemaakt moeten worden 1 hoger dan het tot dan toe hoogste IDnr.
Dit krijg ik niet voor elkaar, wat ik ook probeer.
Ik heb de code uit een ander bestand waar de code wel werkt, maar in mijn nieuw bestand niet.
De codes die ik geprobeerd heb zijn:
en
Maar bij beide word er geen uniek IDnr. gegenereerd.
Wat doe ik fout??
Hierbij het bestandje waar het om gaat.
Ik ben aan het stoeien geweest met een klein programmaatje.
Het lukt me vrij aardig.
Alleen ik zit met een probleempje.
Allereerst het probleempje:
Ik heb gegevens staan op het controleblad.
Als er nieuw in de regel staat wil ik de bekende gegevens kopieren naar het datablad, zodat deze deelnemer bekend is voor de volgende keer.
Ik krijg deze gegevens wel gekopieerd, alleen dan zou er een IDnr. aangemaakt moeten worden 1 hoger dan het tot dan toe hoogste IDnr.
Dit krijg ik niet voor elkaar, wat ik ook probeer.
Ik heb de code uit een ander bestand waar de code wel werkt, maar in mijn nieuw bestand niet.
De codes die ik geprobeerd heb zijn:
Code:
NieuwId = WorksheetFunction.Max(Worksheets("Datablad").Range("A:A")) + 1
Code:
nummer = Application.WorksheetFunction.Max(Worksheets(2).Range("A:A")) + 1
Wat doe ik fout??
Hierbij het bestandje waar het om gaat.