Laufzeitfehler 91 bei Cells.Find
29.09.2014 21:16:33
stormlamp
nachdem ich bei einem anderen Beitrag keine endgültige Lösung gefunden habe, hier nochmals die Bitte um Hilfe.
Ich laufe bei diesem Script bei "Cells.Find.." auf Laufzeitfehler 91.
Was muss ich machen, damit das nicht passiert?
Sub Bereichkopieren()
Range("E:E").Select
Cells.Find(What:="#NV", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Range(Cells(2, 1), ActiveCell.Offset(-1, 6)).Copy
Sheets("Tabelle2").Select
Range("A1").Select
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveSheet.Paste
Sheets("Tabelle1").Select
Range("B2").Select
Application.CutCopyMode = False
End Sub
Hans
Anzeige