Alle Verknüpfungen auflisten
Ausgangslage - Was tut dieser Code-Schnipsel?
Erstellt ein neues Arbeitsblatt und listet dort alle vorhandenen Verknüpfungen auf.
Ergebnisse statt Aufwand & Arbeit?
Wir liefern Ergebnisse - Schicken Sie uns kurz Ihre Datei und Ihre Wünsche; wir integrieren den notwendigen Code professionell, beheben ggf. vorhandene Fehler, machen optional ein Code-Review, liefern bei Bedarf Performance-Optimierungen & setzen gewünschte Erweiterungen effizient für Sie um (und das zum Festpreis nach kurzer Sichtung).
Express-Service beauftragen
Der Quelltext
Option Explicit
' Original-Quelltext unter: https://www.online-vba.de/alle-verknuepfungen-auflisten
' Express-Hilfe für VBA unter https://www.online-vba.de/vba-expresshilfe
' Es gelten die Nutzungsbedingungen von Online-VBA.de
Public Sub OVBAde_Verknuepfungen_auflisten()
Dim alinks As Variant
Dim i As Long
alinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(alinks) Then
ActiveWorkbook.Sheets.Add
Cells(1, 1) = "Verknüpfungen in dieser Arbeitsmappe"
For i = 1 To UBound(alinks)
Cells(i + 1, 1) = alinks(i)
Next i
Else
MsgBox "Diese Arbeitsmappe enthält keine Verknüpfungen!"
End If
End Sub
Das könnte Sie auch interessieren:
Erhöhen Sie Ihr Sicherheits- und Datenschutzniveau mit Awareness-Schulungen – kompakt, alltagsnah und nachweisbar. Excel-Makro-Programmierer für Stuttgart – Formulare, Prüfregeln und Reporting zu Festpreisen.
Anmerkungen und Hinweise
Dieser Codeschnipsel wurde geschrieben von Marc Wershoven im Jahr 2013.
Die Nutzung erfolgt auf eigene Gefahr.
Bitte denken Sie immer zuerst an eine ausreichende Datensicherung.
Wir können keinen kostenlosen Support anbieten.
Es gelten unsere Nutzungsbedingungen.
