Problem mit Makro

[nchristoph]

Guten Tag.

Ich hab gerade die Aufgabe zugeteilt gekriegt, die Preisliste meiner Firma zu erstellen.

Ich wollte jetzt per Makro den Index aktualisieren, leider krieg ich eine Fehlermeldung.

Hier ist erstmal die Funktion:

Sub IndexeinträgeInTextEinfügen()
    Documents.Open FileName:="m:\kepitp\Zentraldokumente2\INdexdatei.doc", ConfirmConversions:=False, _
        ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto
    If ActiveDocument.Tables.Count >= 1 Then
        Set eineTabelle = ActiveDocument.Tables(1)
        iAnzZellen = eineTabelle.Range.Cells.Count
        ReDim dZellen(iAnzZellen)
        I = 1
        For Each eineZelle In eineTabelle.Range.Cells
            Set meinBereich = eineZelle.Range
            meinBereich.MoveEnd Unit:=wdCharacter, Count:=-1
            dZellen(I) = meinBereich.Text
            I = I + 1
        Next eineZelle
    End If
    ActiveWindow.Close
    
    
    For I = 1 To (iAnzZellen)
        Selection.WholeStory
        Selection.Find.ClearFormatting
     '   ersetzungstext = dZellen(i) + " " + "J"
        Do While Selection.Find.Execute(FindText:=dZellen(I), Forward:=True, Format:=True) = True
            Selection.MoveRight Unit:=wdCharacter, Count:=1
            lsText = "XE """ + dZellen(I + 1) + """"
           Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
            lsText, PreserveFormatting:=False
        Loop
        I = I + 1 'i um 2 erhöhen
    Next I

    Erase dZellen
    
End Sub

Die Zeile fettgedruckte Zeile ist mein Problem. Ich kenne mich mit VBA nicht aus also kann ich nicht sagen was der Fehler ist.

Kann mir wer helfen?

mfg