kann mir bitte jemand sagen, wie der Makro lauten muß, damit nicht die gesamten Spalten A in beiden TB, sondern in beiden TB jeweils der Bereich A1:A3000 verglichen und kopiert wird.
Sub Übertragen()
Dim i As Long
Dim j As Long
For j = 1 To Worksheets("Kunden").UsedRange.Rows.Count
For i = 1 To Worksheets("Liste").UsedRange.Rows.Count
If Worksheets("Liste").Cells(i, 1) = Worksheets("Kunden").Cells(j, 1) Then
If IsEmpty(Worksheets("Liste").Cells(i, 4)) Then
Worksheets("Liste").Cells(i, 4) = Worksheets("Kunden").Cells(j, 25)
End If
End If
Next
Next
End Sub
Vielen Dank für die Hilfe
Grüße
Georg