Sehr geehrte Community,
Ich kämpfe mit einen Problem, Ich habe den Skript hier aus dem Forum zum Laufen gebracht meine Abfragen und Verbindungen werden jedoch nicht gelöscht die sind weiterhin vorhanden.
Was mache ich falsch?


Sub Verbindungen_Loeschen()
' Verbindungen in aktiver Arbeitsmappe Loeschen
Dim wb As Workbook, objConnection As Variant, varAuswahl As Long
Dim qt As QueryTable
Dim ws As Worksheet
Set wb = ActiveWorkbook
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
'do nothing
Case vbCancel
Exit For
End Select
Next
For Each ws In wb.Worksheets
For Each qt In ws.QueryTables
If qt.Refreshing Then qt.CancelRefresh
qt.Delete
Next
Next
End Sub

Kann mir jemand hier helfen?
Grüße
Technikertipp