Office: (Office 2007) Abstand zählen zwischen zellen in spalte

hallo @

Abstand zählen zwischen zellen in spalte

in spalte z sind 1 und 0 enthalten ich möchte den abstand zwischen zwei
1 ermitteln wie ist das machbar mir fällt da keine formel ein
schön wäre auch noch den größten abstand in einer anderen zelle angezeigt zu bekommen

danke für euer mühe

gruß nixe

:)

 

Hoi Nixe,

also eine Formel dafür kenn ich zumindestens für den Abstand nicht.

Über VBA lässt sich das jedoch recht einfach erstellen.

Schau Dir mal angehängte Datei an. Der Abstand wird in der Spalte B angezeigt und der größte Abstand steht in Zelle C1.

Greetz

Schmali

 

Hallo nixe,

hier noch ne Formellösung. Die Formeln in Spalte AA geben für jede 1 in Spalte Z den Abstand zur nächsten 1 an. Dabei kannst du die Formel aus der Zelle AA1 einfach runterkopieren. Die Formel in AB1 ermittelt den maximalen Abstand.

	Z	AA	AB
1	1	9	9
2	0
3	0
4	0
5	0
6	0
7	0
8	0
9	0
10	1	3
11	0
12	0
13	1

AA1 : {=WENN(Z1=1;MIN(WENN(Z2:$Z=1;ZEILE(Z2:$Z);70000))-ZEILE(Z1);"")}
AB1 : =MAX(AA1:AA12)
AA2 : {=WENN(Z2=1;MIN(WENN(Z3:$Z=1;ZEILE(Z3:$Z);70000))-ZEILE(Z2);"")}
AA3 : {=WENN(Z3=1;MIN(WENN(Z4:$Z=1;ZEILE(Z4:$Z);70000))-ZEILE(Z3);"")}
AA4 : {=WENN(Z4=1;MIN(WENN(Z5:$Z=1;ZEILE(Z5:$Z);70000))-ZEILE(Z4);"")}
AA5 : {=WENN(Z5=1;MIN(WENN(Z6:$Z=1;ZEILE(Z6:$Z);70000))-ZEILE(Z5);"")}
AA6 : {=WENN(Z6=1;MIN(WENN(Z7:$Z=1;ZEILE(Z7:$Z);70000))-ZEILE(Z6);"")}
AA7 : {=WENN(Z7=1;MIN(WENN(Z8:$Z=1;ZEILE(Z8:$Z);70000))-ZEILE(Z7);"")}
AA8 : {=WENN(Z8=1;MIN(WENN(Z9:$Z=1;ZEILE(Z9:$Z);70000))-ZEILE(Z8);"")}
AA9 : {=WENN(Z9=1;MIN(WENN(Z10:$Z=1;ZEILE(Z10:$Z);70000))-ZEILE(Z9);"")}
AA10 : {=WENN(Z10=1;MIN(WENN(Z11:$Z=1;ZEILE(Z11:$Z);70000))-ZEILE(Z10);"")}
AA11 : {=WENN(Z11=1;MIN(WENN(Z12:$Z=1;ZEILE(Z12:$Z);70000))-ZEILE(Z11);"")}
AA12 : {=WENN(Z12=1;MIN(WENN(Z13:$Z=1;ZEILE(Z13:$Z);70000))-ZEILE(Z12);"")}

Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!

Gruß Ingolf

 

hallo Ingolf

also hatte noch nicht die zeit die formel auszuprobieren kommt aber noch

Hallo Schmali

bin zwar in vba nicht unwissend nur muss ich mir da alles mühsam zusammen
suchen wie krieg ich dieses makro dazu in einer anderen spalte dies zu tun

vielleicht kannst da nochmal helfen

danke für eure hilfe

gruß nixe

 

Hoi,

Code:

Wenn Du statt Range mit Cells arbeitest, dann vertauschen sich Zeile und Spalte. Range("A2") = Cells(2,1), also immer Cells(Zeile, Spalte.

Ersetz mal den vorhandenen Code durch den hier, dann hast Du die Kommentare zu den Zeilen.

Ersetze nur "Suchspalte" durch die Spaltennummer (kann man über "Exras-Optionen-Allgemein Z1S1-Bezugsart" aktivieren) die durchsuchen willst. In Cells(i, 2).Value musst Du die 2 gg. Suchspalte + 1 austauschen. Und Cells(1, 3).FormulaR1C1 gibt an, wo das Max-Ergebnis stehen soll.

Greetz

Schmali

 

hallo schmali,

danke jetzt hab ich es kapiert

wünsch noch schöne tage

gruß nixe