Delphi Excel: Bereich durchnummerieren

[zobien123]

Hi :-D

Ich erstelle mit Delphi einen Exceldatei. Nun möchte ich, einen Bereich von Einträgen durchnummerieren wie viel Einträge es gibt. Er soll aber immer nur innerhalb der gleichen Abteilung zählen und dann wieder neu beginnen.

Bsp:

Code:

Nr      | Name      |  Abteilung
---------------------------------
1      | Hans      | Verkauf
2      | Günther   | Verkauf
3      | Rudolf    | Verkauf
       |          | 
1      | Mike      | Logistik
2      | Ike       | Logistik
3      | Louis     | Logistik
...

Eine neue Spalte kann ich erstellen für die Nummerierung, jedoch weiß ich nicht wie ich durchnummerier und dass die Zahlen an der richtigen stelle sind. :pale:

PS: Für den wechsel der Abteilungen habe ich eine Abfrage, dass er das erkennt. Es geht nur darum, wie ich hochzähl und die Zahlen in der richtigen Zeile landen.:-D

[Jasocul]

Du weißt, wie man mit Delphi Daten in eine Excel-Datei bekommt.
Den Wechsel der Abteilung stellst du auch schon selbst fest.

Dann mache dir einen Zähler, den du ebenfalls in die Excel-Tabelle einträgst. Sobald eine andere Abteilung kommt, setzt du den Zähler einfach wieder auf 1.

[zobien123]

Es geht um die Spalte "Nr". Diese ist bei mir noch leer. In dieser Spalte sollen die Einträge eine Nummerierung bekommen (siehe Bsp.).

[Jasocul]

Du füllst doch auch die anderen Spalten. Wo ist denn dein Problem, dabei auch gleich die Nummern-Spalte zu füllen?

Ich vermute, dass du dein Problem nicht richtig beschrieben hast.
Ich nehme jetzt mal meine Glaskugel zur Hand:
Kann es sein, dass du die Spalten über eine SQL-Abfrage füllst und die Nummer gleich in dieser Abfrage bilden willst?

[zobien123]

Zitat:

Kann es sein, dass du die Spalten über eine SQL-Abfrage füllst und die Nummer gleich in dieser Abfrage bilden willst?

Nein will ich nicht:-D Im Titel steht Delphi und nicht SQL :-D

Ich kann die Nummerierung nicht bereits in SQL machen, da ich die Daten aus der SQL über in Delphi Code noch weiter verarbeite und erst dann später in ein Excel exportiere.

[hoika]

Hallo,
das verstehe ich auch nicht.

Zitat:

noch weiter verarbeite und erst dann später in ein Excel exportiere.

Wo ist dann Dein Problem, da einen Zähler für "Mitarbeiter pro Abteilung" hochzuzählen.
Den Zähler schreibst du dann pro Zelle in die Nr-Spalte.

Zeig doch mal deinen bisherigen Code.

[zobien123]

Mit weiter verarbeiten meinte ich, dass die Daten in verschiedene Sheets aufgeteilt werden, Summen gebildet werden, Zeilen eingefügt werden.

Zitat:

Wo ist dann Dein Problem, da einen Zähler für "Mitarbeiter pro Abteilung" hochzuzählen.
Den Zähler schreibst du dann pro Zelle in die Nr-Spalte.

Das Problem ist ja, dass die Zahl dann nicht in pro Zelle angezeigt wird sondern in der letzten.

[bra]

Delphi-Quellcode:

var
  i: Integer;
  s: String;
begin
  i := 0;
  s := '';
  while xxx do begin
    if s <> [Abteilung] do begin
      s := [Abteilung];
      i := 0;
    end;
    Inc(i);
    // hier Ausgabe
  end;
end;

[hoika]

Hallo,

Zitat:

Das Problem ist ja, dass die Zahl dann nicht in pro Zelle angezeigt wird sondern in der letzten.

Wird denn nur 3 reingeschrieben (in deinem Bsp.) oder steht in der letzten Zeile eine 7?

Dann korrigier das doch einfach ! ;)

F5,F7,F8 sind dabei Deine Freunde.


Ausserdem: Zeig und etwas Quellcode.

[p80286]

Zitat:

Zitat von zobien123 (Beitrag 1378708)

Das Problem ist ja, dass die Zahl dann nicht in pro Zelle angezeigt wird sondern in der letzten.

:gruebel: Zeig mal was Du bisher hast. Das Beispiel von bra sollte eigentlich hinreichend sein?

Gruß
K-H