zwei Spalten vergleichen und ggf. kopieren
Maxel
ich habe folgendes Problem, welches mich schon einiges an Zeit gekostet hat. Mir liegt eine sehr große Tabelle vor mit knapp 120.000 Einträgen. Datensatz 1 liegt in den Spalten A-Z, Datensatz 2 befindet sich in den Spalten AA-AW.
Verbunden sind diese "Datensätze" über jeweils einen Produktschlüssel, der sich in der Spalte A und AA befindet. Für den Fall, dass die Produktschlüssel übereinstimmen, möchte ich 5 Spalten vom Datensatz 2 in den Datensatz 1 kopieren.
Da meine VBA-Kenntnisse noch sehr bescheiden sind, habe ich nur folgenden Code hinbekommen, der _
einfach zu lange braucht um das Problem zu lösen.
Sub Combine_Produktschlüssel_()
Application.ScreenUpdating = False
For i = 2 To 120000
For j = 2 To 109200
If Cells(i, 1) = Cells(j, 27) Then
Cells(i, 8) = Cells(j, 29)
Cells(i, 9) = Cells(j, 30)
Cells(i, 10) = Cells(j, 32)
Cells(i, 11) = Cells(j, 35)
Cells(i, 12) = Cells(j, 37)
End If
Next j
Next i
Application.ScreenUpdating = True
End Sub
Wenn jemand einen Tipp hätte, wie ich das schneller hinbekommen könnte, wäre ich sehr dankbar.
Grüße Maxel