Array mit jeweil erstem Element jeder Zeile füllen

Forumthread: Array mit jeweil erstem Element jeder Zeile füllen

06.07.2017 14:18:08

Christopher

Servus Leute,
ich habe eine Excel Tabelle, und in der ersten Zelle jeder Zeile steht ein Name. Außerdem ist in jeweils der siebten Zelle eine Stundenanzahl. Nun möchte ich mit einer Schleife durch diese Tabelle gehen und jeweils alle Namen mit der dazugehörigen Stundenanzahl in einem Array speichern.
Heißt auch wenn ein Name zweimal vorkommt, dann sollen nur die Stunden draufaddiert werden, nicht aber der Name ein zweites mal ins Array kommen.
Beispiel:
Hans 4
Andreas 3
Hans 2
Thomas 9
Peter 1
Hans 4
Soll am Ende ein Array mit den folgenden Einträgen ergeben:
Hans, 10
Andreas, 3
Thomas, 9
Peter, 1
Ich stehe total auf dem Schlauch, ich hoffe mir kann jemand weiterhelfen.
Liebe Grüße

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Array mit jeweil erstem Element jeder Zeile füllen

06.07.2017 14:25:59

Rudi

Array mit jeweil erstem Element jeder Zeile füllen

06.07.2017 14:25:59

Rudi

Hallo,
eine Möglichkeit:

Sub test()
Dim objDic As Object, rng As Range, oObj, i As Integer, arr()
Set objDic = CreateObject("scripting.dictionary")
For Each rng In Range(Cells(2, 1), Range(Rows.Count, 1).End(xlUp))
objDic(rng.Value) = objDic(rng.Value) + rng.Offset(, 6)
Next
ReDim arr(1 To objDic.Count, 1 To 2)
For Each oObj In objDic
i = i + 1
arr(i, 1) = oObj
arr(i, 2) = objDic(oObj) * 1
Next
End Sub

Gruß
Rudi

Array mit jeweil erstem Element jeder Zeile füllen

Forumthread: Array mit jeweil erstem Element jeder Zeile füllen

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread