Ich nehme an, Du meinst diesen Abschnitt:
Sheets("Tabelle1").Select
ActiveSheet.Range("A1").Select
On Error GoTo fehler
' Suche nach keyword
ActiveSheet.Cells.Find(What:=keyword, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Select
Wenn ja, ersetzt ihn durch
With Workbooks(Myworkbook)
.Activate
.Sheets("Tabelle1").Select
ActiveSheet.Range("A1").Select
On Error GoTo fehler
' Suche nach keyword
ActiveSheet.Cells.Find(What:=keyword, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Select
End With
|