Excel 2016 vba Fehler 1004 - Anwendungsdefinierter oder objektdefinierter Fehler bei Indexerstellung

Question

Ich habe gerade ein Problem mit Excel-Arbeitsmappe, die ich zuerst mit Excel 2010 erstellt und seit fast 2 Jahren verwendet, IT aktualisiert unsere Bürocomputer und jetzt Ich habe win10 mit Büro 2016 installiert.

VBA-Code, ich verwende:

Private Sub Worksheet_Activate() 
Dim wSheet As Worksheet 
Dim l As Long 

l = 1 

    With Me 
     .Columns(1).ClearContents 
     .Cells(1, 1) = "INDEX" 
     .Cells(1, 1).Name = "Index" 
    End With 


    For Each wSheet In Worksheets 
     If wSheet.Name <> Me.Name Then 
      l = l + 1 
       With wSheet 
        .Range("A1").Name = "Start_" & wSheet.Index 
        .Hyperlinks.Add Anchor:=.Range("A1"), Address:="", _ 
        SubAddress:="Index", TextToDisplay:="Back to Index" 
       End With 

       Me.Hyperlinks.Add Anchor:=Me.Cells(l, 1), Address:="", _ 
       SubAddress:="Start_" & wSheet.Index, TextToDisplay:=wSheet.Name 
     End If 
    Next wSheet 

End Sub 

Zeilen, die mit .Hyperlinks.Add Anker und SubAddress beginnt markiert Terekay wenn ich debuger öffnen ... Sie mir helfen? Vielen Dank ...

Answer 1

Schreiben Sie Hyperlinks.Add drücken Sie den Raum und schauen Sie sich die Parameter an. Wahrscheinlich werden einige von ihnen verändert aus dem Jahr 2010. Dann wird Ihren Code nach der Änderung einstellen:

Oder schreiben debug.print wSheet.Index in der Zeile oberhalb und prüfen, ob es einen Fehler gibt. (Einfach hier raten.)