Bereichsnamen aus Zellinfo auslesen

Computer: Software & Programmierung Office Software
1

Hallo zusammen,
Situation:
auf einem Tabellenblatt (Tabelle1) sind verschiedene mit Namen versehen z.B. „Inhaltsstoffe_1“ G7:G33.
Ich möchte, wenn die aktive Zelle in diesem Bereich liegt mit einer Formel den Bereichsnamen auslesen.

Danke für alle Antworten

gruß

Herbert

2

Hallo zusammen,
Situation:
auf einem Tabellenblatt (Tabelle1) sind verschiedene mit Namen
versehen z.B. „Inhaltsstoffe_1“ G7:G33.
Ich möchte, wenn die aktive Zelle in diesem Bereich liegt mit
einer Formel den Bereichsnamen auslesen.

Hi,

hier brauchst Du eine benutzerdefinierte Funktion, etwa so:

Function Bereichsname(zelle As Range)
Debug.Print zelle.Address
 For Each nm In ActiveWorkbook.Names
 For Each cl In Range(nm.RefersTo).Cells
 If InStr(1, cl.Address, zelle.Address) \> 0 Then
 Bereichsname = nm.Name
 Exit For
 End If
 Next
 Next
 'If Bereichsname = nul Then Bereichsname = ""
End Function

Danke für alle Antworten

gruß

Herbert

Gruß, Bernd

3

auf einem Tabellenblatt (Tabelle1) sind verschiedene mit Namen
versehen z.B. „Inhaltsstoffe_1“ G7:G33.
Ich möchte, wenn die aktive Zelle in diesem Bereich liegt mit
einer Formel den Bereichsnamen auslesen.

Hallo Herbert,

kenn grad keine Formel die auf die aktive Zelle reagiert.

Schätze das wird nur mit Vba gehen.

Sub tt()
Dim N As Name
For Each N In ThisWorkbook.Names
 If Not Intersect(ActiveCell, Range(N)) Is Nothing Then
 MsgBox ActiveCell.Address & " gehört zu" & Chr(10) \_
 & N.Name & Chr(10) & N.RefersTo
 End If
Next N
End Sub

Gruß
Reinhard