Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
256to260
256to260
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Liste der Tabellenblatt-Namen

Forumthread: Liste der Tabellenblatt-Namen

Liste der Tabellenblatt-Namen
21.05.2003 14:02:41
Alfons
Gibt es eine Möglichkeit, in einem Tabellenblatt eine Liste mit allen Tabellenblatt-Namen dieser Datei zu erstellen?
Kann ich die Reihenfolge der Tabellenblätter irgendwie automatisch ändern?
Vielen Dank im voraus
mfg
Alfons


Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Liste der Tabellenblatt-Namen
21.05.2003 14:06:31
andreas e

Hallo Alfons,
nachstehender Code listet die Namen in Tabelle1 Spalte A auf:
Sub namen()
For i = 1 To Worksheets.Count
Sheets("Tabelle1").Cells(i, 1).Value = Sheets(i).Name
Next
End Sub

was meinst du mit sortieren ?
welche Kriterien?
gruß
andreas e

Re: Liste der Tabellenblatt-Namen
21.05.2003 14:22:02
Alfons

Danke für die prompte Antwort.
Die Namen sind bei mir Seriennummern (nur Zahlen).
Die Tabellenblätter sind in willkürlicher Reihenfolge; jetzt hätte ich sie gerne nach auf-/absteigenden Seriennummern.
Die Seriennummern, sprich Tabellenblattnamen, kommen auch in den Tabellenblättern nochmal vor.

Anzeige
Re: Liste der Tabellenblatt-Namen
21.05.2003 14:28:28
andreas e

hallo alfons,
hier eine routine von Berti zum sortieren:
Sub Tabellen_sortieren()
Dim i As Integer, j As Integer
For i = 1 To Sheets.Count
For j = 1 To Sheets.Count - 1
'aufsteigend
If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then
Sheets(j).Move after:=Sheets(j + 1)
'absteigend
'If UCase$(Sheets(j).Name) < UCase$(Sheets(j + 1).Name) Then
'Sheets(j).Move after:=Sheets(j + 1)
End If
Next j
Next i
End Sub

gruß
andreas e
http://www.skripteundaufgaben.de viele kostenlose downloads zu EXCEL und mehr

Anzeige
Re: Tabellen sortieren
21.05.2003 14:31:07
Martin Beck

Hallo Alfons,

Gruß
Martin Beck


;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige