wie kann ich mir in einer Zelle den Namen und 'Bezieht sich auf' eines benannten Bereiches ausgeben lassen?
Vielen Dank
Grüssle
Dirk
Sub BenannteBereiche()
Dim z, i As Integer
Columns("A:B").ClearContents
For Each z In ActiveWorkbook.Names
i = i + 1
Cells(i, 1) = z.Name
Cells(i, 2) = "'" & z.RefersTo
Next
End Sub
A | B | C | |
1 | $B$6:$B$16 | ||
2 | |||
3 | |||
4 | |||
5 | |||
6 | |||
7 | |||
8 | |||
9 | |||
10 | |||
11 | |||
12 | |||
13 | |||
14 | |||
15 | |||
16 | |||
17 | bb | ||
18 |
verwendete Formeln | |||
Zelle | Formel | Bereich | N/A |
A1 | =ADRESSE(ZEILE(bb);SPALTE(bb))&":"&ADRESSE(ZEILE(bb)+ZEILEN(bb)-1;SPALTE(bb)+SPALTEN(bb)-1) |
http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip |
http://Hajo-Excel.de/tools.htm |
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007 |
Add-In-Version 21.10 einschl. 64 Bit |
A | B | |
1 | bb | $B$6:$B$16 |
2 | dd | $E$6:$F$10 |
verwendete Formeln | |||
Zelle | Formel | Bereich | N/A |
B1:B2 | =ADRESSE(ZEILE(INDIREKT(A1));SPALTE(INDIREKT(A1)))&":"&ADRESSE(ZEILE(INDIREKT(A1))+ZEILEN(INDIREKT(A1))-1;SPALTE(INDIREKT(A1))+SPALTEN(INDIREKT(A1))-1) |
http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip |
http://Hajo-Excel.de/tools.htm |
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007 |
Add-In-Version 21.10 einschl. 64 Bit |