Hallo Kollegen

dies ist meine letzte Lösung für diesen Thread, der ins Archiv ging. - Nur diesen Codeteil ändern.
https://www.herber.de/forum/archiv/2000to2004/2001913_Fahrernummer_automatisch_erstellen.html

@Alexwin
es freut mich sehr, das mein Makro bei euch so gut angekommen ist. Das ändern ist eine Kleinigkeit, s.unten.
Du must nur die Zeilen für die InputBox wie unten ändern, dann klappt es. Habe es vorhin im Beispiel getestet.
Viel Spass und Grüsse aus Izmir an die Heimat.

mfg Piet

'bei Nein Fahrer Nr. selbst vergeben
Txt = "Diese Nummern sind bereits gelistet:" & vbLf & Txt
On Error Resume Next
neu: FahrerNr = InputBox(Txt)
If FahrerNr = vbCancel Then Exit Sub
If InStr(Txt, FahrerNr) Then MsgBox "Diese Nummer ist bereits vergeben!": GoTo neu