Hallo zusammen,
mein Makro macht leider nicht das, was es soll, und ich weiß nicht wieso.
Mein Ziel ist es, dass, wenn in Liste 1 ein Wert gefunden wurde, er in Liste 2 kopiert wird, und zwar in die Zeile, wo der Schlüssel identisch ist.
Also so etwas wie: Liste 1, Range A3 hat den Wert 2. Finde in Liste 2, Spalte A, die Zeile, die den Wert 2 hat, und übernehme die ganze zugehörige Zeile aus Liste 1 in diese Zeile.
Mein Ansatz:
Ich habe den Suchbegriff so festgelegt, dass i die Spalte A in Liste 1 durchläuft.
For i = 3 To letztezeile1
strText = Range("A" & i).Value
'Gibt die Zeile aus L1 zurück, in der der gesuchte Begriff steht
Sheets("L1").Activate
With Sheets("L1")
Set m = .Range("A3:A" & letztezeile1).Find(strText, LookIn:=xlValues, lookat:=xlPart, _
SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
If Not m Is Nothing Then
Zeilein1 = m.Row 'Nummer der Zeile, in der Schlüssel gefunden
End If
End With
'Gibt die Zeile aus L2 zurück, in der der gesuchte Begriff steht
Workbooks("L2").Worksheets("Tabelle1").Activate
With Sheets("L2")
Set k = .Range("A3:A" & letztezeileL2).Find(strText, LookIn:=xlValues, lookat:=xlPart, _
SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
If Not k Is Nothing Then
ZeileinL2= k.Row 'Nummer der Zeile, in der Schlüssel in Abteilung gefunden
End If
End With
Jetzt weiß ich nicht, wie ich weitermachen kann. Ich suche etwas wie:
Kopiere die Zeile m in die Zeile k, wenn Liste1.Cells(m,1) = Liste2.Cells(k,1)
Kann mir jemand helfen? Vielen Dank!