Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Namen löschen, aber nur die auf akt. Blatt

Forumthread: Namen löschen, aber nur die auf akt. Blatt

Namen löschen, aber nur die auf akt. Blatt
06.08.2004 16:24:12
Heinz
Liebe Excellenten,
ich möchte gerne mit VBA die vergebenen Namen löschen,
aber eben nur die, die sich auf das activeSheet beziehen.
Also sinngemäß eine adpatierte Lösung für
Dim n as Name
For each n in activeWorkbook.Names
n.delete
Next
aber statt aktiveWorkbook hätte ich gerne activeSheet.
Habt Ihr ne Idee?
Heinz
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Namen löschen, aber nur die auf akt. Blatt
06.08.2004 16:40:55
Annett
Hallo Heinz

Sub Namen_loeshen()
'   nur im Activen Register
Dim y As Integer, z As String
Dim rng As Range
For y = 1 To Names.Count
z = Names(y).Name
If Range(z).Worksheet.Name = ActiveSheet.Name Then Range(z).Name.Delete
Next
End Sub

Gruß Annett
Anzeige
AW: Namen löschen, aber nur die auf akt. Blatt
06.08.2004 16:41:26
Annett
Hallo Heinz

Sub Namen_loeshen()
'   nur im Activen Register
Dim y As Integer, z As String
Dim rng As Range
For y = 1 To Names.Count
z = Names(y).Name
If Range(z).Worksheet.Name = ActiveSheet.Name Then Range(z).Name.Delete
Next
End Sub

Gruß Annett
Anzeige
AW: Namen löschen, aber nur die auf akt. Blatt
Ulf
Da hast du aber einen krassen Denkfehler drin.
Ulf
AW: Namen löschen, aber nur die auf akt. Blatt
07.08.2004 13:39:06
Annett
Hallo Ulf
das Forum ist dazu da um Wissen auszutauschen. Dein Beitrag sagt mir überhaupt nichts.
Gruß Annett
Anzeige
AW: Namen löschen, aber nur die auf akt. Blatt
Ulf
Dann probier deinen Code doch einfach mal aus. Wo steht geschrieben, dass sich ein Name in einem Sheet auf dasselbe Sheet beziehen muss?
Ulf
AW: Namen löschen, aber nur die auf akt. Blatt
07.08.2004 18:08:02
Annett
Hallo Ulf
Code teste ich zu 99% und den Code habe ich getestet.
Gruß Annett
Anzeige
AW: Namen löschen, aber nur die auf akt. Blatt
Ulf
Dim n as integer
For n = 1 to activeSheet.Names.count
on error resume next
activeSheet.Names(n).delete
Next
Ulf
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige