Uniek nummer (getal) in UserForm

[CCdutch]

Hoi,

Hoe krijg ik een uniek nummer (automatisch gegenereerd) te zien in mijn userform?

Ben al flink aan het zoeken geslagen maar kan niets hierover vinden.

Voor een storingregistratie heb ik een userform in elkaar gestoken en wil dus op dit userform elke nieuwe storing laten wegschrijven met een uniek storingsnummer.
Alleen weet ik niet hoe ik dit voor elkaar krijg.

 

[silkcom]

1. Pak het laatst gebruikte nummer en tel er 1 bij op.
2. Neem datum / tijd in formaat eejjmmddhhmmss

 

[jarco]

je kan alle gebruikte nummers laten inlezen door een array.
Deze kan je dan via for ... next doorzoeken.
Als je random gegenereerde nummer dan niet in de array voorkomt dan heb je een uniek nummer.
Wil je je nummers chronologisch maken dan kan je hem ook nog gewoon laten beginnen van zoals Silkcom het suggereerd

 

[Warme bakkertje]

Stel je hebt een werkblad Storingen waarin je alle meldingen wegschrijft. In kolom A van dit blad bevinden zich alle nummers.
Bij het openen van je formulier gebruik je dan de functie Max om het grootste nummer in deze kolom te bepalen en daar telkens 1 bij te tellen.

Private Sub UserForm_Initialize()
    With Sheets("Storingen")
        cb_nummer = WorksheetFunction.Max(.Range("A2:A" & _
                        .Cells(Rows.Count, 1).End(xlUp).Row)) + 1
    End With
End Sub

Vervang cb_nummer door de naam van je nummerveld op je formulier

 

[CCdutch]

Stel je hebt een werkblad Storingen waarin je alle meldingen wegschrijft. In kolom A van dit blad bevinden zich alle nummers.
Bij het openen van je formulier gebruik je dan de functie Max om het grootste nummer in deze kolom te bepalen en daar telkens 1 bij te tellen.

Private Sub UserForm_Initialize()
    With Sheets("Storingen")
        cb_nummer = WorksheetFunction.Max(.Range("A2:A" & _
                        .Cells(Rows.Count, 1).End(xlUp).Row)) + 1
    End With
End Sub

Vervang cb_nummer door de naam van je nummerveld op je formulier

Dank je wel dit werkt inderdaad zoals ik bedoelde.
Alleen nog 1 klein dingetje. Als ik de knop opslaan gebruik wordt er geen nieuw nummer aangemaakt dat zou ik ook graag willen.

 

[Warme bakkertje]

Kopieer de With...End With structuur onderaan je opslaan-macro

 

[Anthoonbakker]

imac

misschien ook een domme vraag, maar ik probeer het zelfde te doen op mijn IMac,maar op alt f11 reageert hij niet.
is er iemand die mij hierin wegwijs kan maken
ik gebruik Excel voor Imac