Namen im Namensmanager loeschen...

[radagast]

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.

[Kuwer]

Hallo Janosch,

Code:

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

Gruß Uwe

[radagast]

heje uwe

das wars. vielen dank...