Abfragen und Verbindungen in Excel löschen
Schritt-für-Schritt-Anleitung
Um in Excel Abfragen und Verbindungen zu löschen, kannst Du ein VBA-Skript verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:
-
Öffne Excel und drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
-
Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.
-
Kopiere den folgenden Code in das Modul:
Sub Verbindungen_Loeschen()
Dim wb As Workbook, objConnection As Variant, varAuswahl As Long
Dim qt As QueryTable
Dim ws As Worksheet
Set wb = ActiveWorkbook
' Löschen der Verbindungen
For Each objConnection In wb.Connections
varAuswahl = MsgBox(prompt:="Name: " & objConnection.Name & vbLf & vbLf _
& "Diese Verbindung löschen?", _
Buttons:=vbQuestion + vbYesNoCancel, Title:="Daten-Verbindungen löschen")
Select Case varAuswahl
Case vbYes
Application.DisplayAlerts = False
objConnection.Delete
Application.DisplayAlerts = True
Case vbNo
' Nichts tun
Case vbCancel
Exit For
End Select
Next
' Löschen der QueryTables
For Each ws In wb.Worksheets
For Each qt In ws.QueryTables
If qt.Refreshing Then qt.CancelRefresh
qt.Delete
Next
Next
End Sub
-
Schließe den VBA-Editor und gehe zurück zu Excel.
-
Drücke ALT + F8, wähle Verbindungen_Loeschen aus und klicke auf Ausführen.
Nun sollten sowohl die Verbindungen als auch die Abfragen gelöscht sein.
Häufige Fehler und Lösungen
Alternative Methoden
Neben VBA gibt es auch die Möglichkeit, externe Datenverbindungen manuell zu löschen:
- Gehe zum Reiter
Daten.
- Klicke auf
Abfragen und Verbindungen.
- Wähle die Verbindung, die Du löschen möchtest, mit der rechten Maustaste aus und klicke auf
Löschen.
Diese Methode eignet sich gut, wenn Du nur gelegentlich Verbindungen löschen möchtest.
Praktische Beispiele
Hier sind einige praktische Beispiele, wie Du den VBA-Code anpassen kannst:
-
Löschen aller Verbindungen ohne Bestätigung:
Sub Alle_Verbindungen_Loeschen()
Dim wb As Workbook
Set wb = ActiveWorkbook
For Each objConnection In wb.Connections
objConnection.Delete
Next
End Sub
-
Löschen spezifischer QueryTables:
Sub Spezifische_QueryTables_Loeschen()
Dim ws As Worksheet
Set ws = ActiveSheet
For Each qt In ws.QueryTables
If qt.Name = "DeinQueryName" Then qt.Delete
Next
End Sub
Tipps für Profis
- Backup erstellen: Bevor Du Verbindungen löschst, erstelle eine Sicherungskopie der Arbeitsmappe.
- Regelmäßige Überprüfung: Überprüfe regelmäßig, welche Verbindungen in Deiner Arbeitsmappe aktiv sind, um die Übersicht zu behalten.
- VBA optimieren: Optimiere Deinen VBA-Code zur besseren Performance, indem Du unnötige Schleifen vermeidest.
FAQ: Häufige Fragen
1. Wie kann ich externe Datenverbindungen in Excel löschen?
Du kannst externe Datenverbindungen über den Tab Daten unter Abfragen und Verbindungen löschen oder einen VBA-Code verwenden, wie oben beschrieben.
2. Was passiert, wenn ich eine Verbindung lösche?
Wenn Du eine Verbindung löschst, werden alle damit verbundenen Daten und Abfragen entfernt. Stelle sicher, dass Du diese Daten nicht mehr benötigst.
3. Kann ich alle Verbindungen auf einmal löschen?
Ja, mit dem entsprechenden VBA-Skript kannst Du alle Verbindungen in Deiner Arbeitsmappe auf einmal löschen.
