Hallo,
habe folgenden code der Super für meine Andwedung passt :)
Dim i As Integer
Dim Z As Integer
Dim suchwert As String
For Z = 2 To 144
suchwert = Worksheets("Teile").Cells(Z, 3)
For i = 2 To 5000
If Worksheets("Daten").Cells(i, 14) Like suchwert Then
Worksheets("Daten").Cells(i, 29) = Worksheets("Teile").Cells(Z, 2)
End If
Next
Next
Leider arbeitet Excel dabei ca 30 sec., gibt es die Möglichkeit einen Ladebalken anzeigen zu lassen und wenn ja wie geht das ?
Danke schon einmal !
Grüße
Andi
|