Delphi Excel: Bereich durchnummerieren

[joachimd]

In Excel selbst lautet die Formel:

Code:

=WENN(C2<>C1;1;A1+1)

Annahme:
Dies ist Zeile 2
In Zeile 1 sind die Überschriften, C2/C1/A1 erhöht sich jeweils um 1
Spalte A: Nr
Spalte B: Name
Spalte C: Abteilung
Es ist nach Abteilung sortiert