ID einmalig vergeben
08.03.2017 20:18:08
Thomas
ich möchte gern eine einmalige ID in spalte a vergeben.
Dazu habe ich mir das untenstehende macro zusammen gebaut. Dies funktioniert soweit auch ganz gut
Nun ja, es ist noch das Wort ganz gut.
Das Problem ist ich darf jede Nummer nur einmal vergeben. Diese Regel bleibet auch wenn zwischendurch eine zeile gelöscht wird.
z.B. Zeile 5 wird gelöscht hier stand die ID Nr, 5 darf Sie nie wieder vergeben werden.
Bis hier klappt das Marco ganz gut.
Der Fehler tritt auf wenn die letzte Zeile gelöscht wird.
z.B. die letzte Zeile hatte die id Nr. 10 und ich lösche Sie dann bekommt mit meinem Macro der neue Datensatz wieder die 10.
Ich meine das ich schon mal etwas davon gehört oder gelesen habe das es im Tabellenblatt ein Bereich gibt in dem man so eine Nummer ablegen könnte.
CustomProperties Kann ich dies dafür irgendwie nutzen?
Weiss jemand rat bei meinem Problem?
mfg thomas
Private Sub Worksheet_Change(ByVal Target As Range)
Dim GetNewID
GetNewID = WorksheetFunction.Max(Tabelle5.Columns(1)) + 1
'nur etwas tun wenn nur 1 Zelle betroffen ist
If Target.Count > 1 Then Exit Sub
'Prüfung, ob sich etwas in Spalte C geändert hat
'und ob der Wert in Spalte C "" ist
'und ob nicht schon eine ID vergeben wurde
'-> wenn alles zutrifft, dann neue ID eintragen
If Target.Column = 3 And _
Target.Value "" And _
Cells(Target.Row, "A").Value = "" Then
Cells(Target.Row, "A").Value = GetNewID
End If
End Sub