sind für die selbe Abt. die anderen Spalten bis auf Anzahl gleichbleibend? Oder können die sich auch ändern?
Gruß
jolly
ich bedanke mich fuer deine interesse an meinem problem.
marc :-}
so sollte es klappen:
Viele Grüße
Mike E.
Ich dachte es sollte alles automatisiert laufen. egal, trotzdem hier mein Code.
Sub kumulieren()
Dim i%, j%, lR%
Dim abt As String
lR = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lR Step 1
abt = Cells(i, 1)
For j = i + 1 To lR Step 1
Do While ActiveSheet.Cells(j, 1) = abt
Cells(j, 1).Select
MsgBox (j & "& 1")
Cells(i, 7) = Cells(i, 7) + Cells(j, 7)
Cells(j, 1).EntireRow.Delete
Loop
Next j
If Cells(i + 1, 7) = Empty Then
Exit Sub
End If
Next i
End Sub
Gruss jolly