Hallo XL-Profis,

habe in der Recherche einen nützlichen Code für meine Zwecke entdeckt und den gleich eingebaut. Was passt an dem untenstehenden Code denn nicht, daß ich immer wieder 'Laufzeitfehler - 9' gemeldet bekomme? Seh ich den Wald vor lauter Bäumen nicht mehr.....
Danke für die Inspirationen.

With Range(Cells(R, s), Cells(R + 55, s))
Set zelle = .Find("'S:\", LookIn:=xlFormulas)
If Not zelle Is Nothing Then
ersteAdresse = zelle.Address
Do
zelle.Copy
zelle.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Set zelle = .FindNext(zelle)
Loop While Not zelle Is Nothing And zelle.Address <> ersteAdresse
End If
End With