Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Array mit jeweil erstem Element jeder Zeile füllen

Forumthread: 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
Anzeige

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
;

Forumthreads zu verwandten Themen

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
ComboBox mit den Werten aus 4 TextBoxen befüllen
Frank

Hallo am heiligen Sonntag!!!
Ich brauche wieder einmal eure Hilfe.
Auf einer UF befinden sich 4 TextBoxen welche mittels Code befüllt werden. Nun möchte ich gern, dass diese 4 Werte dann in eine ComboBox geschrieben werden! Ist das möglich und wenn ja - wie?
Danke und schönen Sonnta...
08.08.2010 12:43:44
Thread-ID: 1171147
3 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
Anzeige
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
Array mit Texten befüllen und dann sortieren?
Kasimir

Hallo an Alle!
Ich benötige Eure Hilfe, da ich mich mit Arrays (noch) nicht auskenne. Erst mal ein Beispiel, wie die Daten in einer Tabelle stehen:
Bestand

 A1Artikel2Büchsenmilch3Filtertüten4Kaffee5Aufbackbaguettbrötchen6Aufbackbaguettes7Aufbackbrötchen dunkel8Aufbackbrötc...
16.09.2011 09:33:42
Thread-ID: 1230116
3 Beiträge
Mehrzeilige Listbox mit strings füllen
Dieterlem

Hallo Excelfreunde,
ich möchte eine mehrzeilige Listbox mit Variablen füllen. Die Variablen werden nach durchlaufen einer Schleife gebildet und sollen in bestimmte Spalten eingetragen werden. Mein Code lautet in etwa:
Private Sub userform_Activate() Listbox.columnCoun=3 Listbox.ColumnWi...
24.02.2012 13:36:33
Thread-ID: 1252350
5 Beiträge
Tabelle mit Werten aus anderer Tab auffüllen
Fritz_W

Hallo Forumsbesucher,
ich wende mich an die VBA-Experten unter euch und bitte um Unterstützung bei folgendem Anliegen:
Die Tabelle2a wird - von Zeit zu Zeit - mit Daten aus der gleichartig strukturierten Tabelle2 'aufgefüllt'. Zusammengehörende Daten befinden sich in 15 (durchnummeriert...
28.02.2012 17:58:29
Thread-ID: 1252807
7 Beiträge
Textfelt automatisch mit Werten füllen
Jonas

Guten Morgen zusammen,
ich arbeite gerade an einem Makro mit einem Formular und benötige eure Hilfe.
In diesem Formular befindet sich u.a. eine ComboBox ("ComboBoxStufe") und drei Textfelder ("FeldSchnittD", "FeldSchnittE", "FeldSchnittF"). Wenn der User in der ComboBox einen Eintrag au...
29.11.2012 08:33:47
Thread-ID: 1288518
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige