SUM in erste leere Zeile von Oben WENN

Hallo ich mal wieder :)
Ich bin schon gut vorangekommen dank Eurer Hilfe. Jetzt ist folgende Ausgangssituation
SPALTE A | SPALTE B| SPALTE C | SPALTE D................
1 300 | 1234 | 2007-11-01 | 21043804
2 300 | 1234 | 2007-12-01 | 15600489
3
4
5
6
7 XT | 56789 | 2007-01-01 | 20359429
8 XT | 56789 | 2007-02-01 | 18389162
9 XT | 56789 | 2007-03-01 | 20359429
10 XT | 56789 | 2007-04-01 | 19702674
11 XT | 56789 | 2007-05-01 | 20359429
12 XT | 56789 | 2007-06-01 | 20772015
13
14
15
16
17 181 | 98769 | 2007-07-01 | 21059429
18 181 | 98769 | 2007-08-01 | 20406036
19 181 | 98769 | 2007-09-01 | 21412842
20
21
22
23
......................
......
....
Jetzt will ich gerne in die jeweils 1. leere Zeile von oben nach ungen springen, und dann SUMs bilden und dann nur von den Werten die sich wiederholen bzw. der count von der spalte A zwischen den leerzeilen größer 3 sind
SPALTE A | SPALTE B| SPALTE C | SPALTE D................
1 300 | 1234 | 2007-11-01 | 21043804
2 300 | 1234 | 2007-12-01 | 15600489
3
4
5
6
7 XT | 56789 | 2007-01-01 | 20359429
8 XT | 56789 | 2007-02-01 | 18389162
9 XT | 56789 | 2007-03-01 | 20359429
10 XT | 56789 | 2007-04-01 | 19702674
11 XT | 56789 | 2007-05-01 | 20359429
12 XT | 56789 | 2007-06-01 | 20772015
13 SUMs | =SUM(B7:B12)| |
14
15
16
17 181 | 98769 | 2007-07-01 | 21059429
18 181 | 98769 | 2007-08-01 | 20406036
19 181 | 98769 | 2007-09-01 | 21412842
20 181 | 98769 | 2007-08-01 | 20406036
21 SUMs | =SUM(B17:B20) | |
22
23
24
......................
......
....
Die Bereiche für die Summenbildung richten Sich nach den Wiederholungen und eben nur wenn mehr als 3 Wiederholungen in Spalte A
Bis gehe ich das Sheet durch und immer wenn eine neuer Wert in A ist, der nicht dem Vorgänger entspricht mach in 4 freie zeilen rein.
JEMAND EINEN TIP ODER EINE LÖSUNGSIDEE?!?!
Mit
Dim Loletzte As Long
Loletzte = Cells(1, Columns.Count).End(xlToLeft).Column + 1
komme ich net weit, er macht das einmal und dann habe ich immer einen festen Wert in den die AkticeCell sich pro Sheet befindet, er sucht also nicht immer von oben nach unten die erste neue bzw. leere Zeile
Grüße
Lauren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Daniel,
hoffe Du hattest ein schönes WE!
Also folgender Code gibt das aus


With Range("D2:D" & Cells(Rows.Count, 2).End(xlUp).Row + 1)
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = _
"=IF(R[-1]C1="""",TRUE,IF(COUNTIF(C1,R[-1]C1)

Spalte A| Spalte B| Spalte C| Spalte D| Spalte E | Spalte F | Spalte G | Spalte H|
123| 1501| 2007-08-01| 10593715| |5383815 | |54224,30063
123| 1501| 2007-09-01| 11827745| |5675522 | |62672,48442
123| 1501| 2007-10-01| 11651245| |5611803 | |59530,86469
123| 1501| 2007-11-01| 11664725| |5571052 | |99989,58675
123| 1501| 2007-12-01| 9258420 | |4582368 | |167174,6278
| | SUMs |137613000| | | |
Da dies ja das ganze Tabellenblatt durchgeht, hätte ich am schluss die SUM in den Spalten eins weiter rechts, dass ich ganz am schluss einfach einmal SUM machen kann von den Werten für den der Fall größer 3 eingetroffen ist und die SUMs gebildet worden ist. Damit das leicht von statten geht, hätte ich die Rechnung für SUMs (137613000) in der selben Zeile aber eine Spalte weiter in E.
Wenn ich jetzt folgendes mache


With Range("D2:D" & Cells(Rows.Count, 2).End(xlUp).Row + 1)
.SpecialCells(xlCellTypeBlanks).Offset(0,1).FormulaR1C1 = _
"=IF(R[-1]C1="""",TRUE,IF(COUNTIF(C1,R[-1]C1)

Findet er die Zellen für ClearContents (.SpecialCells(xlCellTypeFormulas, 4).ClearContents / .SpecialCells(xlCellTypeFormulas, 1).Offset(0, -1).Value = "SUMs") und für SUMs nicht mehr und unter dem errechneten Wert also SUMs steht dann immer WAHR, WAHR
das ganze sieht dann so aus
Spalte A| Spalte B| Spalte C| Spalte D| Spalte E | Spalte F | Spalte G | Spalte H|
123| 1501| 2007-08-01| 10593715| |5383815 | |54224,30063
123| 1501| 2007-09-01| 11827745| |5675522 | |62672,48442
123| 1501| 2007-10-01| 11651245| |5611803 | |59530,86469
123| 1501| 2007-11-01| 11664725| |5571052 | |99989,58675
123| 1501| 2007-12-01| 9258420 | |4582368 | |167174,6278
| | | |137613000| | |
| | | |WAHR| | |
| | | |WAHR| | |
Vielen Dank für die Hilfestellung

Sub Duplikatgruppierung() 'Dim ws As Worksheet 'For Each ws In ThisWorkbook.Worksheets ' ws.Activate Dim lngZeile As Long For lngZeile = Cells(Rows.Count, 1).End(xlUp).Row + 1 To 2 Step -1 If Cells(lngZeile, 1).Value Cells(lngZeile - 1, 1).Value Then Rows(lngZeile & ":" & lngZeile + 2).Insert End If Next Rows("2:4").Select Selection.Delete Shift:=xlUp Range("A1").Select With Range("D2:D" & Cells(Rows.Count, 1).End(xlUp).Row + 1) .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = _ "=IF(R[-1]C1="""",TRUE,IF(COUNTIF(C1,R[-1]C1)

With Range("D2:D" & Cells(Rows.Count, 1).End(xlUp).Row + 1) .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = _ "=IF(R[-1]C1="""",TRUE,IF(COUNTIF(C1,R[-1]C1)RC[-4],RC[-4]="""",RC[-2]""""),RC[-1]/COUNTIF(C[ _ -4],R[-1]C[-4])*12,"""")" Selection.AutoFill Destination:=Range("E2:E" & Range("E2").End(xlDown).Row), Type:= _ xlFillDefault With Range("F2:F" & Cells(Rows.Count, 1).End(xlUp).Row + 1) .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = _ "=IF(R[-1]C1="""",TRUE,IF(COUNTIF(C1,R[-1]C1)RC[-6],RC[-6]="""",RC[-4]""""),RC[-1]/COUNTIF( _ C1,R[-1]C[-6])*12,"""")" Selection.AutoFill Destination:=Range("G2:G" & Range("G2").End(xlDown).Row), Type:= _ xlFillDefault With Range("H2:H" & Cells(Rows.Count, 1).End(xlUp).Row + 1) .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = _ "=IF(R[-1]C1="""",TRUE,IF(COUNTIF(C1,R[-1]C1)RC[-8],RC[-8]="""",RC[-6]""""),RC[-1]/COUNTIF( _ C1,R[-1]C[-8])*12,"""")" Selection.AutoFill Destination:=Range("I2:I" & Range("I2").End(xlDown).Row), Type:= _ xlFillDefault

Beliebteste Forumthreads (12 Monate)

SUM in erste leere Zeile von Oben WENN

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

SUM in erste leere Zeile von Oben WENN

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread