Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Namen im Namensmanager loeschen...
#1
heje excelfreunde,

habe nachfolgendes makro erstelle:

Sub AlleNamenLoeschen()
With ActiveWorkbook
.Names("B11_TMListe").Delete
.Names("B12_TMListe").Delete
.Names("B13_TMListe").Delete
.Names("B14_TMListe").Delete
.Names("B15_TMListe").Delete
.Names("B16_TMListe").Delete
.Names("B17_TMListe").Delete
.Names("B18_TMListe").Delete
.Names("BlattZaehlerListe").Delete
.Names("Print_Area").Delete
.Names("Gehölz").Delete
.Names("Gehölzliste").Delete

noch viel mehr Namen, die zu löschen sind...

.Names("rS13.Tab_01").Delete
.Names("rS13.Tab_02").Delete
.Names("rS13.Tab_03").Delete
.Names("rS13.Tab_04").Delete
.Names("rS13.Tab_05").Delete
.Names("rS13.Tab_06").Delete
.Names("SchemaBemerkung").Delete
.Names("SchemaBezeichnung").Delete
.Names("SchemaName").Delete
.Names("VorgKFMaßnahmenbezeichnungen").Delete
.Names("VorgLFMaßnahmenbezeichnungen").Delete
End With
End Sub

dieses makro wird beim erstellen einer exporttabelle durch call ...AlleNamenLoeschen aufgerufen.
das loeschen funktioniert und ist nicht das thema.
hier das problem: wie kann man den loeschvorgang = ablauf des makros beschleunigen. soll heissen, wie muss das makro geschickter programmiert werden, so dass der loeschvorgang flott von statten geht.
Vielen Dank
--Janosch
                                                     
Excel  2019 (64bit)  Win 10 Pro (64bit)                              
Antworten Top
#2
Hallo Janosch,

Code:
Sub AlleNamenLoeschen()
  Dim oName As Name
  For Each oName In ActiveWorkbook.Names
    oName.Delete
  Next oName
End Sub

Gruß Uwe
Antworten Top
#3
heje uwe

das wars. vielen dank...
Vielen Dank
--Janosch
                                                     
Excel  2019 (64bit)  Win 10 Pro (64bit)                              
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste