Automatische factuurnummering (getal wordt opgeslagen als tekst)

[qelvin]

Beste forumleden,

Via onderstaande code laat ik de inhoud van TextBoxInitKlantID wegschrijven naar een cel InitieelKlantnummer die staat in tabblad Klanten.

Private Sub KnopOKKlantID_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Klanten")
'plaatst de gegevens in de database'
If Me.TextBoxInitKlantID.Value = "" Then
    Exit Sub
End If
Range("InitieelKlantnummer") = Me.TextBoxInitKlantID
Unload Me
'Messagebox'
MsgBox "De instellingen werden opgeslagen"
End Sub

Via onderstaande code laat ik bij het aanmaken van een nieuwe klant het hoogste nummer in de rij, ophogen met 1.

Private Sub Userform_Initialize()
TextBoxKlantnummer.Value = WorksheetFunction.Max(Worksheets("Klanten").Range("KlantID")) + 1
End Sub

Het initieel opgegeven nummer wordt echter weggeschreven als tekst, zodat het nieuwe klantnummer steeds begint bij 1.
Kan één van de codes aangepast worden zodat de cel InitieelKlantnummer steeds de eigenschap 'getal zonder decimalen of scheidingspunt voor duizendtallen' krijgt?

 

[mvw64]

Misschien helpt dit
TextBoxKlantnummer.Value = WorksheetFunction.Max(Worksheets("Klanten").Range("KlantID")) + 1
probeer eens
TextBoxKlantnummer.Value = WorksheetFunction.Max(Worksheets("Klanten").Range("KlantID")) + 1 * 1

 

[qelvin]

Het klantnummer wordt nog steeds opgeslagen als tekst...

 

[ExcelAmateur]

qelvin,

Als het als text word opgeslagen, moet je het met 1 vermenigvuldigen.
Als het dan goed is, is het weer een normaal getal.

 

[qelvin]

Gelukt met de hulp van mvw64 en ExcelAmateur
Thanks !!!