Addition bei versch. Reihenfolge & Anzahl

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Laura,
warum VBA?
Beleg

	A	B	C	D	E	F	G	H	I	J	K	L	M	N
1
2
3	Uhrzeit	Anzahl	Größe	Gewicht	Gesamtgewicht	Summe			Zusammenfassung
4											Gesamtgewicht
5		18	45	1414,84	25467,12				Alt		46159,89		4
6		7	65	2956,11	20692,77	46159,89			neu 1		47827,59		7
7	20:04:44	neu							neu 2		61671,165		10
8		9	65	2956,11	26604,99				neu 3		66140,09		12
9		15	45	1414,84	21222,6	47827,59			neu 4		79865,768		14
10	21:04:17	neu							neu 5		36224,25		19
11		69	35	893,785	61671,165	61671,165			neu 6		7796,55		22
12	22:31:18	neu							neu 7		36237,82		24
13		74	35	893,785	66140,09	66140,09							27
14	22:31:18	neu											27
15		55	36	827,706	45523,83								27
16		8	45	1414,84	11318,72								27
17		19	60	760,462	14448,778
18		20	25	428,722	8574,44	79865,768					381923,123
19	22:40:22	neu
20		15	55	2009,54	30143,1
21		15	26	405,41	6081,15	36224,25
22	23:01:07	neu							Kontrolle!
23		25	20	311,862	7796,55	7796,55
24	23:15:09	neu
25		30	20	311,862	9355,86
26		19	45	1414,84	26881,96	36237,82
27
28					381923,123	381923,123
29

Formeln der Tabelle

Zelle	Formel
F5	=WENN(ISTZAHL(VERGLEICH(ZEILE()+1;$M$6:$M$16;0)); SUMME(INDEX(E:E;KKLEINSTE($M$5:$M$16;ANZAHL($F$4:F4)+1)):INDEX(E:E;KKLEINSTE($M$5:$M$16;ANZAHL($F$4:F4)+2))); "")
K5	=SUMME(E4:INDEX(E:E;M6-1))
F6	=WENN(ISTZAHL(VERGLEICH(ZEILE()+1;$M$6:$M$16;0)); SUMME(INDEX(E:E;KKLEINSTE($M$5:$M$16;ANZAHL($F$4:F5)+1)):INDEX(E:E;KKLEINSTE($M$5:$M$16;ANZAHL($F$4:F5)+2))); "")
I6	=WENN(M6=VERGLEICH(0;B:B;-1)+1;"";INDEX(B:B;M6)&" "&ZEILE(A1))
K6	=WENN(M6=VERGLEICH(0;B:B;-1)+1;"";SUMME(INDEX(E:E;M6):INDEX(E:E;MIN(M7-1;999))))
M6	=WENNFEHLER(AGGREGAT(15;6;ZEILE($A$4:$A$999)/(ISTTEXT($B$4:$B$999)); ZEILE(A1)); VERGLEICH(0;B:B;-1)+1)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Spalte M kann ausgeblendet werden.
https://www.herber.de/bbs/user/116365.xlsx

Gruß Sepp

Hallo Laura,
auch kein Problem.

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub laura()
Dim varOut1 As Variant, varOut2 As Variant
Dim lngIndex As Long, lngLast As Long, lngStart As Long, lngN As Long

With Sheets("Beleg")
  lngLast = Application.Max(4, .Cells(.Rows.Count, 2).End(xlUp).Row) + 1
  Redim varOut1(1 To lngLast, 1 To 1)
  Redim varOut2(1 To Application.CountIf(.Range("B4:B" & lngLast), "neu") + 1, 1 To 3)
  lngStart = 4
  For lngIndex = 4 To lngLast
    If .Cells(lngIndex, 2) = "neu" Or lngIndex = lngLast Then
      varOut1(lngIndex - 4, 1) = Application.Sum(.Range(.Cells(lngStart, 5), .Cells(lngIndex - 1, 5)))
      lngStart = lngIndex
      lngN = lngN + 1
      varOut2(lngN, 1) = IIf(lngN = 1, "alt", "neu " & lngN - 1)
      varOut2(lngN, 3) = varOut1(lngIndex - 4, 1)
    End If
  Next
  .Range("F4:F" & lngIndex) = varOut1
  .Range("I5").Resize(UBound(varOut2, 1), 3) = varOut2
End With
End Sub

Gruß Sepp

' ********************************************************************** ' Modul: Modul1 Typ: Allgemeines Modul ' ********************************************************************** Option Explicit Sub laura() Dim varOut1 As Variant, varOut2 As Variant Dim lngIndex As Long, lngLast As Long, lngStart As Long, lngN As Long With Sheets("Beleg") lngLast = Application.Max(4, .Cells(.Rows.Count, 2).End(xlUp).Row) + 1 Redim varOut1(1 To lngLast, 1 To 1) Redim varOut2(1 To Application.CountIf(.Range("B4:B" & lngLast), "neu") + 1, 1 To 3) lngStart = 4 For lngIndex = 4 To lngLast If .Cells(lngIndex, 2) = "neu" Or lngIndex = lngLast Then varOut1(lngIndex - 4, 1) = Application.Sum(.Range(.Cells(lngStart, 5), .Cells(lngIndex - 1, 5))) lngStart = lngIndex lngN = lngN + 1 varOut2(lngN, 1) = IIf(lngN = 1, "alt", "neu " & lngN - 1) varOut2(lngN, 3) = varOut1(lngIndex - 4, 1) End If Next .Range("F4").Resize(UBound(varOut1, 1), 1) = varOut1 .Range("I5").Resize(UBound(varOut2, 1), 3) = varOut2 End With End Sub

Beliebteste Forumthreads (12 Monate)

Addition bei versch. Reihenfolge & Anzahl

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread