#Excel# summierungen und liquidation von dazugehörigen summandenfeldern

[Zvoni]

Nachtrag: Natürlich bekommst du einen Laufzeitfehler, da du keine Spaltenüberschriften hast.
In deinem Fall lautet die Schleife:

For i=3587 To 1 Step-1   '3587 ist jetzt eine Fantasie-Zahl, welches deine unterste Zeile darstellen soll

'blablabal

Next

Sobald i=1 erreicht wird, wird der Fehler ausgelöst, da der Vergleich versucht auf Zeile "0" zuzugreifen, welche in Excel nicht existiert.

 

[ronaldo84]

Der Code von Zvoni nur angepasst. Ich würde immer über das ActieSheet gehen.

Sub Main()
Dim i As Long

     For i = ActiveSheet.UsedRange.Rows.Count To 2 Step -1
   
          If ActiveSheet.Cells(i, 1) = ActiveSheet.Cells(i - 1, 1) Then

              ActiveSheet.Cells(i - 1, 3) = ActiveSheet.Cells(i, 3) + ActiveSheet.Cells(i - 1, 3)
              ActiveSheet.Rows(i).Delete
          End If
 
      Next

End Sub

€: Vielleicht solltest du dich au mal über Gruppierungen und Teilmengen in Excel informieren.
http://www.online-excel.de/excel/singsel.php?f=92#s2

 

[webcamping]

ich hab dir nochmal zwei private messages geschickt.

 

[Zvoni]

ich hab dir nochmal zwei private messages geschickt.

Mein Code war innerhalb von 30 Sekunden fertig. Siehe Anhang

 

[webcamping]

nun ja hier die anforderung nochmal spezifiziert!

grafik: http://www.dauerbau.de/anforderung.gif

xls: http://www.dauerbau.de/anf.zip

 

[Zvoni]

Arrrghhh. Mist. Das primäre Kriterium ist Spalte 2 und nicht Spalte 1.

Moment, ich pass das mal an.

 

[webcamping]

leider hab ich kein office vista. bitte in office 2003 format speicher! danke

 

[webcamping]

habe leider kein office vista.
kannst du das bitte in office 2003 kompatiblen format ablegen und erneut senden.

danke

 

[Zvoni]

So jetzt müssts stimmen

 

[webcamping]

unglaublich was so alles möglich ist.
was konkret hast du denn jetzt mit der spalte "f" gemacht- (wo die summen gebildet werden)?