Bereichsnamen löschen

09/06/2009 - 08:22 von reiva | Report spam
Hallo zusammen,
ich habe eigentlich 2 Fragen zu dem Thema.
Wie kann ich aus einem bestimmten Bereich z.B B2 bis M19 alle
Bereichsnamen löschen.
oder alle Namen die mit einem Wort in meinem Fall "Waren" beginnen
löschen.
Über eine Tipp würde ich mich freuen.
Danke im voraus
Gruß
Reiner
 

Lesen sie die antworten

#1 Andreas Killer
09/06/2009 - 09:15 | Warnen spam
On 9 Jun., 08:22, wrote:

Wie kann ich aus einem bestimmten Bereich z.B B2 bis M19 alle
Bereichsnamen löschen.
oder alle Namen die mit einem Wort in meinem Fall "Waren" beginnen
löschen.



Sub Makro1()
Dim N As Name, R As Range
'Alle Namen durchlaufen
For Each N In ActiveWorkbook.Names
'Beginnt er mit "Waren"?
If InStr(N.Name, "Waren") = 1 Then
'Ja, dann löschen
N.Delete
'Schneidet sich der Bereich?
ElseIf Not Intersect(Range(N.RefersTo), Range("B2:M19")) Is _
Nothing Then
'Ja, dann löschen
N.Delete
End If
Next
End Sub

Ähnliche fragen