Namen in der Arbeitsmappe

Hallo,
Wiederholung meiner Frage vom 7.1. , da sie wohl zu unverständlich war.
Also hoffentlich jetzt etwas klarer:
1) Excel erlaubt das Benennen von Zellen und Bereichen mit Namen.
2) Hat eine Datei mehrere Blätter mit gleichlautenden Namen, so kann der Zellname anhand des davorgesetzen Blattnamens unterschieden werden (Bezug=Tabelle1!$A$1).
3) Bei Befehl: "Einfügen/Namen/Definieren" erscheint eine Liste "Namen in der Arbeitsmappe"
in der (manchmal) rechts die Blattnamen gelistet sind.
...und dieses manchmal ist der Knackpunkt!
https://www.herber.de/bbs/user/48876.xls
Fragen:
a) warum werden die Blattnamen rechts in der Liste "Namen in der Arbeitsmappe" erst nach dem Kopieren des Blatts angezeigt und...
b) wie schaffe ich es, den Blattnamen zum gleichlautenden Zellnamen manuell einzugeben, so dass er auch in der Liste "Namen in der Arbeitsmappe" rechts erscheint?
Gruß Hermann

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Hermann,
dieses Problem ist auch in Excel 2007 noch nicht gelöst. Dafür hat man aber im Namens-Assistenten eine Filtermöglichkeit eingebaut, die ich Klasse finde. Hier kann man sich nur die Namen anzeigen lassen, die vom Tabellenblatt verwaltet werden und nicht von der Arbeitsmappe (AM).
Bis Excel 2003 mußte ich da immer einige Vba-Klimmzüge machen. Da dieser Filter auch im Kompatibilitätsmodus funktioniert, kann ich Excel 2007 nun doch ein Positivum abgewinnen.
Ich selbst definiere nur Namen, die zur AM gehören, aber die Kontrolle darüber prüfe ich nun mit Excel 2007.
Hier ein Makro für die Kontrolle bis Excel 2003:


Sub alleNamenZeigen()
Dim rg As Range, na As Name, n As Long
Set rg = ActiveSheet.Range("A10")
Application.EnableEvents = False
ActiveSheet.Range("10:100").Clear
rg.Offset(0, 0).Value = "Name gehört zu"
rg.Offset(0, 1).Value = "Name"
rg.Offset(0, 2).Value = "Referenz"
n = 0
'alle Name, die zu 1 Tabellenblatt gehören
For Each ws In ThisWorkbook.Worksheets
For Each na In ws.Names
n = n + 1
rg.Offset(n, 0).Value = na.Parent.Name
rg.Offset(n, 1).Value = na.RefersTo
rg.Offset(n, 2).Value = na.RefersToRange.Address
Next na
Next ws
'alle Namen, die zur Arbeitsmappe gehören
For Each na In ThisWorkbook.Names
If na.Parent.Name = ThisWorkbook.Name Then
n = n + 1
rg.Offset(n, 0).Value = na.Parent.Name
rg.Offset(n, 1).Value = na.RefersTo
rg.Offset(n, 2).Value = na.RefersToRange.Address
End If
Next na
Application.EnableEvents = True
Set na = Nothing
Set rg = Nothing
End Sub

Gruß von Luschi
aus klein-Paris

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread