Clever-Excel-Forum - Häufigster Wert mehrfach vorkommender Datengruppen

Seiten: 1 2 3

(09.04.2018, 11:58)snb schrieb: [ -> ]schau mal die Datei an

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

(09.04.2018, 08:56)badalamente schrieb: [ -> ]Hallo ...
Nur brauche eine Lösung in Form eines VBA Codes.

Mfg
Bada

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

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

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 ???

Seiten: 1 2 3