Clever-Excel-Forum

Normale Version: Größte Zahl ermitteln innerhalb 2 Spalten
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Hallo Leute,

ich habe hier in meiner Beispiel Datei eine Liste mit Namen deren Gruppen und Zahlen jeweils zugeordnet sind. Pro identischer Namens- und Gruppenpaarung möchte ich die größte auftauchende Zahl per vba ermitteln. Siehe Beispiel.
Wäre sehr freundlich wenn mir da jemand helfen möchte. Ich habe einen kleinen Ansatz gemacht aber es funktioniert leider nicht. Bin auch schon sehr lange drüber...

Vielen Dank
Moin,

mit 4-5 Mausklicks ist eine PivotTable erstellt...
Vielen Dank, aber ich habe es doch noch geschafft es mit VBA selbst zu lösen:

Code:
Sub Schaltfläche1_Klicken()

wert = 0
For i = 4 To 13
    If Cells(i, 1).Value = Cells(i + 1, 1).Value And Cells(i, 2).Value = Cells(i + 1, 2).Value Then
   u = i
       Do While Cells(u, 1).Value = Cells(i, 1).Value And Cells(u, 2).Value = Cells(i, 2).Value
           If wert < Cells(u, 3).Value Then wert = Cells(u, 3).Value
           u = u + 1
       Loop
   Cells(i, 4).Value = wert
   wert = 0
   i = u - 1
   Else: Cells(i, 4).Value = Cells(i, 3).Value
   End If
Next

End Sub