Office: Makro Daten aus 2 Tabellen zusammenführen

Hallo,

ich habe ein relativ dringendes Problem und hoffe Ihr könnt mir helfen.
Es geht um ein Excel Makro.
Ich habe eine Tabelle "ID" und eine Tabelle "Werte"
In der Tabelle ID sind in Spalte A untereinander einige ID´s.
In der Tabelle "Werte" sind zu jeder ID an die 10 Werte in der Spalte C.
Es soll nun in der Tabelle "ID" die erste markiert und kopiert werden, dann in die Tabelle "Werte" gewechselt werden, im Autofilter per Suche die entsprechende ID eingegeben werden, die gesamten Werte kopiert und in der Tabelle "ID" in der selben Zeile eingefügt werden. Danach in die nächste Zeile zur nächsten ID springen und das ganze wiederholen bis die erste leere Zeile kommt.

Hier mal die Makroaufzeichnung für einen Durchlauf:
Code:
Sub Makro10()
'
Sheets("ID").Select
Range("A5").Select
Selection.Copy
Sheets("Werte").Select
ActiveSheet.Range("$A$1:$C$2052").AutoFilter Field:=2, Criteria1:="10050"
Range("C14:C19").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ID").Select
Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub


Ich hoffe jemand kann mir helfen wie man das in dieser Form automatisieren kann.

Vielen Dank schonmal

:)

 

Hi,

erstmal herzlich willkommen hier im Forum! *Smilie

Du schreibst die ID befinden sich in Spalte C, der Autofilter sitzt auf Spalte B, das passt nach meiner Meinung nicht zusammen. Beschreibe doch einfach mit eigenen Worten was Du genau erreichen möschtest, ohne den aufgezeichneten Spagetticode. *wink.gif*

 

Hallo,

die Tabelle ID sieht so aus:





die Tabelle Werte sieht so aus:





In der Tabelle ID soll die erste Zahl in Spalte A, also "1" verwendet werden um dann in der Tabelle Werte in Spalte B "produktid" (grün hinterlegt) nach allen Einträgen dieser Zahl aus Tabelle ID zu suchen. Dann die Werte in Spalte C (gelb hinterlegt) kopieren und in Tabelle ID horizontal eingefügt werden (gelb hinterlegt). Bei mir heißt das "Transponieren".
Danach soll er in der Tabelle ID zur nächsten Zeile springen und das ganze wiederholen mit der entsprechenden Zahl. Solange bis eine leere Zeile kommt.

Ich hab zusätzlich die gesamte Excel-Liste mal als zip unter diesem Pfad abgelegt:
http://www.it-schweiger.de/files/liste2.zip

Hoffe ich konnte es so erklären dass es verständlich ist.

Danke schonmal

 

Hi,

teste mal!

Code:

 

Hallo Jürgen,

super, vielen Dank, genau das ist es!
Perfekt!

 

Hi,

ich habe Dir zu "Lernzwecken" *wink.gif* das Beispiel mit dem Autofilter umgesetzt!

Code: