Einen Primärschlüssel berechnen

Hallo,

wie kann ich denn aus einem String mit dem Inhalt 001 einen Integer-Zahl machen. Also 1?

Danach will ich einen dazu addieren und daraus wieder einen String machen den ich mit Nullen auffülle. Also dann 002.

Ist der String 010 soll danach natürlich eine 011 kommen.

Danke,
Christian

Hallo Christian,

WertAlt = „001“
WertNeu = Right(„000“+Trim(Str$(Val(WertAlt)+1)),3)

Gruß, Rainer

PS. Da war ein Fehler, der ein Leerzeichen eingefügt hätte, deshalb neu. :wink:

Sub test()

Dim nrString As String
Dim nrInt As Integer

nrString = "001"

nrInt = nrString

nrInt = nrInt + 1

nrString = Format(nrInt, "000")

MsgBox nrString

End Sub

gruss