ich habe zwei Tabellenblätter. Im zweiten Tabellenblatt "Einlesen" sind die aktuellen Daten.(Wagennummer, KM, Datum) Nun sollen diese in das erste Tabellenblatt "Anlagen" kopiert werden.
Bedingung: Die Wagennummer(Spalte B/Spalte A) muss gleich sein.
Problem: Die Wagennummer existiert mehrfach.
Mit meinem Script funktioniert es zwar, aber durch die Schleifen dauert das ewig da die Tabelle "Einlesen" bis zu 120 und die Tabelle "Anlagen" bis zu 800 Einträge hat.
Gibt es da eine schnellere Lösung?
Mein Script:
Sub einlesen_km()
Dim Z As Integer
Dim Zz As Integer
Dim i As Integer
Dim ii As Integer
Z = Sheets("Einlesen").UsedRange.Rows.Count
Zz = Sheets("Anlagen").UsedRange.Rows.Count
For i = 6 To Z
'Sheets("Einlesen").Cells(1, 1) = i
For ii = 7 To Zz
'Sheets("Einlesen").Cells(1, 2) = ii
If Sheets("Anlagen").Cells(ii, 2) = Sheets("Einlesen").Cells(i, 1) Then
Sheets("Anlagen").Cells(ii, 11) = Sheets("Einlesen").Cells(i, 2)
Sheets("Anlagen").Cells(ii, 12) = Sheets("Einlesen").Cells(i, 3)
End If
Next ii
Next i
End Sub