Externe Verknüpfungen löschen

Forumthread: Externe Verknüpfungen löschen

Franz

Hallo Freunde,
habe dies gefunden:

Public Sub ListExternalLinks1()
Dim avarLinks As Variant
Dim intCounter As Integer
Dim wksSheet As Worksheet
avarLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(avarLinks) Then
Set wksSheet = ActiveWorkbook.Worksheets.Add
With wksSheet
.Range("A1").Value = "Externe Verknüpfungen (Excel-Verknüpfungen)"
.Range("A1").Font.Bold = True
.Range("A3:B3").Value = Array("Nr.", "Quelle")
.Range("A3:B3").Font.Bold = True
For intCounter = 1 To UBound(avarLinks)
.Cells(intCounter + 3, 1).Value = intCounter            'Anzahl
.Cells(intCounter + 3, 2).Value = avarLinks(intCounter) 'Quelle
.Cells(intCounter + 3, 3).Value = avarLinks(intCounter).Address 'Wie ist die lokale  _
Adresse ?
Next intCounter
End With
Else
MsgBox "Es sind keine Excel-Verknüpfungen vorhanden.", vbInformation
End If
wksSheet.Columns("B").AutoFit
Set wksSheet = Nothing
End Sub

Wie bekomme hier noch die Adresse in Form von "SheetName/Zeile/Spalte"? damit ich Sie manuell löschen kann? Mit VBA wäre natürlich besser.
Wer kann mir helfen? Bis Morgen!
Tschüss!
Franz D.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Externe Verknüpfungen löschen

13.11.2010 20:48:57

ransi

Hallo
Ich glaube da bist zu umständlich unterwegs.
Teste mal sowas:

Dim aLinks As Variant
Dim Ding
aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
For Each Ding In aLinks
ActiveWorkbook.BreakLink Ding, xlLinkTypeExcelLinks
Next

ransi

AW: Externe Verknüpfungen löschen

14.11.2010 12:39:41

Franz

Hallo und Danke Ransi,
Die Sub geht bei mir nicht. Beim Neustart kommt die Bestätigung von vorhandenen Links, mit diesem Code auch.

Public Sub CheckIfExternalLinksExist1()
Dim avarLinks As Variant
avarLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(avarLinks) Then
MsgBox "Es sind Excel-Verknüpfungen vorhanden."
Else
MsgBox "Es sind keine Excel-Verknüpfungen vorhanden."
End If
End Sub

Kannst du mir weiter helfen?
Gruß
Franz D.

AW: Externe Verknüpfungen löschen

15.11.2010 15:05:09

Jutta

Hallo,
ich nehme immer das:

Sub ExterneVerknüpfungenExcelLoeschen()
Dim Tab1 As Object
Dim Cell1 As Object
Dim AlleFormeln As Object
On Error GoTo Fehlerbehandlung
For Each Tab1 In ActiveWorkbook.Worksheets
Set AlleFormeln = Tab1.Cells.SpecialCells(xlFormulas, 23)
For Each Cell1 In AlleFormeln
If InStr(Cell1.Formula, "\") > 0 Then
If Cell1.HasArray Then
Cell1.CurrentArray.Select
Selection.Copy
Else
Cell1.Formula = Cell1.Value
End If
End If
Next Cell1
Next Tab1
Exit Sub
Fehlerbehandlung:
If Err = 1004 Then Resume Next Else
Resume Next
End Sub

Gruß
Jutta

AW: Externe Verknüpfungen löschen

16.11.2010 00:10:21

Franz

Hallo Jutta,
danke schön für deine Tipps. Kann momentan leider nichts testen. Melde mich wieder zurück!
Tschüss!
Franz D.

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um externe Verknüpfungen in Excel zu löschen, kannst du die folgenden Schritte befolgen:

Öffne deine Excel-Datei.
Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste im Projektfenster und wähle Einfügen > Modul.

Kopiere den folgenden VBA-Code in das Modul:

Sub ExterneVerknüpfungenLoeschen()
   Dim aLinks As Variant
   aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
   If Not IsEmpty(aLinks) Then
       For Each Link In aLinks
           ActiveWorkbook.BreakLink Link, xlLinkTypeExcelLinks
       Next Link
       MsgBox "Alle externen Verknüpfungen wurden gelöscht."
   Else
       MsgBox "Es sind keine externen Verknüpfungen vorhanden."
   End If
End Sub

Schließe den VBA-Editor und kehre zu Excel zurück.
Führe das Makro aus: Gehe zu Entwicklertools > Makros, wähle ExterneVerknüpfungenLoeschen aus und klicke auf Ausführen.

Diese Schritte helfen dir, alle externen Verknüpfungen zu löschen und sicherzustellen, dass deine Excel-Datei keine unerwünschten Verbindungen mehr hat.

Häufige Fehler und Lösungen

Fehler: "Excel-Verknüpfungen löschen nicht möglich"
Lösung: Stelle sicher, dass die Datei nicht schreibgeschützt ist und keine geschützten Blätter vorhanden sind. Deaktiviere ggf. den Blattschutz.
Fehler: VBA-Code funktioniert nicht
Lösung: Überprüfe, ob du den Code korrekt in das Modul eingefügt hast. Achte darauf, dass keine Syntaxfehler vorhanden sind.
Hinweis: Bestätigungsbox für Links erscheint
Lösung: Um diese Box zu vermeiden, solltest du sicherstellen, dass alle Verknüpfungen korrekt gebrochen werden, bevor du die Datei speicherst.

Alternative Methoden

Manuelles Löschen von Verknüpfungen:
- Gehe zu Daten > Verbindungen und entferne die Verknüpfungen manuell.
Excel 2010 spezielle Methode:
- In Excel 2010 kannst du über Daten > Verknüpfungen bearbeiten gehen und dort die externen Verknüpfungen entfernen.
Verwendung von Excel-Funktionen:
- Du kannst die Funktion WECHSELN verwenden, um Verweise auf externe Quellen in Zellen zu ändern.

Praktische Beispiele

Um eine externe Verknüpfung zu einer spezifischen Datei zu löschen, kannst du den folgenden VBA-Code verwenden:
```
Sub VerknuepfungLoeschen()
   ActiveWorkbook.BreakLink "C:\Pfad\Zur\Datei.xlsx", xlLinkTypeExcelLinks
End Sub
```

Um alle externen Quellen in einer Tabelle zu finden, kannst du diesen Code nutzen:

Sub ExterneLinksFinden()
   Dim avarLinks As Variant
   avarLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
   If Not IsEmpty(avarLinks) Then
       For Each Link In avarLinks
           Debug.Print Link ' Gibt die Verknüpfungen im Direktfenster aus
       Next Link
   End If
End Sub

Tipps für Profis

Verwende ActiveWorkbook.LinkSources, um schnell alle externen Verknüpfungen zu finden, bevor du sie löschst.
Sichere deine Datei, bevor du Massenänderungen vornimmst.
Nutze die Funktion Option Explicit am Anfang deines VBA-Moduls, um sicherzustellen, dass alle Variablen deklariert werden.

FAQ: Häufige Fragen

1. Wie finde ich alle externen Verknüpfungen in Excel?
Du kannst den VBA-Code verwenden, um alle externen Verknüpfungen aufzulisten. Siehe das Beispiel im Abschnitt "Praktische Beispiele".

2. Was passiert, wenn ich eine externe Verknüpfung lösche?
Wenn du eine externe Verknüpfung löschst, wird der Bezug zur externen Datei entfernt, und die Zelle zeigt nur noch den letzten berechneten Wert an.

3. Kann ich externe Verknüpfungen auch in Excel 2010 löschen?
Ja, die oben genannten Methoden funktionieren auch in Excel 2010. Überprüfe die Menüoptionen unter Daten.

Beliebteste Forumthreads (12 Monate)

Forumthread: Externe Verknüpfungen löschen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Externe Verknüpfungen in Excel löschen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Externe Verknüpfungen löschen

Forumthread: Externe Verknüpfungen löschen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Externe Verknüpfungen in Excel löschen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread