Dieser vba Makro Code löscht alle Verlinkungen in einem Excel Dokument.
Die belegten Excel Zellen werden dann zu Werten umgeändert
Verlinkungen in einem Excel Dokument löschen
Option Explicit '***********< Schutz und Eingabe >**************** '*Eingabefelder zuruecklesen '* Public Sub Verlinkungen_loeschen_Arbeitsmappe(ByRef wb As Workbook) '-----------------< Verlinkungen_loeschen_Arbeitsmappe() >----------------- '----< Sheets ermitteln >---- Dim ws As Worksheet '--< @Loop: alle Sheets >-- For Each ws In wb.Sheets If ws.Visible = xlSheetVisible Then If ws.Range("A1").Value = "z" Then Application.StatusBar = Now & " Verlinkungen löschen->" & ws.Name Verlinkungen_loeschen_in_Blatt wb, ws End If End If Next '--< @Loop: alle Sheets >--
Application.StatusBar = Now & " Fertig: " & wb.Name & " verlinkungen löschen" '-----------------</ Verlinkungen_loeschen_Arbeitsmappe() >----------------- End Sub Public Sub Verlinkungen_loeschen_in_Blatt(ByVal wb As Workbook, ByVal ws As Worksheet) '-----------------< Verlinkungen_loeschen_in_Blatt() >----------------- '*löscht alle verlinkungen ws.Activate
'----< Sheets ermitteln >---- Application.DisplayAlerts = False Application.ScreenUpdating = False Application.Calculation = xlCalculationManual
'----< @Loop: Eingabezellen >---- Dim array_ExternalLinks array_ExternalLinks = wb.LinkSources(Type:=xlLinkTypeExcelLinks)
Dim iLink As Integer For iLink = 1 To UBound(array_ExternalLinks) '-< einlesen_einzelzelle >- wb.BreakLink Name:=array_ExternalLinks(iLink), Type:=xlLinkTypeExcelLinks Application.StatusBar = Now & " link löschen : " & iLink '-</ einlesen_EinzelZelle >- Next iLink '----</ @Loop: Eingabezellen >----
'< close > Application.DisplayAlerts = True Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic '</ close >
'-----------------</ Verlinkungen_loeschen_in_Blatt() >----------------- End Sub |