Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

erste mittlere und letzte zeile finden

erste mittlere und letzte zeile finden
23.05.2016 11:33:03
Christian
Hallo,
Ich schreibe momentan meine Bachelorarbeit im Bereich Data Mining. Grundlage dazu ist eine relativ umfangreiche Excel Tabelle, die ich natürlich zu Beginn auswerten muss. Ein Auszug aus der Tabelle befindet sich im Anhang. Es handelt sich um Daten aus einem onlineshop. Das Attribut cMinPrice bezeichnet das günstigte angesehene Produkt. bMinPrice bezeichnet das günstigste Produkt im Warenkorb. Ich möchte die Entwicklung dieser Werte und der Werte cMaxPrice und bMaxPrice im Laufe einer Session abbilden. Ich habe zuerst nur versucht, den Ersten und den Letzen Eintrag einer Session zu nehmen und eine Entwicklungin Prozent auszurechnen, aber das verfälscht die Erebnisse.
Deshalb würde ich gerne zwei Trends haben. Zwischen dem ersten und einem mittleren Wert und diesem mittleren und dem Letzen. Wie ihr seht hat nicht jede Session gleich viele Zeilen. Zudem sind sie alle sehr unterschiedlich lang (Attribut Duration). Hat Jemand deshalb eine Idee wie ich jeweils die mittlere Zeile einer Session finden kann. Also beispielsweise bei einer Session mit 10 Datensätzen den 5.? Ich wäre für jede Hilfe sehr dankbar, da auch mein Betreuer keine Idee zur Lösung dieses Problems hat.
Beste Grüße
Christian
https://www.herber.de/bbs/user/105739.xlsx

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Hier CODETab
23.05.2016 12:22:17
lupo1

__|A|____B___|C|__D__|__E__|___F___|___G___|_______H______|I|CODETab von lupo1
1|B|    1,00| |A    | 6,00|       |       |              | |
2|A|    2,00| |MIN  | 2,00|   2,00| 129,00|unteres Mittel| |
3|B|    4,00| |MITTE| 9,00| 256,00|2176,00|oberes Mittel | |
4|B|    8,00| |MAX  |13,00|4096,00|       |              | |
5|A|   16,00| |     |     |       |       |              | |
6|B|   32,00| |     |     |       |       |              | |
7|A|   64,00| |     |     |       |       |              | |
8|B|  128,00| |     |     |       |       |              | |
9|A|  256,00| |     |     |       |       |              | |
10|B|  512,00| |     |     |       |       |              | |
11|B| 1024,00| |     |     |       |       |              | |
12|A| 2048,00| |     |     |       |       |              | |
13|A| 4096,00| |     |     |       |       |              | |
14|B| 8192,00| |     |     |       |       |              | |
15|B|16384,00| |     |     |       |       |              | |
Zellformeln:
E1: =AUFRUNDEN((ZÄHLENWENN(A1:A15;D1)+1)/2;)
E2:{=MIN(WENN(D1=A$1:A$15;ZEILE(A$1:$A15)))}
E3:{=MIN(WENN(ZÄHLENWENN(BEREICH.VERSCHIEBEN(A1;;;ZEILE(A$1:A$15));D1)=E1;ZEILE(A$1:A$15)))}
E4:{=MAX(WENN(D1=A$1:A$15;ZEILE(A$1:$A15)))}
F2: =INDEX(B:B;E2)
G2: =(F2+F3)/2
http://xxcl.de/bitteBeachten Nr. 5

Anzeige
AW: erste mittlere und letzte zeile finden
23.05.2016 12:30:45
Fennek
Hallo,
eigentlich hatte ich es mir eher einfach vorgestellt, aber...
Bis auf eine Rundung (auf oder ab), könnte dieser Code helfen.

Sub Mitte()
Dim ar, af
Columns("L").Clear
lr = Cells(Rows.Count, "A").End(xlUp).Row
ReDim ar(lr)
For i = 2 To lr
If Cells(i, "A")  Cells(i - 1, "A") Then
ar(i) = i
Else
ar(i) = "T"
End If
Next i
ar(1) = "T"
ar(lr) = lr
af = Filter(ar, "T", False)
Debug.Print LBound(af), UBound(af)
af(0) = 1
For i = 1 To UBound(af) - 1
Debug.Print af(i): Cells(af(i), "L") = (af(i + 1) - af(i)) / 2 + af(i)
Next
End Sub
mfg
Anzeige

330 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige