Häufigster Wert mehrfach vorkommender Datengruppen

[Jockel]

schau mal die Datei an

Hallo PivotTable wurde schon vorgeschlagen... ... und der TE schrieb..:

Hallo ...
Nur brauche eine Lösung in Form eines VBA Codes.

Mfg
Bada

[snb]

Er hat keine Ahnung was er fragt.
Das Ergebnis ist identisch zum Pivottable.
Darum braucht er kein VBA.

Code:

Sub M_snb()
    Application.DisplayAlerts = False
    sn = Tabelle3.Cells(1).CurrentRegion
    
    With CreateObject("scripting.dictionary")
       For j = 2 To UBound(sn)
          c00 = Join(Array(sn(j, 1), sn(j, 2), sn(j, 3)))
          If sn(j, 4) > .Item(c00) Then .Item(c00) = sn(j, 4)
       Next
       Tabelle3.Cells(1, 12).Resize(.Count, 4) = Application.Transpose(Array(.keys, .items, .items, .items))
    End With
    
    With Tabelle3.Cells(1, 12).CurrentRegion
        .Resize(, 1).TextToColumns , , , , 0, 0, 0, -1, 0
        .Columns(4).NumberFormat = "hh:mm:ss"
    End With
End Sub

[badalamente]

Hi,

danke für den Vorschlag mit der Pivot_Table.
Wie Jockel bereits zitiert hat, ist ein Vba Code von Interesse.

Ich werde das Thema als erledigt deklarieren.

Ich bedanke mich trotzedem für alle Bemühungen.


Mfg
Bada

[snb]

Hast du mal gut geguckt ?

http://www.clever-excel-forum.de/thread-...#pid116236

Wenn das kein VBA ist, dann .....

Erzähl mal bitte: warum nur VBA ???