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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen