Das Archiv des Excel-Forums

Name eine benannten Bereiches finden

Bild

Betrifft: Name eine benannten Bereiches finden
von: Specke

Geschrieben am: 17.07.2008 08:22:37

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

Bild

Betrifft: cells(1,1).Name.Name o.T.
von: ypsilon
Geschrieben am: 17.07.2008 08:35:04
o.T.

Bild

Betrifft: AW: cells(1,1).Name.Name o.T.
von: Specke

Geschrieben am: 17.07.2008 08:46:02
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

Bild

Betrifft: AW: Name eine benannten Bereiches finden
von: Mac4
Geschrieben am: 17.07.2008 09:09:00
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

Bild

Betrifft: AW: Name eine benannten Bereiches finden
von: Specke

Geschrieben am: 17.07.2008 09:55:21
Hallo Marc,
vielen Dank. Passt gut!
Gruß
Specke

Bild

Betrifft: nachgefragt ...?
von: Matthias L
Geschrieben am: 17.07.2008 11:49:26
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

Bild

Betrifft: AW: nachgefragt ...?
von: Mac4

Geschrieben am: 17.07.2008 12:10:18
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

Bild

Betrifft: Perfekt, Danke & Gruß nach Köln ... _oT
von: Matthias L
Geschrieben am: 17.07.2008 23:16:44


 Bild

Excel-Beispiele zum Thema "Name eine benannten Bereiches finden"

Benannten Bereich erweitern download Auswahl eines Zellbereiches verhindern download
URLs eines ausgewählten Bereiches in HyperLinks umwandeln download Berechnung des ausgewählten Bereiches in der Statusleiste download
Werte eines bestimmten Wochentages und eines Zeitbereiches addieren download Datenreihenbeschriftungs-Quellbereich ausserhalb des Datenbereiches download
Namen eines ausgewählten Bereiches auslesen download Nur die sichtbaren Zellen eines AutoFilter-Bereiches einlesen download
CheckBoxes eines vorgegebenen Bereiches prüfen download Abfrage vor Start- und Enddatum eines zu druckenden Bereiches download
Zahlen eines Bereiches jeweils 4 mal in eine Spalte schreiben. download Alle Zeilen und Spalten außerhalb des benutzten Bereiches löschen download
Doppelte Einträge finden und löschen download Schaltflächen-Id-Nummer finden und Schaltfläche einfügen download
Datensätze wechselseitig bei Nichtauffinden markieren download Alle Zellen mit Formeln finden download