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 |