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: excel_names_variablen_löschen.xlsm

Excel vba: alle Namens-Variablen löschen

Das folgende vba script löscht alle Names-Variablen in einer Excel Datei.

Anbei ist natürlich eine Download Version zum testen

Vba Macro Code:

        Dim varName As Name

        Set varName = wb.Names(1)

        varName.Delete

 

Microsoft Excel Names Variablen

 

Vba Code

Option Explicit

 

 

Public Sub Names_loeschen_Arbeitsmappe(ByRef wb As Workbook)

    '-----------------< Names_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 = "96dpi" Then

                Application.StatusBar = Now & " Names löschen->" & ws.Name

                Names_loeschen_in_Blatt wb, ws

            End If

        End If

    Next

    '--< @Loop: alle Sheets >--

 

    Application.StatusBar = Now & " Fertig: " & wb.Name & " Names löschen"

    '-----------------</ Names_loeschen_Arbeitsmappe() >-----------------

End Sub

 

 

Public Sub Names_loeschen_in_Blatt(ByVal wb As Workbook, ByVal ws As Worksheet)

    '-----------------< Names_loeschen_in_Blatt() >-----------------

    '*löscht alle Names

    ws.Activate

   

    '----< Sheets ermitteln >----

    Application.ScreenUpdating = False

    Application.Calculation = xlCalculationManual

    '----< @Loop: Names >----

   

    Dim iName As Integer

    For iName = wb.Names.Count To 1 Step -1

        '-< Loeschen >-

        Dim varName As Name

        Set varName = wb.Names(iName)

        If varName.Visible = True Then

            Application.StatusBar = Now & " link löschen : " & varName.Name

            If Not varName.Name Like "*!Print_Area*" Then

                varName.Delete

            End If

        End If

        '-</ Loeschen >-

    Next

    '----</ @Loop: Names >----

   

    '< close >

    Application.DisplayAlerts = True

    Application.ScreenUpdating = True

    Application.Calculation = xlCalculationAutomatic

    '</ close >

   

    '-----------------</ Names_loeschen_in_Blatt() >-----------------

End Sub

 

 

 

 

 

 

 

 

Mobile
»
Vba Makro Code: So erstellt man ein Excel Workbook und Sheet zur Laufzeit ohne Excel Verweis
»
Office Verzeichnis Dialog ohne Verweis auf ObjectLibrary
»
Ändern von vba Code zu Late Binding ohne dll-Verweis Dim Excel Word as Object
»
Excel Datei mit Schutz mit erlaubtem Farbformatierungen, Kommentaren und Sperren von Formelfeldern
»
Excel vba Fehler: Laufzeitfehler 1004 Die Locked-Eigenschaft des Range-Objektes kann nicht festgelegt werden
»
Excel Datei schützen
»
Excel Blatt schützen: Protect Parameter
»
Excel vba : Alle Worksheets auflisten
»
Vba: Sonderzeichen austauschen korrigieren
»
Gelöst: Excel vba copy paste values 100e Fehler

.

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