Hallo, ich komme nicht weiter und brauche mal Unterstützung. Immer kommt Laufzeitfehler 91 wenn nichts gefunden wird.
Ich bin in Datei A, kopiere mir den zu suchenden Text und welchsle in Datei B.
Dort öffne ich die Suchbox und gebe den Text ein. Text wird gesucht. Bis hierher alles ok. Nun beginnt das Problem.
Text gefunden, alles gut
Text nicht gefunden, es kommt der Laufzeitfehler 91. Den möhte ich aber nicht sondern wieder zurück in die Datei A und den nächsten Text kopieren für die nächste Suche.
Mir fehlt einfach folgendes
Das sieht bisher so aus:
Windows("Datei-A.xlsx").Activate
Cells.Find(What:="A-Suche", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.End(xlToRight).Offset(0, 1).Select
Windows("Datei-B.xlsx").Activate
Range("A1").Select
Cells.Find(What:="A-Suche", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
----hier kommt dann der Laufzeitfehler 91---wenn er das nicht findet dann einfach in Datei A zurück und die nächste Suche---
ActiveCell.Offset(0, 1).Select
Selection.Copy
Windows("Datei-A.xlsm").Activate
ActiveSheet.Paste
ActiveCell.Offset(0, 0).Select
For Each Zelle In Selection
Zelle = Left(Zelle, Len(Zelle) - 3)
Next
Eine Hilfe wäre super toll. DANKE