Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 14:36:42
Texte Zählen bzw. Anzahl zusammenzählen
18.04.2024 14:27:59
Datum wenn Betrag bei jährl. wechselnder Reduzierung 0 wird
18.04.2024 14:14:51
Summewenn letzter Eintrag
18.04.2024 12:28:32
Formelfehler aufgrund Einfügen einer Zeile
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1564to1568
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1564to1568
1564to1568
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Array mit jeweil erstem Element jeder Zeile füllen

Array mit jeweil erstem Element jeder Zeile füllen
06.07.2017 12: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
Anzeige
Array mit jeweil erstem Element jeder Zeile füllen
06.07.2017 12: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
Anzeige

112 Forumthreads zu ähnlichen Themen

Array mit mehrspaltiger Listbox füllen
Martin

Hallo liebe Excelianer,
eine Listbox kann sehr einfach mit einem Array gefüllt werden: ListBox1.List() = Arr
Leider geht das nicht umgekehrt: Arr = ListBox1.List()
Folgende Lösung habe ich mir geschrieben:
Sub Lösung For i = 1 To ListBox1.ListCount For j = 1 To 9 Arr(i, j) = Lis...
21.08.2009 20:33:45
Thread-ID: 1097859
18 Beiträge
Anzeige
Combobox mit Werten füllen
Jeron

Hallo liebe Excel Freunde,
ich sitz gerade an einem Userform, dass Werte aus einer Tabelle über eine Combobox auslesen soll.
Ich möchte erreichen, dass die Spalte C, Zelle C8 - C56 auf Inhalt überprüft wird.
Wenn ein Wert vorhanden ist, soll die ComboBox aber nicht mit dem Wert aus...
29.08.2009 18:34:01
Thread-ID: 1099336
10 Beiträge
Kombobox mit Werten füllen ohen Duplikate VBA
chrissey

Hallo Leut,
hab im Tabellenblatt "Daten" in Spalte K verschieden Referenznummern, die aber
öffter vorkommen können.
Nun würde ich gerne in einem anderen Tabellenblatt eine Kombobox mit diesen
Nummern aus Spalte K füllen, aber jeder Wert darf nur einmal in der Auswahl
vorkom...
17.03.2010 11:25:26
Thread-ID: 1146565
4 Beiträge
Anzeige
Combobox mit Werten füllen
Juliane

Hallo Leute,
ich bin gerade sowas von auf dem Kopf gefallen, ich versteh gar nichts mehr.... Also hab ne Combobox auf mein Tabellensheet gelegt. U jetzt möchte ich diese Combobox mit Werten aus einem anderen Tabellensheet füllen.
Hab es folgendermaßen probiert, aber funktioniert null :(...
12.08.2010 14:32:37
Thread-ID: 1171943
2 Beiträge
bestimmte Spalten mit Werten füllen
strodti

Hallo liebe Excelianer,
ich habe in einer Datei zwei Blätter "Eingabe" und "Zuordnungstabelle" mit identischen Spaltenüberschriften. In "Eingabe" werden Adressdaten u.ä. eingetragen. Über untenstehenden Code werden alle Zeilen, die in Spalte A ein "a" haben, in die "Zuordnungstabelle" kopie...
16.11.2010 18:50:54
Thread-ID: 1187050
4 Beiträge
Zeile einfügen und mit Werten befüllen
Maris

Hallo Leute,
ich habe ein ziemlich difizilles Problemchen... was mir aber den letzten nervt raub und sehr Zeitaufwendig ist. Deswegen wäre ich euch super dankbar wenn ihr mir helfen könntet. Ich habe eine Exceltabelle und ich muß manuell immer eine Zeile einfügen in einer Tabelle und das 5...
23.03.2011 12:20:58
Thread-ID: 1207071
6 Beiträge
Array mit Werten aus Spalten aus füllen
Stefan

Hallo - schon wieder ein Problem.Ich möchte ein Array füllen mit verschiedenen Ausprägungen, die in einer Spalte untereinander stehen. Die Spalte ist aber (1) nicht immer gleich lang und (2) hat doppelte Einträge - jeder Eintrag soll aber nur einmal im Array auftauchen. Hat jemand eine Idee, wi...
13.05.2002 18:02:14
Thread-ID: 120580
2 Beiträge
ComboBox mit Werten füllen funktioniert nicht
Peter

Hallo zusammen,
habe ein Problem und weiß nicht, woran es liegt....
In einem Formular ("Master") habe ich eine ComboBox ("ComboBox2"), die ich mit Daten aus Zeile 1 aus einem Sheet ("WA") füllen möchte. Ich führe den Code aus, die ComboBox bleibt aber leer, obwohl im Sheet Daten stehen...
26.08.2011 13:45:34
Thread-ID: 1227668
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
17
4
9
3
2
1
3
5
1
8
2
2
4
6
4
1
13
2
6
8
8
8
2
7
6