Alle Bereichsnamen löschen

Bild

Betrifft: Alle Bereichsnamen löschen
von: Peter
Geschrieben am: 16.03.2005 08:35:48

Guten Tag
Per VBA kann ich in einem Workbook über 500 Bereichsnamen ab einer Namenliste definieren. Das klappt bestens.
Gibt es eine Möglichkeit alle vergebenen Bereichsnamen auch über VBA auf einmal zu löschen?
Danke zum Voraus für eure Hilfe.
Freundliche Grüsse
Peter

Bild

Betrifft: AW: Alle Bereichsnamen löschen
von: Matthias G
Geschrieben am: 16.03.2005 08:57:21
Hallo Peter,
z.B. so:
Sub NamenLöschen()
Dim i
With ActiveWorkbook
    i = .Names.Count
    Do While i > 0
        .Names(i).Delete
        i = .Names.Count
    Loop
End With
End Sub
Gruß Matthias
Bild

Betrifft: AW: Alle Bereichsnamen löschen
von: u_
Geschrieben am: 16.03.2005 08:57:36
Hallo,
meines Wissens nur über eine Schleife.

Sub namen_weg()
  Dim n As Name
  For Each n In ActiveWorkbook.Names
    n.Delete
  Next n
End Sub

Gruß
Bild

Betrifft: AW: Alle Bereichsnamen löschen
von: bst
Geschrieben am: 16.03.2005 08:58:16
Morgen Peter,
versuch mal sowas.
cu, Bernd
--
Option Explicit

Sub NoNames()
   Dim n As Name
   For Each n In ActiveWorkbook.Names
      n.Delete
   Next
End Sub

Bild

Betrifft: AW: Alle Bereichsnamen löschen
von: bst
Geschrieben am: 16.03.2005 08:58:21
Morgen Peter,
versuch mal sowas.
cu, Bernd
--
Option Explicit

Sub NoNames()
   Dim n As Name
   For Each n In ActiveWorkbook.Names
      n.Delete
   Next
End Sub

Bild

Betrifft: AW: Alle Bereichsnamen löschen
von: Peter
Geschrieben am: 16.03.2005 11:08:37

Hallo Matthias und Bernd
.. und so einfach ist es zu lösen!!
Nur sollte man trotz Stress selbst draufkommen.
Herzlichen Dank für eure Tipps. Es klappt vorzüglich.
Ich wünsche euch einen sonnigen Tag.
Gruss
Peter
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Alle Bereichsnamen löschen"