Mit VBA Alle Verbindungen löschen

[ASNCM]

Hallo zusammen.

Ich hoffe mal mir kann jemand helfen.

Ich habe eine Excel Datei wo ich mir die Daten immer Importiere und dann bereitstelle.
Aktuell habe mir schrecken gesehen, dass hier mittlerweile über 2500 Verbindungen hinterlegt sind.

Ich habe im Netz folgenden Code gefunden und hier wird allerdings mit einer Nachfrage nur gelöscht.

Code:

Sub Verbindungen_Loeschen()
' Verbindungen in aktiver Arbeitsmappe Loeschen
Dim wb As Workbook, objConnection As Variant, varAuswahl As Long
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
End Sub

Gibt es eine Möglichkeit den Code zum löschen so zu machen, dass ich den ausführe und alle ohne nachfrage gelöscht werden ?

Danke schonmal für die Hilfe.

[BoskoBiati]

Hi,

wenn Du das Risiko eingehen willst, dass einfach alles gelöscht wird:

Code:

Sub Verbindungen_Loeschen()

' Verbindungen in aktiver Arbeitsmappe Loeschen

Dim wb As Workbook, objConnection As Variant
Set wb = ActiveWorkbook

For Each objConnection In wb.Connections


objConnection.Delete



Next

End Sub

[derHoepp]

Moin auch von mir,

du solltest vor allem nicht vergessen nach dem Grund zu suchen, warum so viele Verbindungen entstehen.

Viele Grüße
derHöpp

[ASNCM]

Hallo.

Läuft auf Jedenfall perfekt.
Danke nochmal.

Warum ich so viele hatte, keine Ahnung, aber jetzt verbleibt nur die aktuelle und das ist so völlig i.o.

[RPP63]

aber jetzt verbleibt nur die aktuelle

Moin!
Jetzt ist volatil. 
Morgen ist jetzt ganz anders.
Der Hinweis von derHoepp ist mehr als berechtigt.

das ist so völlig i.o.

in obigem Zusammenhang gebe ich dir dann recht.

Gruß Ralf

[snb]

Enthält die Datei keine Makros ?

[schauan]

Hallöchen,

Aktuell habe mir schrecken gesehen, dass hier mittlerweile über 2500 Verbindungen hinterlegt sind.

Wo sind die denn hinterlegt, wie gehst Du beim Import vor? Vielleicht kopierst Du aus anderen Dateien, sei es Formeln, Formatierungen usw. bis hin zu ganzen Blättern - dadurch gibt es schnell mal Verknüpfungen auch in bedingten Formatierungen oder Namen. Oder Erzeugst Du immer neue Datenabfragen auf unterschiedliche Dateien - wenn Du z.B. jeden Tag eine oder mehrere hast. Oder ...

Falls Du was aus anderen Exceldateien kopierst - mach's über Inhalte einfügen - Werte. So kannst Du dafür sorgen, dass in Deiner produktiven Datei nix hängenbleibt.