Microsoft Excel

Herbers Excel/VBA-Archiv

Laufzeitfehler 91 bei Cells.Find

Betrifft: Laufzeitfehler 91 bei Cells.Find von: stormlamp
Geschrieben am: 29.09.2014 19:16:33

Hallo Zusammen,

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
Gruß
Hans

  

Betrifft: AW: Laufzeitfehler 91 bei Cells.Find von: stormlamp
Geschrieben am: 29.09.2014 19:22:23

Hat sich erledigt, danke.


  

Betrifft: Warum markierst du den Beitrag dann als offen? owT von: Martin
Geschrieben am: 29.09.2014 23:50:45




 

Beiträge aus den Excel-Beispielen zum Thema "Laufzeitfehler 91 bei Cells.Find"