Hi again.
Ich weiß beim besten Wille nicht wo jetzt, nach der Beschreibung was zu tun ist, noch das Problem liegen soll - außer vielleicht in bestehender Faulheit?
Du hattest es doch schon fast!!
Das hier sollte funktionieren, ist aber nicht die allerbeste Lösung in Sachen Bearbeitungsgeschwindigkeit.
Option Explicit
Sub Test()
Dim wksG As Excel.Worksheet
Dim wksZ As Excel.Worksheet
Dim iZ As Long
Dim iG As Long
Set wksZ = ThisWorkbook.Worksheets("Zusammen")
Set wksG = ThisWorkbook.Worksheets("Geschwindigkeit")
For iZ = wksZ.UsedRange.Row To wksZ.UsedRange.Rows.Count
For iG = wksG.UsedRange.Row To wksG.UsedRange.Rows.Count
If wksG.Cells(iG, "Q").Text = wksZ.Cells(iZ, "A").Text _
And wksG.Cells(iG, "R").Text = wksZ.Cells(iZ, "B").Text _
Then
wksZ.Cells(iZ, "D").Value = wksG.Cells(iG, "N").Value
Exit For
End If
Next
Next
End Sub
PS: Du solltest sicherstellen das in den Zellen keine Leerzeichen am Anfang oder Ende enthalten sind, da sonst der Vergleich fehlschlägt (könnte man mit Trim$() noch beheben).
|