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

Forumthread: Name eine benannten Bereiches finden

Name eine benannten Bereiches finden
17.07.2008 08:22:37
Specke
Hallo Experten,
ich habe in einem Tabellenblatt sehr, sehr viele benannte Bereiche.
Wie kann ich herausfinden, zu welchem Namen eine bestimmte Zelle gehört?
Danke und Gruß
Specke

Anzeige

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

Betreff
Datum
Anwender
Anzeige
cells(1,1).Name.Name o.T.
17.07.2008 08:35:00
ypsilon
o.T.

AW: cells(1,1).Name.Name o.T.
17.07.2008 08:46:02
Specke
Hallo ypsilon,
vielen Dank für Deine Antwort.
Ich habe Deinen Ansatz getestet und festgestellt, dass er nur funktioniert, wenn ich genau weiß, wie groß der benannte Bereich ist.
Die Zelle ist aber evtl. nur Teil des benannten Bereiches. Gibt es dafür auch eine Lösung?
Danke und Gruß
Specke

Anzeige
AW: Name eine benannten Bereiches finden
17.07.2008 09:09:00
Mac4
Moin,
versuchs mal so:

Sub test()
Dim nme As Name
For Each nme In ActiveWorkbook.Names
If Not Intersect(Range(nme), ActiveCell) Is Nothing Then
MsgBox "Gehört zu " & nme.Name
End If
Next
End Sub


Marc

AW: Name eine benannten Bereiches finden
17.07.2008 09:55:00
Specke
Hallo Marc,
vielen Dank. Passt gut!
Gruß
Specke

Anzeige
nachgefragt ...?
17.07.2008 11:49:00
Matthias
Hallo Marc
Hast Du auch eine Idee bei nicht zusammenhägenden Zellen, bei denen ein Name vergeben wurde
Da kommt eine Fehlermeldung.
Habs mit .Range(Array(Bereichsname)) versucht, klappt aber nicht.
Hast Du eine Idee?
ansonste hab ichs gespeichert :o)
Ich schau allerdings erst heute nacht wieder rein.
Gruß Matthias

Anzeige
AW: nachgefragt ...?
17.07.2008 12:10:00
Mac4
Hallo Matthias,
vielleicht so?

Sub test()
Dim nme As Name, Bereich As Range, splt As Long, Arr
For Each nme In ActiveWorkbook.Names
Arr = Split(nme, ",")
For splt = 0 To UBound(Arr)
Set Bereich = Range(Arr(splt))
If Not Intersect(Bereich, ActiveCell) Is Nothing Then
MsgBox "Gehört zu " & nme.Name
End If
Next
Next
End Sub


Marc

Anzeige
Perfekt, Danke & Gruß nach Köln ... _oT
17.07.2008 23:16:00
Matthias

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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