Excel Verbindungen löschen: Schritt-für-Schritt-Anleitung
Schritt-für-Schritt-Anleitung
Um alle Verbindungen in Excel zu löschen, kannst du ein einfaches VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung, wie du das umsetzen kannst:
-
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.
-
Klicke im Menü auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.
-
Kopiere den folgenden Code in das Modul:
Sub Verbindungen_löschen()
Dim n As Integer
For n = ThisWorkbook.Connections.Count To 1 Step -1
If ThisWorkbook.Connections(n).Name Like "*Verbindung*" Then
ThisWorkbook.Connections(n).Delete
End If
Next
End Sub
-
Schließe den VBA-Editor und kehre zu Excel zurück.
-
Führe das Makro aus, indem du ALT + F8 drückst, das Makro auswählst und auf Ausführen klickst.
Mit diesem Makro kannst du alle Excel Verbindungen löschen, die im Menü unter Daten angezeigt werden.
Häufige Fehler und Lösungen
-
Laufzeitfehler 13: Typen unverträglich
Dieser Fehler tritt auf, wenn der Datentyp nicht korrekt ist. Stelle sicher, dass du die Variable n im ersten Code-Snippet als WorkbookConnection deklarierst, oder verwende die alternative Zählschleife, wie im zweiten Beispiel von Jürgen.
-
Keine Verbindungen gefunden
Wenn du keine Verbindungen löschen kannst, überprüfe, ob die Verbindung tatsächlich im Workbook existiert. Du kannst dies unter Daten > Verbindungen überprüfen.
Alternative Methoden
Falls du kein VBA verwenden möchtest, kannst du die Excel Datenverbindungen auch manuell löschen:
- Gehe zu
Daten > Verbindungen.
- Wähle die Verbindung aus, die du entfernen möchtest.
- Klicke auf
Löschen und bestätige die Aktion.
Das manuelle Löschen ist weniger effizient, wenn du viele Verbindungen hast, aber es ist eine einfache Methode.
Praktische Beispiele
Hier sind einige praktische Beispiele, wie du Excel externe Datenverbindungen löschen kannst:
-
Beispiel 1: Löschen aller Verbindungen, die „Daten“ im Namen haben.
Sub Datenverbindungen_löschen()
Dim n As Integer
For n = ThisWorkbook.Connections.Count To 1 Step -1
If ThisWorkbook.Connections(n).Name Like "*Daten*" Then
ThisWorkbook.Connections(n).Delete
End If
Next
End Sub
-
Beispiel 2: Löschen aller externen Datenverbindungen.
Sub Externe_Datenverbindungen_löschen()
Dim conn As WorkbookConnection
For Each conn In ThisWorkbook.Connections
If conn.Type = xlConnectionTypeODBC Then
conn.Delete
End If
Next
End Sub
Tipps für Profis
- Backup erstellen: Stelle sicher, dass du eine Sicherungskopie deiner Datei machst, bevor du Datenverbindungen löscht.
- Automatisierung: Du kannst das Makro so anpassen, dass es automatisch beim Öffnen deiner Arbeitsmappe ausgeführt wird, um veraltete Verbindungen sofort zu entfernen.
- Fehlersuche: Verwende
Debug.Print im Code, um den Namen der Verbindungen anzuzeigen, die gelöscht werden sollen, für eine bessere Fehlersuche.
FAQ: Häufige Fragen
1. Wie kann ich alle Verbindungen in Excel auf einmal löschen?
Verwende das VBA-Makro, das in der Schritt-für-Schritt-Anleitung beschrieben ist, um alle Excel Verbindungen effizient zu löschen.
2. Was mache ich, wenn mein Makro nicht funktioniert?
Überprüfe den Code auf Tippfehler oder falsche Datentypen. Achte auch darauf, dass die Verbindungen tatsächlich im Workbook vorhanden sind.