Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
344to348
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellennamen listen in einem Gesamtblatt

Tabellennamen listen in einem Gesamtblatt
02.12.2003 12:36:06
Tanja
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellennamen listen in einem Gesamtblatt
02.12.2003 12:43:51
xXx
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!
AW: Tabellennamen listen in einem Gesamtblatt
02.12.2003 13:20:47
Tanja
Danke,
das funktioniert schon mal prächtig!
Könnte man auch das letzte Tabellenblatt in dieser Auflistung ausschliessen?

Gruß
Tanja
Anzeige
AW: Tabellennamen listen in einem Gesamtblatt
02.12.2003 13:29:21
xXx
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!
AW: Tabellennamen listen in einem Gesamtblatt
02.12.2003 15:05:37
Tanja
klappt prima - danke
AW: Tabellennamen listen in einem Gesamtblatt
02.12.2003 12:56:06
GerdW
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
Anzeige

67 Forumthreads zu ähnlichen Themen

Änderung in allen Worksheets
highman4

Hallo Excelfreunde,
Ich möchte eine Berechnung in allen Arbeitsblättern (ca. 150) vornehmen lassen.
Folgender Code:
Sub Bestellung_Ausloesen() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If Cells(10, 2) > Cells(9, 2) Then Cells(11, 2) = 0 Else Cells(11, 2) = Cells(...
05.02.2010 07:11:14
Thread-ID: 1135983
3 Beiträge
Anzeige
2 Tabellen in einem Tabellenblatt
Skudinski

Hallo,
in einem Tabellenblatt habe ich 2 Tabellen. Für jede Tabelle soll jeweils eine Eingabemaske erstellt werden. Zur 1. Tabelle: Sie beinhaltet 3 Zeilen. Bei betätigung des Butten "Einfügen" sollen die eingetragenen Werte in eine freie Zeile übertragen werden.
Die Bedienung der Tabel...
09.11.2013 09:50:12
Thread-ID: 1337856
5 Beiträge
Mehrere Tabellenbl. in ein Tabellenblatt kopieren
Hermann

Hallo zusammen,
ich benötige mal wieder eure Hilfe.
Ich habe eine Exceldatei. In der befinden sich ca.40 Arbeitsblätter die alle das gleiche Format nur andere Werte haben.
Ein Arbeitsblatt hat jeweils 3 Seiten. Der Bereich der 3 Seiten umfasst (A1:Y180)
Nun möchte ich die jeweil...
22.06.2016 20:19:38
Thread-ID: 1500427
4 Beiträge
Anzeige
Makro in allen Tabellenblättern ausführen
Tim

Guten Tag zusammen,
ich kenne mich mit der VBA Programmierung nicht besonders gut aus und habe daher eine Frage.
Ich möchte alle Tabellenreiter Färben, je nach dem was in Zelle E10 steht.
Dafür habe ich folgendes Makro:
Sub Farbe() Dim cell As Range If Range("$E$10") = "TG/MPG (...
22.05.2018 11:04:17
Thread-ID: 1625060
5 Beiträge
Autofilter in allen selektierten Tabellenblättern
lalelu23

Hallo liebes Forum,
ich habe einen VBA Code geschrieben, der in allen selektierten Tabellenblättern in Spalte AG alles filtern soll, was nicht 0 ist. Der Code funktioniert auch, allerdings läuft er aufgrund der Größe der Datei und der Datenmengen relativ langsam. Daher wollte ich euch f...
24.10.2018 11:34:22
Thread-ID: 1653246
2 Beiträge
Zeile in allen Tabellenblättern ausblenden
Thomas

Servus Zusammen,
ich bräuchte bitte eine Lösung für folgendes Problem.
Wenn in den Zellen ("K7:K22") eine 0 berechnet wird, soll in allen Tabellenblättern die jeweilige Zeile ausgeblendet werden.
Hab schon so ziemlich alles probiert und komme leider auf keine Lösung.
Meine VBA K...
20.12.2018 09:38:49
Thread-ID: 1663943
10 Beiträge
Inhaltsverzeichnis mit allen Tabellenblättern
Dom

Guten Tag zusammen,
ich hoffe mir kann jemand helfen, denn seit gestern verzweifle ich an diesem Problem:
Und zwar möchte ich in einer Exceldatei auf dem ersten Tabellenblatt gerne ein Inhaltsverzeichnis einrichten, mit allen Tabellenblättern, die diese Datei beinhaltet. Über die Funkti...
13.03.2019 09:11:43
Thread-ID: 1680964
5 Beiträge
Tabellen meherere Blätter in einem Blatt kopieren
Robert

Hallo zusammen,
ich habe eine Excel Datei, die viele Arbeitsblätter hat. Außer Arbeitsblatt "Übersicht" und "Projekt" die andere Blätter sind gleich aufgebaut! Die Anzahl von Blätter ist variable!
Ich weiß es nicht, ob es möglich wäre oder eine Code gegeben würde, mittels einer Makro...
20.06.2019 10:17:47
Thread-ID: 1698662
13 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
5
4
3
1
4
1
9
4
12
1
4
1
2
1
1
5
1
8
5
6
10
5
4
3