Registriert seit: 10.04.2014
Version(en): Office 2019
(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
Gruß Jörg
ich muss mich erst wieder ganz langsam heran robben. Also bitte ich um Nachsicht
"Wer immer tut, was er schon kann, bleibt immer das, was er schon ist." - Henry Ford
Registriert seit: 29.09.2015
Version(en): 2030,5
09.04.2018, 12:08
(Dieser Beitrag wurde zuletzt bearbeitet: 09.04.2018, 12:36 von 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
Registriert seit: 26.02.2018
Version(en): 2010
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
Registriert seit: 29.09.2015
Version(en): 2030,5
09.04.2018, 12:49
(Dieser Beitrag wurde zuletzt bearbeitet: 09.04.2018, 12:49 von 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 ???