Hallo zusammen,

ich lasse mir beim Anlegen einer neuen Person in eine Tabelle automatisch eine eindeutige ID zu jedem Mitarbeiter erstellen. ( Der Wert wird dann in die Zelle D12 geschrieben )

.Range("D12").Value = tbl.DataBodyRange(tbl.DataBodyRange.Rows.Count, 1).Value + 1

Das ganze Funktioniert so aber nur wenn die Tabelle aufsteigend nach der ID sortiert wurde. Lässt man zuvor die Tabelle z.b. nach dem Nachnamen sortieren ändert sich natürlich aud die Reihenfolge der ID´s.
Wird nun ein neuer Mitarbeiter erstellt so erhält er nicht mehr die nächst höhere Zahl, sondern eine Zahl die um 1 höher ist als die letzte Zahl in der Tabelle.

Nun möchte ich aber das immer ( egal wie die Tabelle sortiert wurde ) eine ID erzeugt wird die 1 höher ist als die maximalste aus der Spalte ID der Tabelle.

Ich habe schon experimentiert mit so Sachen wie

Application.WorksheetFunction.Max

aber mir will es einfach nicht gelingen.