Per VBA den Bereichsnamen auslesen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim namName As Name For Each namName In ThisWorkbook.Names If Not Intersect(Target, namName.RefersToRange) Is Nothing Then MsgBox namName.Name End If Next namName End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim namName As Name For Each namName In ThisWorkbook.Names If namName.Parent Is Me Then If Not Intersect(Target, namName.RefersToRange) Is Nothing Then MsgBox namName.Name End If End If Next namName End Sub

Sub xxx() Dim wks As Worksheet For Each wks In Worksheets If wks Is Sheets(2) Then MsgBox "Hallo" Next End Sub Sub yyy() Dim wkb As Workbook For Each wkb In Workbooks If wkb Is ThisWorkbook Then MsgBox "Hallo" Next wkb End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim N As Name For Each N In ThisWorkbook.Names If InStr(N.RefersTo, "=" & Me.Name & "!") Then If Not Intersect(N.RefersToRange, Target) Is Nothing Then MsgBox N.Name End If End If Next End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim N As Name For Each N In ThisWorkbook.Names If InStr(N.RefersTo, "='" & Me.Name & "'!$") Then If Not Intersect(N.RefersToRange, Target) Is Nothing Then MsgBox N.Name End If End If Next End Sub

Hi
mal eine der beschriebenen Ideen in Code gefasst:

dim nme as Name
dim rng as range
for each nme in Thisworkbook.Names
    set rng = nothing
    on Error goto 0
    set rng = Intersect(Range(nme.name), target)
    on Error 
    if not rng is nothing then Msgbox nme.Name & " - " & rng.Address
next

Zellbereiche, die zu formatierten Tabellen gehören, werden zwar im Namenseditor aufgelistet, aber von dieser Schleife nicht berücksichtigt, da es keine Namen, sondern Listobjekte sind.
Man verwendet hier am besten On Error, da es mehrere Punkte gibt, die anderen Falls geprüft werden müssen.
- Name rerferenziert auf ein anderes Blatt
- Name enthält keine Zellbereich, sondern einen Wert oder was anderes.

Gruß Daniel

dim nme as Name dim rng as range for each nme in Thisworkbook.Names set rng = nothing on Error Resume Next set rng = Intersect(nme.RefersToRange, target) on Error goto 0 if not rng is nothing then Msgbox nme.Name & " - " & rng.Address next

Beliebteste Forumthreads (12 Monate)

Per VBA den Bereichsnamen auslesen

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Per VBA den Bereichsnamen auslesen

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread