ich möchte in meiner Arbeitsmappe "Lagerort" auf dem Tabellenblatt "Excel"
die Spalte A mit der Spalte C in der Arbeitsmappe "Werkgrundliste" auf dem
Tabellenblatt "Mengen" vergleichen.
In Spalte A stehen 5 stellige Artikelnr. und in Spalte C stehen auch 5 stellige Artikelnr. nur die reihenfolge ist eine andere.
Ich muss von der Arbeitsmappe "Werkgrundliste" nun die Zahl die in der gleichen Zeile in Spalte D steht in die Arbeitsmappe "Lagerort" in die Zeile mit der gleichen Artikelnr. in Spalte F übertragen.
Ich hoffe ihr habt mein Problem verstanden.
Dies ist bis jetzt der Code den ich habe aber er läuft nicht
danke schon mal für eure Mühe.
Holger
Sub Datenübernahme()
Dim ws1, ws2 As Worksheet
mappen1
Set ws1 = Worksheets("Excel")
mappen2
Set ws2 = Worksheets("Mengen")
'Workbooks.Open Filename:="Abverkauf.xls"
'Workbooks("Lagerortliste").Activate
mappen1
anz = ws1.Cells(Rows.Count, 1).End(xlUp).Row
anz1 = ws2.Cells(Rows.Count, 1).End(xlUp).Row
z1 = 2
z = 2
Do While z < anz
Do While z1 < anz1
If ws1.Cells(z, 1) = ws2.Cells(z1, 3) Then
ws1.Cells(z, 6) = ws2.Cells(z1, 4) '+ ws2.Cells(z, 6)
ws1.Cells(z, 7) = ws2.Cells(z1, 6) ' + ws2.Cells(z1, 5)
End If
z1 = z1 + 1
Loop
z = z + 1
z1 = 3
Loop
End Sub
Sub mappen2()
Dim z, sp As Integer
For z = 1 To Workbooks.Count
Name1 = Workbooks(z).Name
If Name1 = "Werkgrundliste.xls" Then
Workbooks("Werkgrundliste.xls").Activate
Exit For
End If
If z = Workbooks.Count Then
' muss an Ziel angepasst werden
Workbooks.Open FileName:="C:\Dokumente und Einstellungen\Holger\Eigene Dateien\Eigene Tabellen\Werkgrundliste.xls"
End If
Next
End Sub
Sub mappen1()
Dim z, sp As Integer
For z = 1 To Workbooks.Count
Name1 = Workbooks(z).Name
If Name1 = "Lagerortliste.xls" Then
Workbooks("Lagerortliste.xls").Activate
Exit For
End If
If z = Workbooks.Count Then
' muss an Ziel angepasst werden
Workbooks.Open FileName:="C:\Dokumente und Einstellungen\Holger\Eigene Dateien\Eigene Tabellen\Werkgrundliste.xls"
End If
Next
End Sub