Automatische Nummerierung

[Chris-89]

Hallo Liebe Forenmitglieder.


Ich habe da ein Problem mit einer Nummerierung und ich komme einfach nicht dahinter.

Folgende Themenstellung:
Habe in einem Tabellenblatt eine Liste, die ab und an mal mit neuen Produkten "gefüttert" wird - sprich, gibt es ein neues Produkt so wird dieses in die Tabelle eingetragen.

Jedes Produkt hat eine fortlaufende Nummer, das Produkt welches als letztes eingetragen wird besitzt die höchste Nummer.

(z.B. Es sind 103 Produkte eingetragen, kommt nun ein neues hinzu, muss dieses mit Nummer 104 gekennzeichnet sein, usw.) Das muss sein da sonst die zugeordneten Bilder nicht angezeigt werden können.

Ich möchte nun diese Nummerierung automatisieren.
Das stelle ich mir so vor: Bei Eintrag eines neuen Produktes in Spalte A soll automatisch in Spalte B die nächst höhere Nummer erscheinen.

Mit der Formel =WENN(A2<>"";MAX($B$1:B1)+1;"") funktioniert das aber leider nur wenn ich ein neues Produkt immer an letzter Stelle der Liste eintrage.

Damit meine ich:
Ich habe einen Hersteller "A" (in Zeile A1)
Alle Produkte vom Hersteller "A" sind unterhalb eingetragen. (also von A2-A20)
Hersteller "B" fängt dann in Zelle A21 an, darunter wieder alle Produkte von Hersteller "B"
Und so geht das dahin bis Hersteller "Z"

Soll nun ein Produkt bei Hersteller "C" eingetragen werden, bekommt dieser nicht die höchste Nummer, sondern alle Nummern welche unterhalb von Hersteller "C" eingetragen wurden rücken um eins nach hinten, sodass das letzte Produkt von Hersteller "Z" immer die höchste Nummer hat.

Ich hoffe irgendjemand kann mir schnellstmöglich helfen.

Vielen Dank schon mal im Voraus!

[atilla]

Hallo,

teste mal folgendes:
MAX($B$1:B1;B3:$B$1000)+1

Sonst wäre es per Vba einfach umsetzbar.

[Chris-89]

Hallo,

teste mal folgendes:
MAX($B$1:B1;B3:$B$1000)+1

Sonst wäre es per Vba einfach umsetzbar.

Hallo Atilla,

Hab diese Formel probiert, leider vergebens - ich hab mal die Tabelle hochgeladen, zur besseren Vorstellung

Wie würdest du das mit VBA Lösen? bin eine gewaltige Niete in VBA!

Danke vorab!

[atilla]

Hallo Chris,

eine Lösung per Vba kann ich erst heute Abend aufzeigen.
Vom Prinzip her würde ich in einer Hilfszelle die zuletzt benutzte Nummer ablegen und dann bei neu Eingabe diese Nummer um eins erhöhen. Dann können Nummern auch nur einmal vergeben werden,
auch wenn in der Datentabelle Nummern gelöscht werden sollten.

[Chris-89]

Hallo Chris,

eine Lösung per Vba kann ich erst heute Abend aufzeigen.
Vom Prinzip her würde ich in einer Hilfszelle die zuletzt benutzte Nummer ablegen und dann bei neu Eingabe diese Nummer um eins erhöhen. Dann können Nummern auch nur einmal vergeben werden,
auch wenn in der Datentabelle Nummern gelöscht werden sollten.

Hallo Atilla,

Ja das hab ich auch schon probiert (In einer Hilfszelle z.B. C1 mit Formel =MAX(B:B) den Maximalen Wert eingefügt)
Und dann in der Zelle B2 =WENN(A2<>"";$C$1+1;0) - Leider bekomme ich hier einen Zirkelbezug, somit funktioniert das auch nicht.
Bei deiner Formel bekomm ich übrigens auch einen Zirkelbezug...

LG

[atilla]

Hallo Chris,

meine letzte Beschreibung bezog sich auf eine Vba Lösung.
Wie gesagt, eine dahingehende Lösung kann ich erst heute Abend zeigen.

[Steffl]

Auch Hallo,

wenn ich es richtig verstanden habe, könnte es auch mit

PHP-Code:

ZÄHLENWENN(A$1:A1;A1) 


gehen.

Nachtrag: Ich habe es falsch verstanden. Obiges Teil geht nicht.

[steve1da]

Hola,

Glückwunsch! In 2 Foren Helfer beschäfigt.

http://www.herber.de/forum/messages/1418176.html

Gruß,
steve1da

[atilla]

Hallo Chris,

wenn Du in mehreren Foren nachfragst, dann solltest Du in allen auf diesen Umstand hinweisen. Das ist respektvoller den Helfern gegenüber.

Die Vba Lösung im anderen Forum geht solange gut, solange Du zwischendurch keine Werte in Spalte A löschst oder überschreibst.

[Chris-89]

So sorry, das war respektlos von mir!

Aber ich suche eben schon dringend eine Lösung und es dauert...
Aber gut.

Die VBA Lösung funktioniert bei mir irgendwie nicht! Wenn ich den Code wie beschrieben einfüge, dann tut sich gar nichts!
Ich kann das Makro nicht aktivieren!