|
Servus nochmal,
also hab es geschafft die Gruppen aufzuteilen, aber komme mit der aufsummierung der Gelder nicht zurecht..
Kann mir jmd dabei helfen ?
Sub KundenlisteAufteilen()
Dim z As Long
Dim sh As Worksheet
With Sheets("Tabelle1")
For z = 2 To .[D1].End(xlDown).Row
For Each sh In Worksheets
If sh.Name = .Cells(z, "D") Then Exit For
Next
If sh Is Nothing Then
Set sh = Sheets.Add(, Sheets(Sheets.Count))
sh.Name = .Cells(z, "D")
.Rows(1).copy sh.Rows(1)
End If
.Rows(z).copy sh.Cells(Rows.Count, "D").End(xlUp)(2).EntireRow
Next
End With
End Sub
|