Wie kopiere ich Daten, wenn ich jeder Zeile in einer Spalte eine Nummer zugewiesen habe, ordnen Sie diese Spaltendaten mit einer anderen Spalte unter Verwendung der Nummer in der dritten Spalte in VBA zu?

Question

Abhängig von der Nummer der Zuordnungsnummer sollten die Daten von Name2 der Spalte Name zugeordnet werden.

Ich bekomme keine Ahnung, wie dies in VBA zu erreichen ...... plz helfen Sie mir ....

Vielen Dank im Voraus

Answer 1

sollte das sein, was Sie nach

Dim findMappingNo As Range 
Dim mapNum As Integer 

For i = 2 to 11 

    Range("A" & i).Copy Destination:= Range("H" & i) 

    mapNum = Range("D" & i).Value 
    Set findMappingNo = Range("B2:B11").Find(what:=mapNum) 

    If Not findMappingNo Is Nothing Then 
     Range("C" & findMappingNo.Row).Copy Destination:= Range("I" & i) 
    End if 

Next i 

Wenn Sie die Ergebnisliste wollen auf einem anderen Blatt zu sein, legen Sie einfach den Blattnamen zu Beginn der Bereiche, dh

Sheets("Sheet1").Range("A" & i).Copy Destination:= Sheets("Sheet2").Range("H" & i)