Willkommen

Pivottabelle

Spezialfilter

Formeln

Zellformate

Bedingte Formate

Gültigkeit

Programmierung

UDF - Funktionen

Tipps & Tricks

Webabfrage

Fehlersuche

Farbindex

Shortcuts

Limitationen

Downloads

Links

Kontakt

Disclaimer

Impressum

Alle definierten Namen entfernen
Es werden alle definierten Namen innerhalb einer Excelmappe entfernt.
 
Der Code für ein allgemeines Modul
 
Public Sub Alle_Namen_entfernen()
'Code für ein allgemeines Modul
Dim objName As Name
Dim lngCounter As Long
 
For Each objName In ThisWorkbook.Names
    objName.Delete
    lngCounter = lngCounter + 1
Next
 
If lngCounter = 0 Then
MsgBox "Es wurden keine definierten Namen gefunden.", 64
  Else
MsgBox "Es wurden " & lngCounter & " Namen entfernt.", 64
End If
 
End Sub