Ich habe folgendes Problem:
Ich habe zwei Excel Dateien (Datei1 und Datei2 )
In Datei2 habe ich in jeder Zeile eine bestimmte Ware. (Ganze Zeile gehört immer zu der Ware, welche in der B Spalte eine bestimmte Nummer hat)
In Date 1 gebe ich jetzt in der D Spalte die gewünschte Artikelnummer (welche in Datei2 in der B Spalte steht) ein.
Jetzt versuche ich mit einem Makro, das Excel mir die Zeile mit der entsprechenden Nummer raussucht, und mir dann zb. Von Datei2 bestimmte Werte rüberkopiert (zb. Wert von der Spalte C und D nach Datei1 in Spalte E und F)
Und zum Schluss soll das Makro die Zeile in der Datei2 löschen (welche Dateien ich zuvor copiert habe)
Kann mir da jemand weiterhelfen?
Danke schon mal an alle.
Sub transfer()
Dim robj As Range
transferdatei = „C:\Daten1.xls“
referenzspaltehier = 1 ’ Referenzwert für die Spalte in dieser Datei (also Spalte A)
referenzspalteda = 2 ’ Wo sind die Werte in der anderen Datei zu finden (also Spalte B)
spalteda = Array(1, 3) ’ Welche Spalten sind zu kopieren (also Spalte A und Spalte C)
zeilenda = 1000 ’ Anzahl vorhandener Zeilen in der anderen Datei
zeilenhier = 3 ’ Anzahl der Zeilen hier
Set hierdat = ActiveSheet
Set dadat = Application.Workbooks.Open(transferdatei)
For i = 1 To zeilenhier
t1 = hierdat.Cells(i, referenzspaltehier)
Set c = dadat.Worksheets(1).Range(Cells(1, referenzspalteda), _
Cells(zeilenda, referenzspalteda)).Find(t1, _
LookIn:=xlValues)
If (VarType© 9) Then
For j = 0 To UBound(spalteda)
hierdat.Cells(i, referenzspaltehier + 1 + j) = dadat.Worksheets(1).Cells(c.Row, spalteda(j))
Next j
dadat.Worksheets(1).Rows(c.Row).Select
Selection.Delete Shift:=xlUp
End If
Next i
dadat.Close
Set dadat = Nothing
End Sub
Viel Erfolg
Klaus
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Danke für deine Formel.
Werde sie gleich ausprobieren.
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]