Berabeitungsnummer per Button

[carfesch]

Hallo zusammen,

ich habe folgendes Problem.
Ich habe eine Userform, starte per CommandButton einen neuen Eintrag. Jetzt möchte ich das beim Klicken auf dem Button in der Spalte "K" eine Bearbeitungsnummer im Format "HM20180001" generiert wird. Diese soll dann fortlaufend und nur einmal vergeben werden.

Der Code den ich bisher benutze ist:

'Neuer Eintrag Schaltfläche Ereignisroutine
Private Sub CommandButton1_Click()
  Dim lZeile As Long
       
    lZeile = 2
    Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) <> ""
        lZeile = lZeile + 1
    Loop
   
    Tabelle1.Cells(lZeile, 1) = CStr("Neuer Eintrag Zeile " & lZeile)
   
    ListBox1.AddItem CStr("Neuer Eintrag Zeile " & lZeile)
   
    ListBox1.ListIndex = ListBox1.ListCount - 1
   
   
End Sub


Wenn jemand eine Idee hat wäre das total supi...

Vielen Dank im Vorraus.