Office: 2 Probleme

Hallo,

ich benutze Excel 2003 (habe aber auch 2007 falls das nötig ist)

Ich habe 2 Probleme die wahrscheinlich nicht unbedingt schwer zu lösen sind aber ich komm nicht drauf :/
Mein erstes Problem ist
Ich habe eine Tabelle mit 2 Spalten wo es in der ersten Werte doppelt gibt mit verschiedenen 2. Werten.
So nun will ich die Duplikate entfernen und die 2. Werte aber sozusagen addieren.
Wenn die 2.ten Werte Zahlen wären gehts mit der Konsolidierung aber so finde ich nix.
Unten angehängt ein kleines Beispiel (Beispiel Problem 1), ich hoffe das ist verständlich.

Dann das zweite Problem:

Ich habe 2 Tabellen. Die erste mit verschiedenen Pfaden zum Beispiel:
/root/test/abc/bg
/win/test2/abc/fg
...
Und eine zweite Tabelle in welchen Pfaden für die Tools festgelegt sind:
Tool1 | /test/
Tool2 | /test2/
...
So und nun möchte ich also das er aus der zweiten Tabelle den Pfad nimmt also zum Beispiel "/test/" und in Tabelle 1 danach sucht und hinter allen Feldern in der irgendwo "/test/" findet, das entsprechend Tool einfügt.
Dazu hab ich auch wieder eine Beispiel angehängt: (Tabelle Problem 2)

Wär super wenn es dafür Lösungen in Excel gibt.
Vielen Dank schonmal falls sich jemand die Zeit nimmt die Probleme mal anzschauen.

Liebe Grüße
NetFire

 

Hallo!

Zu Problem 1:
Kopiere diesen Code in das Modul des Tabellenblatts und lass ihn laufen:

Code:

Sub NetFire()
Dim Bereich As Range
Dim i As Integer, j As Integer
Dim Liste As String
Set Bereich = UsedRange.Columns(1)
Bereich.AdvancedFilter action:=xlFilterCopy, _
criteriarange:=Bereich, copytorange:=Range("G1"), unique:=True
For i = 2 To UsedRange.Columns(7).Rows.Count
Liste = ""
For j = 2 To UsedRange.Columns(1).Rows.Count
If Cells(j, 1) = Cells(i, 7) Then Liste = Liste & Cells(j, 2) & ","
Next j
If Len(Liste) > 1 Then Liste = Left(Liste, Len(Liste) - 1)
Cells(i, 8) = Liste
Next i
End Sub

zu Problem 2:
Schreibe diese Formel in B3 und kopiere sie runter:
=INDEX(D$3:D$10;MIN(WENN(ISTZAHL(FINDEN(E$3:E$10;A3));ZEILE($1:$8))))
Achtung Matrixformel: Die Eingabe der Formel mit der Tastenkombination Strg+Shift+Enter abschließen!

 

Hallo Schatzi^^ (Sowas darf ich normalerweise nur an meine Freundin schreiben ;))

Danke für deine schnelle Hilfe.
Klappt beides wunderbar vielen Dank.

Wär es vielleicht möglich mir die Funktion von 'ZEILE($1:$8)' kurz zu erklären was wofür steht etc.
Denn ich muss das sicher noch ein wenig anpassen.
Die richtige Tabelle hat ein paar 100-tausend Zeilen ;)

Liebe Grüße
Jan

edit: Wenn ich das einfach bis auf die letzte Zeile ausweite müsste das doch funktionieren oder ?

edit2: achja was ich auch noch fragen wollte. Gibt es eine Möglichkeit dieses "herunterziehen" auch einfacher ähnlich wie beim kopieren mit Shift zu machen ? Denn bei Tabellen mit <100 000 Zeilen macht das keinen Spass mehr Minutenlang auf die Maus zu drücken ;)

 

Hallo!

Wenn in der Spalte daneben bereits die Einträge vorhanden sind, dann reicht zum Ausfüllen ein Doppelklick auf das schwarze Quadrat.
Die Bereiche kannst du für deine Zwecke anpassen, z.B.

=INDEX(D$3:D$100000;MIN(WENN(ISTZAHL(FINDEN(E$3:E$100000;A3));ZEILE($1:$99998))))

Du musst nur darauf achten, dass alle Bereiche gleich groß sind.
Bei 100000 Zeilen kann es aber sein, dass die Berechnung "etwas länger" dauert, immerhin klappert jede Formel 100000 Zeilen ab. Das multipliziert mit 100000 Formeln ergibt 10^10 Berechnungen...