Office: [VBA] Alle namen einer Zelle ermitteln

magie004 · 11. Dezember 2018

Guten Tag,

ich vergebe in diesem Beispiel Zelle A1 die Namen "Test" und "Test2", sowie "Test3"

Im Namens-Manager kann ich sehen, dass alle Namen auf diese Zelle referenzieren. Setze ich den Cursor auf die Zelle erhalte ich über

ActiveCell.Name.Name

nur einen der drei Namen. Gibt es eine Möglichkeit mir ALLE Namen einer Zelle anzeigen zu lassen?

:)

EarlFred · 13. Dezember 2018

Hallo,

so?
Code:

Option Explicit

Sub Namensliste()
Dim n As Name

For Each n In Selection.Worksheet.Parent.Names
If Range(n.RefersTo).Worksheet Is Selection.Worksheet Then
If Not Intersect(Selection, Range(n.RefersTo)) Is Nothing Then MsgBox n.Name
End If
Next n
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

Der Steuerfuzzi · 13. Dezember 2018

Hallo,

man könnte noch vor der ersten if-Abfrage ein on error resume next und danach ein on error goto 0 enfügen, denn wenn ein Name nicht auf eine einzelne Zelle verweist (z. B. auf eine Formel), dann löst Range(n.RefersTo) einen Fehler aus.

Der Steuerfuzzi · 13. Dezember 2018

Hier noch ein alternativer Vorschlag, da Intersect auch Namen erfasst, die eine Bereich referenzieren, der die selektierte Zelle beinhaltet:
Code:

Sub Namensliste()
Dim n As Name
For Each n In Names
On Error Resume Next
If Selection.Parent.Name = Range(n.RefersTo).Parent.Name Then
If Selection.Address = Split(n.RefersTo, "!")(1) Then
Debug.Print n.Name
End If
End If
On Error GoTo 0
Next n
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Scorefun · 13. Dezember 2018

Nur mal so am Rande und interessehalber:
Welchen Sinn soll es haben, für die gleiche Zelle mehrere Namen zu vergeben?

magie004 · 13. Dezember 2018

Vielen Dank schonmal für die schnellen Antworten. Das hilft mir wirklich sehr und ich werde es die Tage testen.

Auf die Frage wo der Sinn ist:
Ich schreibe an einem umfangreichen Programm, welches viele Eingabezellen hat. Diese Zellen stehen zum Beispiel für eine Anlagennummer, Anlagenbreite etc.

Demnach habe ich sie auch benannt (menschlich lesbar). Nun sollen alle Eingabezellen noch eine eindeutige ID bekommen, da ich den Inhalt später mit einer JSON Datenbank abgleiche. Hier wird es fummelig.

Da es hunderte Zellen sind, dauert es zu lange die Namen anzusprechen. Deswegen weise ich allen Eingabezellen über eine Schleife eine eindeutige ID zu, welche dann zwar für den Menschen nicht lesbar ist (z.B „Eingabe_001“) aber eine Schleife später den Abgleich durch aufzählen der Ziffern realisieren kann.

Dennoch kann die Zelle bei bedarf über z.B „Anlagennummer“ angesprochen werden *Smilie

EarlFred · 13. Dezember 2018

\@Michael,

[...] wenn ein Name nicht auf eine einzelne Zelle verweist (z. B. auf eine Formel) [...]
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

diesen Fall hatte ich wegen der Aufgabenstellung nicht in Betracht gezogen, dennoch ein absolut berechtigter Hinweis. Der benannte Bereich darf aber durchaus auch auf einen Bereich aus mehreren Zellen verweisen.

da Intersect auch Namen erfasst, die eine Bereich referenzieren, der die selektierte Zelle beinhaltet
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich ging davon aus, dass genau das gewünscht ist.

Code:

Option Explicit

Sub Namensliste()
Dim n As Name
Dim rTest As Range

For Each n In ActiveWorkbook.Names

Set rTest = Nothing
On Error Resume Next
Set rTest = Range(Replace$(n.RefersTo, "=", ""))
On Error GoTo 0

If Not rTest Is Nothing Then
If rTest.Worksheet Is ActiveSheet Then
If Not Intersect(ActiveCell, rTest) Is Nothing Then MsgBox n.Name
End If
End If

Next n
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Case_Germany · 12. Januar 2021

Hallo, *Smilie

von magie004

Gibt es eine Möglichkeit mir ALLE Namen einer Zelle anzeigen zu lassen?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn Du z. B. A1 drei oder mehr Namen verpasst hast, dann kannst Du z. B. in B1 die ganze Liste so ausgeben: *wink.gif*
Code:

Option Explicit
Public Sub Main()
Range("B1").ListNames
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der Steuerfuzzi · 13. Dezember 2018

Hallo Case,

die Frage war ja:

Gibt es eine Möglichkeit mir ALLE Namen einer Zelle anzeigen zu lassen?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und nicht:
Gibt es eine Möglichkeit mir ALLE Namen einer Datei anzeigen zu lassen?
*tongue.gif*

Case_Germany · 14. Dezember 2018

Hallo Michael, *Smilie

Wer lesen kann... *depressed *top

ebs17 · 14. Dezember 2018

hunderte Zellen ... noch eine eindeutige ID bekommen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn man Strukturen schafft wie ein Datensatz in einer (zusammenhängenden) Zeile (=> in einer Tabelle) oder ein Datensatz in einem UserForm oder sinngleiche Gestaltungen, würde es sich erübrigen, Einzelzellen zusätzlich auf eine ID zu referenzieren. In einer (relationalen) Datenbank jedenfalls referenziert man durchgehend ganze Datensätze über eine ID, indem die ID im Datensatz steht.

Office: [VBA] Alle namen einer Zelle ermitteln

[VBA] Alle namen einer Zelle ermitteln

[VBA] Alle namen einer Zelle ermitteln

[VBA] Alle namen einer Zelle ermitteln

[VBA] Alle namen einer Zelle ermitteln

[VBA] Alle namen einer Zelle ermitteln - Similar Threads - VBA namen Zelle

PDF mit Namen,Datum speichern im Zielordner

Daten Kopieren aus einer zweiten Datei

Namen einer Zelle per VBA ermitteln

Frage zu Tutorial "Excel - Auswertung von farbigen Zellen"

VBA Speichern mit Name/Datum/Text aus verschiedenen Zellen

VBA Formel die automatisch die Zelle nach dem Namen zusammenrechnet

Feststellen, ob Zelle in benanntem Bereich?