Oleautomation Fehler - MS Excel

[Fabia]

Guten Tag allerseits

Ich habe ein Programm mit VB6 erstellt mit dem man ein Excel Sheet nach einem Word durchsuchen und mit einem neuen Wort ersetzen kann. Leider bekomme ich immer die gleiche Fehlermeldung "Index ausserhalb des güliten Bereichs". Hier mein Code:

  Dim xlMappe As Object 'Excel.Workbook
   Dim xlBlatt As Object 'Excel.Worksheet
 
   Set xlApp = CreateObject("Excel.Application")
   xlApp.Visible = True
   Set xlMappe = xlApp.Workbooks.Open(strFilename)
   Set xlBlatt = xlMappe.Worksheets(1)
            
   ReplaceExcelText xlBlatt, "Altes Word"
 
 Public Sub ReplaceExcelText(objApplication As Object, strFind As String)
 
   objApplication.Cells.Replace What:=strFind, Replacement:="Neues Word", _
       LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
       False, ReplaceFormat:=False
 
 End Sub

Was ist hier schieff gegangen ? :-D

 

[Fabia]

niemand kann mir helfen :-(