Copy destination läuft nicht mehr nach Umstellung
claudia
ich habe ein kleines Sub, das unter meinem Excel2003 ohne Problem lief, nach der Umstellung auf 2010 leider nicht mehr. Er bleibt bei dem Copy stehen, die Werte anfang & ende sind gefüllt (2 & 374), Typ & Seite werden natürlich übergeben...
Habe Ihr eine Idee warum?
Sub cut_paste(Typ, Seite)
Set ws = Worksheets(Seite)
Set anfang = Columns("B:B").Find(Typ)
If Not anfang Is Nothing Then
Set ende = Columns("B").Find(What:=Typ, After:=anfang, SearchDirection:=xlPrevious)
Range("A" & anfang.Row, "A" & ende.Row).Copy _
Destination:=ws.Range("A65536").End(xlUp).Offset(1,0)
Rows(anfang.Row & ":" & ende.Row).Delete Shift:=xlUp
End If
End Sub
Bester Dank,
Claudia