Clever-Excel-Forum

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

Hallo Tom,

Code:
MsgBox Names("Meinbereich").RefersTo

Gruß Uwe

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

Hallo Uwe

besten Dank, funktioniert wie gewünscht

MfG Tom

Hallo Chris

Dank auch an Dich, funktioniert auch sehr gut

MfG Tom

Crazy Tom

Kuwer

chris-ka

Crazy Tom

Crazy Tom