Vergleich per Makro
25.04.2016 15:34:51
Ma
mein Problem liegt im Vergleich eines Wertes (Artikelnummer) in einer Matrix (mit Artikelnummern). Ich möchte per Makro ein Excel Sheet aktualisieren. Ich habe also eine Maske erstellt (siehe Datei) in der die Werte wöchentlich aus einer anderen Exceldatei(aus einem ERP System gezogen; Name Report707) zu aktualisieren sind.
Dabei soll die in der oberen linken Ecke stehende Artikelnummer(z.B. 00001) mit denen aus dem Report verglichen werden. Wenn diese Übereinstimmen sollen die Werte der entsprechenden Range z.B. für 00001--> D10:R14 aus dem Report (siehe Datei Sheet Report) kopiert und in die Maske an entsprechender Stelle für 00001 eingefügt werden.
Da ich blutiger Anfänger im VBA bin benötige ich dabei eure Hilfe. Ich denke für die Profis unter euch wird das ein Kinderspiel sein ;p
Mein bisheriger Code schaut so aus:
Private Sub Update_Click()
Dim wb As Excel.Workbook
Dim scr As Worksheet
Dim dst As Excel.Worksheet
Set wb = ActiveWorkbook
Set src = Workbooks.Open("C:\Users\Desktop\Report707.xlsx")
Set dst = wb.Sheets("Maske")
Dim i As Integer
Dim lngUZeile As Long
lngUZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 15 To lngUZeile Step 12
If dst.Cells(i, 1) = src.Sheets("Report").Cells("A15:A2000") Then
src.Activate
src.Sheets("Report").Range("Di+6:Oi+10").Select
Selection.Copy
dst.Cells(i + 6, 4).Select
ActiveSheet.PasteSpecial xlValues
End If
Next i
Workbooks("Report707.xlsx").Close savechanges:=False
End Sub
Datei: https://www.herber.de/bbs/user/105225.xlsm