Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<
Microsoft Office 2003-2019 => Excel => Thema gestartet von: carfesch am Mai 20, 2018, 07:04:26 Vormittag
-
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.