Entfernen von externen Phantomverknüpfungen in Excel

Für alle anderen, die Stunden damit verbracht haben, ihre Datei zu durchkämmen, kann das Problem auch bestehen, wenn Sie einen Datenüberprüfungsbereich aus einer anderen Arbeitsmappe kopiert haben.

Um das Problem zu beheben:

Ribbon–>Datei–>Prüfen auf Probleme–>Kompatibilität prüfen

Dadurch wird der Checker angezeigt, der Ihnen sagt, ob die Validierung auf ein externes Blatt verweist.

Am wichtigsten ist, dass es Ihnen sagt, auf welchem Blatt es sich befindet.

Wie auch immer, sobald Sie das Blatt bzw. die Blätter kennen, gehen Sie zu dem Blatt.

Ribbon–>Home–>Pfeil nach unten neben Suchen und Auswählen–>Datenüberprüfung.

Dadurch werden die Zellen ausgewählt, auf die die Datenüberprüfung angewendet wurde.

Jetzt

Multifunktionsleiste–>Daten–>Datenüberprüfung

und korrigieren Sie den fehlerhaften Verweis im Feld “Quelle”, oder klicken Sie auf “Alle löschen”, wenn Sie es nicht benötigen.

Am Ende habe ich das auf die Regeln für die bedingte Formatierung zurückgeführt.

Wenn man auf “Home - Bedingte Formatierung - Regeln verwalten” klickt, erscheint der folgende Dialog, den man relativ einfach durchsehen und die externen Referenzen ersetzen kann.

Wenn die Arbeitsmappe groß ist, ist es nicht einfach, die Formatbedingung mit externer Referenz zu finden. Ich habe diese VBA-Funktion geschrieben, um sie zu finden. Begrenzt auf 80 Spalten und 500 Zeilen, um die Ausführungszeit zu reduzieren. Wenn die Funktion stoppt, können Sie die Position überprüfen, indem Sie fragen:

?foglio.name
 ?cella.row
 ?cella.column

    Public Function CercaLink()
    Dim Cella As Object, i&, Foglio As Object
    For Each Foglio In ActiveWorkbook.Sheets
       ActiveWorkbook.Sheets(Foglio.Name).Select
       For Each Cella In ActiveSheet.Cells
         If Cella.Column < 80 Then
           If Cella.FormatConditions.Count > 0 Then
              For i = 1 To Cella.FormatConditions.Count
                 If InStr(1, Cella.FormatConditions(i).Formula1, ":\") > 0 Then Stop
              Next
           End If
        End If
        If Cella.Row > 500 Then Exit For
     Next
  Next
  End Function