Makro läuft sich Wolf
18.11.2005 12:05:17
achim
wer kann mal schauen
Makro funzt aber läuft sich ein Wolf.
Daten sind bis Zelle 2000 vorhanden.
Geht das Makro schneller:
Sub mach ()
Dim arr As Variant
Dim s As Integer
arr = Range("AH2", "AH" & Range("A65536").End(xlUp).Row)
For s = 2 To Range("A65536").End(xlUp).Row
For t = 1 To UBound(arr)
If Cells(s, 20) = arr(t, 1) Then
Cells(s, 17) = arr(t, 1)
End If
Next t
Next s
End Sub
Dankr gruß
achim h.