definierten Namen auslesen

[Crazy Tom]

Hallo Leute

xl2003 und xl2007

Ich habe in meiner Datei einen Bereich als Namen definiert.
Tabelle2 $G$3:$H$19

diesen Bereich möchte ich nun in einer MsgBox ausgeben lassen
das klappt schon mit diesem Code:

Code:

Sub Namen_Test()
    MsgBox Range("MeinBereich").Worksheet.Name _
           & vbCrLf & Range("MeinBereich").Address
End Sub

gibt es da nicht noch eine andere Möglichkeit?
ich hatte es schon so versucht:

Code:

MsgBox Parent.Range("MeinBereich").Address

aber da gibt es mir leider nur die Zellen und nicht das Blatt mit an

MfG Tom

[Kuwer]

Hallo Tom,

Code:

MsgBox Names("Meinbereich").RefersTo

Gruß Uwe

[chris-ka]

Hi,

mit refersto
sollte die Tabelle auch ausgegeben werden

Code:

Sub meineNamen()
Dim myNames As Names, StrTmp as String, i as integer
Set myNames = ActiveWorkbook.Names
    For i = 1 To myNames.Count
       StrTmp = StrTmp & myNames(i).Name & myNames(i).RefersTo & Chr(10)
    Next
MsgBox StrTmp
End Sub

[Crazy Tom]

Hallo Uwe

besten Dank, funktioniert wie gewünscht

MfG Tom

[Crazy Tom]

Hallo Chris

Dank auch an Dich, funktioniert auch sehr gut

MfG Tom