Hallo zusammen
Ich würde gerne aus einer Tabelle Daten kopieren und in eine andere bestehende Tabelle einfügen .
In der einzufügenden Tabelle muss sich aber das dazugehörige Feld ausgesucht werden um die Daten an den richtigen Platz zu kopieren.
Ich habe folgenden Code mit dem Makro Recorder aufgenommen.
Range("C1").Select
Selection.Copy
Windows("Einlagerung.xls").Activate
Cells.Find(What:="70325", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Range("C10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Mappe3").Activate
Range("D1:D6").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Einlagerung.xls").Activate
Range("D10:D15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Mappe3").Activate
ActiveWindow.WindowState = xlNormal
Range("E1:E6").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Einlagerung.xls").Activate
Range("F10:F15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
Range("B1").Select
End Sub
In der eingabe Tabelle wird über einen sverweis eine Artikel Nummer (es sind ca. 50 Artikel) angezeigt.
Diese Artikelnummer muss dann immer in der zu speichernden Tabelle aufgesucht werden.
Nun weiß ich aber nicht wie ich in den Code integrieren könnte (Makro Rekorder?) wenn in der eingabe Tabelle b1=70325, dann suche in der zu speichernden Tabelle die spalte mit der gleichen artikelnummer.
Kann evtl. jemand weiter helfen?
Mit freundlichen Gruß Mayk