Excel: So beheben Sie defekte Verknüpfungen
In Excel werden häufig Verknüpfungen zu anderen Arbeitsmappen genutzt, um auf relevante Informationen zu verweisen. Wird jedoch eine Quellarbeitsmappe umbenannt oder an einen anderen Speicherort verschoben, können diese Verknüpfungen beschädigt werden und zu Fehlern führen. Dieses Tutorial stellt zwei effektive Methoden vor – die Nutzung der Funktion „Verknüpfungen bearbeiten“ oder von VBA-Code –, um defekte Verknüpfungen in Ihrer Arbeitsmappe schnell zu erkennen und zu beheben.
Beheben Sie defekte Verknüpfungen ganz einfach mit der Funktion „Verknüpfungen bearbeiten“.
Beheben Sie defekte Verknüpfungen ganz einfach mit VBA-Code.
In Excel gelangen Sie zum Dialogfeld „Verknüpfungen bearbeiten“, um diese einzeln zu korrigieren.
1. Öffnen Sie die Arbeitsmappe mit den defekten Verknüpfungen und klicken Sie auf Daten > Verknüpfungen bearbeiten(in der Gruppe)Abfragen und Verbindungen).
2. Klicken Sie im Dialogfeld Verknüpfungen bearbeiten auf Status überprüfen, um herauszufinden, welche Verknüpfungen defekt sind.
3. Klicken Sie dann auf die defekten Verknüpfungen und anschließend auf die Schaltfläche Quelle ändern. Wählen Sie im Fenster Quelle ändern die korrekte Quellarbeitsmappe aus und klicken Sie auf OK.
Nun sehen Sie, dass sich der Status von Fehler auf OK geändert hat. Wiederholen Sie Schritt 3, um weitere defekte Verknüpfungen zu beheben.
Dieser Abschnitt stellt einen VBA-Code vor, der Ihnen beim Beheben defekter Verknüpfungen hilft.
1. Öffnen Sie die Arbeitsmappe, deren defekte Verknüpfungen Sie beheben möchten, und drücken Sie die Tasten Alt+F11.
2. Klicken Sie im erscheinenden Fenster Microsoft Visual Basic für Applikationen auf Einfügen > Modul, um ein neues leeres Modul zu erstellen.
3. Kopieren Sie den folgenden Code, und fügen Sie ihn in das neue Modul ein.
VBA: Defekte Verknüpfungen beheben
Sub ResetInvalidLinks()
'UpdatedbyExtendoffice20220701
Dim xWB As Workbook
Dim xLks As Variant
Dim xFNum, xStatus As Integer
Dim xStrLk, xLinAddress As String
Dim xF
Dim xLk
Set xWB = Application.ActiveWorkbook
xLks = xWB.LinkSources(xlExcelLinks)
If IsEmpty(xLks) Then
MsgBox "Select updated source"
Exit Sub
End If
On Error Resume Next
For xFNum = LBound(xLks) To UBound(xLks)
xStrLk = xLks(xFNum)
xStrLk = Right(xStrLk, Len(xStrLk) - InStrRev(xStrLk, "\"))
xStatus = ActiveWorkbook.LinkInfo(xStrLk, xlLinkInfoStatus)
If xStatus <> 0 And xStatus <> 3 Then
MsgBox xStrLk & " the link is broken, please select new source"
xF = Application.GetOpenFilename()
If xF <> "" Then
For Each xLk In ActiveSheet.UsedRange.Hyperlinks
xLinAddress = Right(xLk.Address, Len(xLk.Address) - InStrRev(xLk.Address, "\"))
If InStr(xStrLk, GetAddress) <> 0 Then
ActiveSheet.Hyperlinks.Add Anchor:=xLk.Range, Address:=xF
End If
Next
ActiveWorkbook.ChangeLink xLks(xFNum), xF, xlLinkTypeExcelLinks
End If
End If
Next
End Sub
4. Drücken Sie die Taste F5 oder klicken Sie auf die Schaltfläche Ausführen
, um den Code auszuführen. Es wird nun nach defekten Verknüpfungen gesucht. Falls welche gefunden werden, erscheint ein Dialogfeld mit der Information, welche Verknüpfung defekt ist, und Sie werden aufgefordert, eine neue Quelle anzugeben. Klicken Sie auf OK, um fortzufahren.
5. Wählen Sie im Fenster Öffnen die aktualisierte Quelle aus und klicken Sie auf OK.
Sollte weiterhin eine defekte Verknüpfung in der Arbeitsmappe vorhanden sein, erscheinen die oben genannten Dialogfelder erneut – bis alle ungültigen Verknüpfungen behoben sind.
Hinweis: Ist keine defekte Verknüpfung in der Arbeitsmappe vorhanden, wird der VBA-Code nach der Ausführung beendet.
Tipp: Wenn Sie alle externen Verknüpfungen anzeigen und defekte Verknüpfungen entfernen möchten, ist die Kutools für Excel-Funktion „Verknüpfungen suchen und trennen“ ein wertvoller Helfer.
Weitere Informationen zu dieser Funktion finden Sie in unserem ausführlichen Tutorial.
Kutools für Excel– Erweitern Sie Excel mit über 300 unverzichtbaren Tools, um Ihre Arbeit schneller und einfacher zu erledigen, und nutzen Sie KI-Funktionen für intelligentere Datenverarbeitung und höhere Produktivität.Jetzt herunterladen
So reparieren/sperren Sie Hintergrundfarbe in einem Arbeitsblatt
Manchmal möchten Sie beim gemeinsamen Bearbeiten eines Blatts mit anderen Benutzern die Hintergrundfarbe eines Zellbereichs schützen, um unerwünschte Änderungen zu verhindern.
Wie reduzieren Sie die Dateigröße einer Excel-Datei?
Manchmal dauert das Öffnen oder Speichern einer Excel-Datei mehrere Minuten, wenn sie zu groß ist. In diesem Tutorial zeigen wir Ihnen, wie Sie die Dateigröße effektiv verringern – indem Sie ungenutzte Inhalte und überflüssige Formatierungen entfernen.
Excel: So erstellen oder fügen Sie ein Lesezeichen ein
Haben Sie sich jemals vorgestellt, ein Lesezeichen zu erstellen oder einzufügen, um schnell zu einem bestimmten Datenbereich zu springen, wenn ein Arbeitsblatt oder eine Arbeitsmappe viele Daten enthält?
Wie färbt man ungerade oder gerade (abwechselnde) Zeilen/Spalten in Excel?
Beim Gestalten eines Arbeitsblatts färben viele Benutzer:innen ungerade oder gerade (abwechselnde) Zeilen oder Spalten ein, um das Arbeitsblatt übersichtlicher zu gestalten. Dieser Artikel zeigt Ihnen zwei Methoden, um ungerade oder gerade Zeilen/Spalten in Excel einzufärben.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins