Herbers Excel-Forum - das Archiv
Tabellennamen listen in einem Gesamtblatt
- Tabellennamen listen in einem Gesamtblatt von Tanja vom 02.12.2003 12:36:06
- AW: Tabellennamen listen in einem Gesamtblatt - von xXx am 02.12.2003 12:43:51
- AW: Tabellennamen listen in einem Gesamtblatt - von Tanja am 02.12.2003 13:20:47
- AW: Tabellennamen listen in einem Gesamtblatt - von xXx am 02.12.2003 13:29:21
- AW: Tabellennamen listen in einem Gesamtblatt - von Tanja am 02.12.2003 15:05:37
- AW: Tabellennamen listen in einem Gesamtblatt - von Tanja am 02.12.2003 15:05:37
- AW: Tabellennamen listen in einem Gesamtblatt - von xXx am 02.12.2003 13:29:21
- AW: Tabellennamen listen in einem Gesamtblatt - von Tanja am 02.12.2003 13:20:47
- AW: Tabellennamen listen in einem Gesamtblatt - von GerdW am 02.12.2003 12:56:06
- AW: Tabellennamen listen in einem Gesamtblatt - von xXx am 02.12.2003 12:43:51
 |
Betrifft: Tabellennamen listen in einem Gesamtblatt
von: Tanja
Geschrieben am: 02.12.2003 12:36:06
Hallo Profis,
ich möchte in einem Gesamt-Blatt der Datei alle Tabellennamen in einer Spalte in Reihenfolge der Blätter auflisten lassen. Daneben soll dann jeweils der Wert dieses Blattes aus Zelle F28 erfolgen.
Geht das mit Formeln? Wenn ja, wie? Oder VBA?
Vielen Dank im Voraus für die Hilfe!
Gruß
Tanja
 |
Betrifft: AW: Tabellennamen listen in einem Gesamtblatt
von: xXx
Geschrieben am: 02.12.2003 12:43:51
Hallo,
Gesamtblatt ist Blatt 1!
Sub Namen()
For Z=2 to ActiveWorkbook.Sheets.Count
With Sheets(1)
.Cells(z,1)=Sheets(z).Name
.Cells(z,2)=Sheets(z).Range("F28")
End With
Next Z
End Sub
Gruß aus'm Pott
Udo
http://www.excelerator.de
P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!
|
Betrifft: AW: Tabellennamen listen in einem Gesamtblatt
von: Tanja
Geschrieben am: 02.12.2003 13:20:47
Danke,
das funktioniert schon mal prächtig!
Könnte man auch das letzte Tabellenblatt in dieser Auflistung ausschliessen?
Gruß
Tanja
|
Betrifft: AW: Tabellennamen listen in einem Gesamtblatt
von: xXx
Geschrieben am: 02.12.2003 13:29:21
Hallo,
sicher!
For Z=2 to ActiveWorkbook.Sheets.Count-1
Gruß aus'm Pott
Udo
http://www.excelerator.de
P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!
|
Betrifft: AW: Tabellennamen listen in einem Gesamtblatt
von: Tanja
Geschrieben am: 02.12.2003 15:05:37
klappt prima - danke
|
Betrifft: AW: Tabellennamen listen in einem Gesamtblatt
von: GerdW
Geschrieben am: 02.12.2003 12:56:06
Hallo,
Sub Blattnamen()
Dim b as integer
For b = 1 to ActiveWorkbook.Sheets.Count
If sheets(b).Name <> "Gesamt-Blatt" then
b = b + 1
With Sheets("Gesamt-Blatt")
.Cells(b,1)=Sheets(b).Name
On error resume next 'falls Diagrammblätter vorhanden sind
.Cells(b,2)=Sheets(b).[F28]
End With
end if
Next
End Sub
Gerd
| |