Projekt-Anfragen: Tel: 07022/9319004 info@CodeDocu.de Software Entwicklung in C# WPF Asp.Net Core Vba Excel Word SQL-Server EF Linq, UWP Net
#

Download:

Datei 1: Verlinkungen löschen.xlsm

Excel vba: Verlinkungen löschen

 

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

 

 

 

 

 

 

Mobile
»
Excel Code: in Powerpoint Grafiken oder Bereiche einfügen
»
Neu (22.03.20Excel fehler: -2147188160 LinkFormat.BreakLink : Invalid request. This operation requires a linked object.19 14:59:14)
»
Excel vba: Blätter in eine neue Datei kopieren
»
Excel Code für ein kleines Addin
»
Excel Checkbox in vba makro setzen
»
Excel vba makro: Anzeigen aller entsperrten Zellen
»
Excel vba: Verlinkungen löschen
»
Excel vba : Pivot Datenquelle aktualisieren
»
Excel vba: alle Namens-Variablen löschen
»
Gelöst: Excel vba: row ausblenden row.entirerow.hidden ist zu langsam

.

Jobs, Projekte, Angebote für Freiberufler, Selbstständig an Info@CodeDocu.de