Fortlaufende Nummer

Forumthread: Fortlaufende Nummer

Fortlaufende Nummer

28.04.2015 04:36:25

Bernd

Wunderschönen guten Morgen liebe Excelianer!
Ich bin da wieder mal auf ein für Euch sicherlich kleines Problem gestoßen, welches ich selber nicht in der Lage bin, auf die schnelle zu lösen.
Ich suche nach einer Formellösung für eine fortlaufende Nummerierung, falls in der Zelle rechts daneben, ein Wert vorhanden ist.
Falls Zeilen gelöscht werden, so sollte sich auch die fortlaufende Nummer anpassen.
Da ich eine Tabelle mit sehr vielen Einträgen habe, habe ich Euch eine kleine Datei nachgebaut, da steht dann nochmals drinnen, wie ich es gerne gelöst hätte, wichtig wäre nur, eine Formel die auch nach unten zieh- und kopierbar ist.
https://www.herber.de/bbs/user/97327.xls
Dann schon mal vorab ein "Dankeschön" und einen warmen Tag,
lg Bernd

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

eine von vielen Möglichkeiten

28.04.2015 07:05:21

vielen

A2: =MAX(A$1:INDEX(A:A;ZEILE()-1))+1

AW: eine von vielen Möglichkeiten

28.04.2015 07:16:26

vielen

Hallo Lupo!
danke für Deine Hilfe. Jedoch wird dann in jeder Zelle der Spalte A die fortlaufende Nummer eingetragen, oder mache ich da etwas falsch?
Gedacht wäre ja nur, dort eine fortlaufende Nummer einzutragen, wo in der Zelle rechts auch ein Wert steht.
Brauche daher noch eine kleine Hilfe.
Danke und lg
Bernd

AW: eine von vielen Möglichkeiten

28.04.2015 07:20:25

vielen

Hi Lupo!
ich glaube ich habe es gelöst:
=WENN(B6>0;MAX(A$1:INDEX(A:A;ZEILE()-1))+1;"")
Was sagst Du dazu, liege ich richtig so?
lg Bernd

erweitert und gefüllte Nebenzelle B beachtend

28.04.2015 07:36:41

lupo1

A2: =(MAX(INDEX(A:A;(ZEILE()-X$1)*(ZEILE()>X$1)+1):INDEX(A:A;ZEILE()-1))+1)*(B2>"")
In X1 trägst Du die maximal mögliche Leerspanne zwischen zwei lfd. Zahlen ein, z.B. 100. Dann muss eine Nr. in A9999 nicht mehr A1:A9998 auswerten, sondern nur noch A9899:A9998.
Wenn Du nun auch erst in Zeile 100 beginnst, kann die Formel noch etwas schneller und kürzer werden:
A2: =(MAX(INDEX(A:A;ZEILE()-X$1):INDEX(A:A;ZEILE()-1))+1)*(B2>"")

AW: erweitert und gefüllte Nebenzelle B beachtend

28.04.2015 07:41:05

Bernd

Hallo Lupo!
recht herzlichen Dank für Deine Mühen, nun funktionieren Deine Lösungen auch bestens.
lg Bernd

Nur ein Hinweis

28.04.2015 07:55:13

Matze

Hallo Bernd,
dies funktioniert , aber wenn in Spalte B eine Formel stehen sollte, würdest du #Wert erhalten.
Gruß Matze

weiterreichend als *(B2>"") ...

28.04.2015 09:05:06

lupo1

Statt
*(B2>"") ginge auch
*(ANZAHL2(B2)>0) oder
*(ISTLEER(B2)=0)
Siehe auch hier: http://xxcl.de/ol/150327-IST-Funktionen.png

geht kürzer ...

28.04.2015 08:30:58

Matthias

Alternative:

	L	M
1	1	Hallo!
2
3	2	B
4
5
6	3	D
7	4	E
8
9
10	5	F
11
12
13
14	6	G
15	7	H
16
17
18	8	I
19
20	9	J
21
22
23	10	Gruß Matthias

Formeln der Tabelle

Zelle	Formel
L1	=WENN(M1<>"";1;"")
L2	=WENN(M2<>"";MAX(L$1:L1)+1;"")
L3	=WENN(M3<>"";MAX(L$1:L2)+1;"")
L4	=WENN(M4<>"";MAX(L$1:L3)+1;"")
L5	=WENN(M5<>"";MAX(L$1:L4)+1;"")
L6	=WENN(M6<>"";MAX(L$1:L5)+1;"")
L7	=WENN(M7<>"";MAX(L$1:L6)+1;"")
L8	=WENN(M8<>"";MAX(L$1:L7)+1;"")
L9	=WENN(M9<>"";MAX(L$1:L8)+1;"")
L10	=WENN(M10<>"";MAX(L$1:L9)+1;"")
L11	=WENN(M11<>"";MAX(L$1:L10)+1;"")
L12	=WENN(M12<>"";MAX(L$1:L11)+1;"")
L13	=WENN(M13<>"";MAX(L$1:L12)+1;"")
L14	=WENN(M14<>"";MAX(L$1:L13)+1;"")
L15	=WENN(M15<>"";MAX(L$1:L14)+1;"")
L16	=WENN(M16<>"";MAX(L$1:L15)+1;"")
L17	=WENN(M17<>"";MAX(L$1:L16)+1;"")
L18	=WENN(M18<>"";MAX(L$1:L17)+1;"")
L19	=WENN(M19<>"";MAX(L$1:L18)+1;"")
L20	=WENN(M20<>"";MAX(L$1:L19)+1;"")
L21	=WENN(M21<>"";MAX(L$1:L20)+1;"")
L22	=WENN(M22<>"";MAX(L$1:L21)+1;"")
L23	=WENN(M23<>"";MAX(L$1:L22)+1;"")

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Geht auch für Spalte("A")

	A	B
1
2	1	huhu ;-)
3	2	B
4
5
6
7	3	C
8
9
10
11
12	4	D
13
14
15
16	5	E
17
18
19
20	6	F
21
22
23	7	Gruß
24	8	Matthias

Formeln der Tabelle

Zelle	Formel
A1	=WENN(B1<>"";1;"")
A2	=WENN(B2<>"";MAX(A$1:A1)+1;"")
A3	=WENN(B3<>"";MAX(A$1:A2)+1;"")
A4	=WENN(B4<>"";MAX(A$1:A3)+1;"")
A5	=WENN(B5<>"";MAX(A$1:A4)+1;"")
A6	=WENN(B6<>"";MAX(A$1:A5)+1;"")
A7	=WENN(B7<>"";MAX(A$1:A6)+1;"")
A8	=WENN(B8<>"";MAX(A$1:A7)+1;"")
A9	=WENN(B9<>"";MAX(A$1:A8)+1;"")
A10	=WENN(B10<>"";MAX(A$1:A9)+1;"")
A11	=WENN(B11<>"";MAX(A$1:A10)+1;"")
A12	=WENN(B12<>"";MAX(A$1:A11)+1;"")
A13	=WENN(B13<>"";MAX(A$1:A12)+1;"")
A14	=WENN(B14<>"";MAX(A$1:A13)+1;"")
A15	=WENN(B15<>"";MAX(A$1:A14)+1;"")
A16	=WENN(B16<>"";MAX(A$1:A15)+1;"")
A17	=WENN(B17<>"";MAX(A$1:A16)+1;"")
A18	=WENN(B18<>"";MAX(A$1:A17)+1;"")
A19	=WENN(B19<>"";MAX(A$1:A18)+1;"")
A20	=WENN(B20<>"";MAX(A$1:A19)+1;"")
A21	=WENN(B21<>"";MAX(A$1:A20)+1;"")
A22	=WENN(B22<>"";MAX(A$1:A21)+1;"")
A23	=WENN(B23<>"";MAX(A$1:A22)+1;"")
A24	=WENN(B24<>"";MAX(A$1:A23)+1;"")

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Du musst nur die Formel in A1 und die Formel in A2 eintragen
A2 kannst Du dann runterziehen soweit Du es brauchst.
Gruß Matthias

Alles Gesagte mal eben in die Tonne getreten ...

28.04.2015 08:50:02

lupo1

1. Viel Spaß dann damit (A$1:A1) in Zeile 9999 ... das bedeutet 50.000.000 furchtbare Vergleiche bis dahin, statt mit meiner Formel bei X1: 100 nur 1.000.000 oder bei X1: 10 nur 100.000.
2. Außerdem kannst Du nicht jede Zeile ungestraft löschen: #BEZUG! Auch das hatte ich mit ZEILE()-1 erledigt.
3. Und "" braucht doch auch keiner. Das macht man mit Format 0;; ... Bernd kennt es anscheinend.

AW: erweitert und gefüllte Nebenzelle B beachtend

28.04.2015 08:43:52

Bernd

Hallo Matze & Matthias!
Auch Euch beiden ein recht herzliches Dankeschön für die Lösungen.
lg Bernd

Beliebteste Forumthreads (12 Monate)

Forumthread: Fortlaufende Nummer

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Fortlaufende Nummer

Forumthread: Fortlaufende Nummer

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread