Erste und letzte Zahl zusammenrechnen

Guten Morgen zusammen!
Ich habe mal wieder ein recht interessantes Problem.
Von unserem Tankdatenprogramm wurden alle Tankungen mit Kilometerständen in einer einzigen Tabelle ausgegeben. In Spalte A die Kennzeichen, in Spalte B die Kilometerstände und in Spalte C das jeweilige Datum.
DU1122 8562 22042017
DU1122 8563 23042017
DU3344 124 25042017
DU3344 154 26042017
DU8765 1245 24042017
DU8765 1547 26042017
DU8765 1678 27042017
Ich muss jetzt bei jedem Kennzeichen den ersten Kilometerstand vom letzten Kilometerstand abziehen, um die Jahreslaufleistung ermitteln zu können. Nur leider sind es nicht drei Kennzeichen, sondern knapp achthundert und die Anzahl der Tankungen ist auch unterschiedlich.
Mein Gedanke war, eine =Max-Min-Formel so weit zu erweitern, dass sie die verschiedenen Kennzeichen berücksichtigt. Gibt es dafür ebenfalls eine Formel oder habt ihr noch eine viel bessere Idee?
Bin dankbar für jede Anregung!
Grüße

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…Ansatz, GrEs,
aber die Erzeugung einer verdichteten KreuzTabelle aus den PrimärDaten wäre wohl die übersichtlere Lösung. Das kann in Form einer Pivot-Tabelle oder wie folgt geschehen:

Ident	Verbrauch	von	bis			DU1122	1	22.04.2017	23.04.2017			DU3344	30	25.04.2017	26.04.2017			DU8765	433	24.04.2017	27.04.2017			Insgesamt	464	22.04.2017	27.04.2017	J5:=SUMME(J2:J4)		I2[:I4]:=Splint(VJoin(A$2:A$8;;-1);;ZEILE(A1))				K5:=MIN(K2:K4)		J2[:J4]:=VERWEIS(I2;A$2:A$8;B$2:B$8)-SVERWEIS(I2;A$2:B$8;2;0)				L5:=MAX(L2:L4)		K2[:K4]:=--ERSETZEN(SVERWEIS(I2;A$2:C$8;3;0);3;2;TEXT(--("1-"&TEIL(SVERWEIS(I2;A$2:C$8;3;0);3;2)&"-"&2017);"MMM"))						L2[:L4]:=--ERSETZEN(VERWEIS(I2;A$2:A$8;C$2:C$8);3;2;TEXT(--("1-"&TEIL(VERWEIS(I2;A$2:A$8;C$2:C$8);3;2)&"-"&2017);"MMM"))

800 Datensätze sollten für die UDFs in Spalte I kein Problem sein. Falls doch, läge das wohl an Splint. Diese könnte aber durch die UDF VSplit ersetzt wdn; …
&bullet; für Einzelwerte wie oben: =INDEX(VSplit(VJoin(A$2:A$8;;-1);;;1);ZEILE(A1))
&bullet; oder als plurale MatrixFml für alle Werte: {=VSplit(VJoin(A2:A8;;-1);;;1)}
Die UDFs sind hier zu finden:
Splint: https://www.herber.de/forum/archiv/864to868/865813_Texte_per_VBA_in_einzelne_Teile_aufteilen.html#865877
VJoin (& VSplit): https://www.herber.de/bbs/user/99024.xlsm (in BspDatei)
Feedback nicht unerwünscht! Gruß, Luc :-?
PS für WF: Wie Du an den Fmln in Spalten K:L siehst, Walter, war die kürzliche DatumsDiskussion durchaus sinnvoll…! ;-]
Besser informiert mit …

Beliebteste Forumthreads (12 Monate)

Erste und letzte Zahl zusammenrechnen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread