Das Clever-Excel-Forum.de - Treffen
... 14.-16. September 2018 im Allgäu ...

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 2007 (SP3), Win 10 Pro                              
to 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
to top
#3
heje uwe

das wars. vielen dank...
Vielen Dank
--Janosch
                                                     
Excel 2007 (SP3), Win 10 Pro                              
to top


Gehe zu:


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