Bestimmte Werte "transportieren"

[MSJH]

Hallo Zusammen,

ich habe ein Problem und komme nicht wirklich weiter.

Ich habe eine 2-spaltige Tabelle welche wie folgt aufgebaut ist...

  A                B

IEN......         12
A3                8
C6                4
IEN...            ...


Die Zellen links sind eine Auftragsnummer (welcher IMMER mit IEN beginnt) sowie dazugehörige Kampagnen-Nummern. Die Spalte rechts gibt einen Wert an (im Beispiel ist 12 die Summe aus den Kampagnenwerten (Nicht als Formel hinterlegt)).

Ich suche nun eine Möglichkeit wie ich die Zeilen unter der jeweiligen Auftragsnummer neben die Auftragsnummer bekomme. Und zwar so, dass die Formel erkennt, dass eine neue Auftragsnummer beginnt und welche Kampagnen dazugehören.

Es handelt sich immer um eine unterschiedliche Anzahl von Kampagnen und somit Zeilen pro Auftragsnummer, zudem handelt es sich um über eine halbe Millionen Zeilen weswegen manuelles kopieren und transportieren keine Option ist.

Vielen Dank und beste Grüße

MSJH

[Fennek]

Hallo,

mit VBA sollte es möglich sein.

Lade eine Beispieldatei mit ca 20 Zeilen Ist-Zustand und Soll-Zustand hoch.

mfg

[MSJH]

Hallo Fennek,

vorab schon mal vielen Dank!

VG

[Fennek]

Hallo Marian,

es ist einfacher ist Name und Wert nebeneinander zu stellen:

Code:

Sub F_en()
Dim i&

Sheets("Ist").Activate
Ar = Cells(1).CurrentRegion
With CreateObject("Scripting.Dictionary")
   For i = 2 To UBound(Ar)
       If Left(Ar(i, 1), 3) = "IEN" Then
           k = Ar(i, 1)
           .Item(k) = Ar(i, 2)
       Else
           .Item(k) = .Item(k) & "|" & Ar(i, 1) & "|" & Ar(i, 2)
       End If
       'Debug.Print .Count, k, .Item(k)
   Next i
Sheets("Test").Activate
Cells.Clear
i = 1
For Each k In .keys
   i = i + 1
   Cells(i, 1) = k
   Tx = Split(.Item(k), "|")
   Cells(i, 2).Resize(, UBound(Tx) + 1) = Application.Transpose(Application.Transpose(Tx))
Next k

End With
End Sub

mfg

(zum Testen ist es einfacher mit einem Sheet "Test" und Activate zu arbeiten, wenn alles passt, kann das gelöscht werden.)

[MSJH]

Hallo Fennek,

vielen vielen Dank!! Hat super funktioniert.

MfG