Abstand unterschiedlicher Zahlen zählen

[Betonbauer]

Hallo Edgar,

Abstand zweier unterschiedlicher Zahlen  -----------> diese sind vorher festgelegt! Also in meiner Fragestellung:  Abstände von 1 nach 2!

Wenn man die Werte in den Formeln ändert, könnte das dann durchaus der Abstand von A nach B oder so bedeuten.

Entschuldige bitte wenn ich mich undeutlich ausgedrückt habe.

Muß jetzt leider weg und bin in ca. 2 Stunden wieder da.

Viele Grüße

Bernd der Betonbauer

[Fennek]

Dritter Versuch:

Sub v3()
Dim c1 as range
Set c1= range("a1")
C1n = cells(row.count,1).end(xlup).row
Cells(cn1+1,1)=1

With columns(1)
Do until c1n < c1.row
Set c1= .find(1, after:= c1)
C1n = .findnext(c1).row
C2= .find(2, after:=c1).row
If c2< c1n then cells(c1.row,2) = c2- c1.row
Loop
.rows(c1.row).clear
End with
End sub


Regards

[Betonbauer]

Hallo Fennek,
mit dem Programmcode kann ich leider nichts anfangen! Trotzdem vielen Dank!

Viele Grüße

Bernd der Betonbauer

[BoskoBiati]

Hallo,

hier mit einer Hilfsspalte:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D
1				Abstände
2				5
3				1
4				3
5
6	1	5
7
8
9
10
11	2
12
13
14
15
16
17
18	2
19
20
21
22
23	2
24
25
26
27	1
28
29
30
31	1
32
33
34	1	1
35	2
36
37
38
39
40
41	1
42
43
44
45	1	3
46
47
48	2

Zelle	Formel
B1	=WENN(A1=1;WENN(VERGLEICH(2;INDEX(A:A;ZEILE()+1):A$10000;0)<WENNFEHLER(VERGLEICH(1;INDEX(A:A;ZEILE()+1):A$10000;0);VERWEIS(9;1/(A:A<>"");ZEILE(A:A))-ZEILE()+1);VERGLEICH(2;INDEX(A:A;ZEILE()+1):A$10000;0);"");"")
D2	{=WENNFEHLER(INDEX(B:B;KKLEINSTE(WENN(B:B<>"";ZEILE(B:B));ZEILE(A1)));"")}

Achtung, Matrixformel enthalten!

Die geschweiften Klammern{} werden nicht eingegeben.

Verlassen Sie den Zelleneditor mit Strg+Shift + Enter, statt Enter alleine.

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

[Betonbauer]

Hallo Edgar,

genau so sollte es sein! Vielen, vielen Dank für Deine Mühe!!!

Die Formeln verstehe ich zwar noch nicht, aber ich werde mich ab morgen damit beschäftigen. Heute habe ich leider keine Zeit mehr dazu. Wenn ich noch Fragen dazu habe sollte, werde ich Dich ansprechen.


Nochmals vielen Dank

Bernd der Betonbauer


PS: Wo bekomme ich dieses Program Tab2HTML her? Bei meiner Suche landete ich immer im Nirwana des Internets.

[BoskoBiati]

Hallo,

offiziell gibt es das Tool nirgendwo mehr. Hier gibt es aber Ersatz:

http://www.clever-excel-forum.de/Thread-...einstellen