Servus,
Danke erstmal für Eure Antworten
Hmmm, warum sollte das notwendig sein… ? 
Warum einfach, wenn es umständlich geht.
Gezählt habe ich die einzelnen werte schon, (mit countif) aber auf sumif bin ich Trottel nicht gekommen.
Mit dem Spezialfilter kannst du die Unikate aus der ersten
Das alles kann im Grossen und Ganzen so aussehen:
Public Sub UniqueAdd()
Dim rngWert As Range
Range(„D1“).CurrentRegion.ClearContents
Range(„A:A“).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range(„D1“), _
Unique:=True
If Application.WorksheetFunction.CountIf( _
Range(„D:smiley:“), Range(„D1“)) > 1 Then
Range(„D1“).Delete
End If
Range(„D1“).CurrentRegion.Sort Range(„D1“), xlAscending
For Each rngWert In Range(„D1“).CurrentRegion
rngWert.Offset(0, 1).Value = _
Application.WorksheetFunction.SumIf(Range(„A:A“), _
rngWert.Value, _
Range(„B:B“))
Next rngWert
End Sub
Ich hatte das bisher so gemacht :
in Mappe2:A2…An stehen die schon mit Spezialfilter gefilterten Werte
letzteZeile = Worksheets("Mappe2").Cells(65536, 1).End(xlUp).Row
**For i = 2 To letzteZeile
Worksheets("Mappe2").Cells(i, 2).Value = \_
Application.WorksheetFunction.CountIf(Worksheets("Mappe1").Range("U:U"), Cells(i, 1))**
Worksheets("Mappe2").Cells(i, 3).Value = \_
Application.WorksheetFunction.SumIf(Worksheets("Mappe1").Range("U:Y"), Cells(i, 1), Range("X:X"))
Worksheets("Mappe2").Cells(i, 4).Value = \_
Application.WorksheetFunction.SumIf(Worksheets("Mappe1").Range("U:Y"), Cells(i, 1), Range("Y:Y"))
**Next i**
Das Fettgedruckte habe ich selber hingekreigt, das war mein Startpunkt, dann habe ich das tatsächlich in ein Array geschrieben und ausgelesen und dann eingefügt.
Umständlich, aber es hat funktioniert.
Nn habe ich mirt gedacht nimm dir das zu herzen, was die netten Experten schreiben un verwende auch Application.WorksheetFunction.SumIf
Nur bei funktioniert das nicht.
Un ich weiß nicht warum.
Mit Eurer Hilfe habe ich auch die Schleife verkürzt (For each) :
Worksheets("Mappe2").Range("a:a").CurrentRegion
For Each rngWert In Worksheets("Mappe2").Range("a1").CurrentRegion
rngWert.Offset(0, 6).Value = \_
Application.WorksheetFunction.SumIf(Worksheets("Mappe1").Range("U:Y"), rngWert.Value, Range("Y:Y"))
rngWert.Offset(0, 5).Value = \_
Application.WorksheetFunction.CountIf(Worksheets("Mappe1").Range("U:Y"), rngWert.Value)
Next rngWert
Aber auch da funktioniert das sumif nicht.
Wo liegt den mein Fehler?
Ansonsten ist eine Pivot-Tabelle wirklich nur auf den ersten
Blick eine Hexerei, auf den zweiten mutet es bloss noch
unglaublich an
Da man Makros mit aufzeichnen und dann ein wenig Programmierkenntnissen und VIEL eurer Zeit gut hinkriegt, belibe ich erstmal bei Makros.
Grüße
Winter
P.S.
@Reinhard ist es möglich ein Link unter dein FAQ-Hinweis zu legen? Da es nicht so einfach ist einen FAQ-Artikel nach der Nummer zu finden. (Nicht einfach, aber möglich!)
