Hallo und guten Tag. Ich gebe in einer Text Box neue Datensätze ein, und möchte vermeiden, das es doppelte Datensätze geben kann. Z. B. wenn ich einen Datensatz eingebe nimmt er die ZeilenNr. dazu, was aber, wenn ein anderer Datensatz gelöscht wird, dazu führen kann, das die noch aktive ZeilenNr. wiederum als neu Zeile erkannt wird. Frage: Wie könnte man so etwas umgehen. Füge meinen Kode mal hier an. Danke und Gruß Josef
Code:
Private Sub cmdNew_Click()
Dim lZeile As Long
lZeile = 1
Do While Trim(CStr(wsAt.Cells(lZeile, 3).Value)) <> ""
lZeile = lZeile + 1
Loop
actnumber = CStr("NeuNR" & lZeile)
wsAt.Cells(lZeile, 1) = actnumber ' CStr("NeuNR " & lZeile)
lstData.AddItem actnumber ' CStr("NeuNR " & lZeile)
lstData.ListIndex = lstData.ListCount - 1
ActiveWorkbook.Save
End Sub