Clever-Excel-Forum

Guten Tag Community,

habe eine userform erstellt bzw. kleine Datenbank...
Diese kleine Datenbank soll eine auflistung von update eintragungen dinen.

Es Funkzoniert auch soweit fast alles.
habe nur noch Probleme mit der Versionsnummer, die ist unabhänig von der ID nummer.
Die Versionsnummer soll beim Neuen Eintrag generiert bzw vom letzten Eintrag hochgezählt werden.
TextBox901

Code:
'Schaltfläche "Neuer Eintrag"

Private Sub CommandButton1_Click()

    ' Werte löschen

    Call Eingaben_clear

    ' ListIndex zurücksetzen, Eingabe freigeben

    With Me

        .ListBox900.ListIndex = -1

        .TextBox900.Locked = False

        .TextBox900.SetFocus

        ' Defaultwerte

        .TextBox900 = "" & .ListBox900.ListCount + 1

        .TextBox902 = Format(Date, "dd.mm.yyyy") 'Erstellungs Datum

        .TextBox901 = Format(Me.TextBox901.Text, "V#,##0.000")'Versionsnummer

    End With

End Sub

Die Versionsnummer ist ca. so aufgebaut.
V2.001
V2.002
Wenn V2.999 erreicht ist, soll ich von alleine, auf V3.001 aufzählen.

Kann mir einer da weiter helfen?´

Gruß

Hallo,

hier mal ein Beispiel, wie die Null übersprungen wird. Kannst Du ja dann in Deinen Code entsprechend übertragen.

Code:
Sub aaa()

  Dim x As Long

  Dim strZ As String

  strZ = 998

  Do While strZ < 1002

    strZ = strZ + 1 - (((strZ + 1) Mod 1000) = 0)

    Debug.Print Format(strZ, "V0,000")

  Loop

End Sub

Gruß Uwe

Rogue

Kuwer