Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Indizes von Tabellenblätter neu organisiseren ???

Forumthread: Indizes von Tabellenblätter neu organisiseren ???

Indizes von Tabellenblätter neu organisiseren ???
16.12.2003 14:24:27
Mick
Hallo,

ich habe eine Arbeitsmappe mit 25 Tabellenblättern. Leider sind diese Tabellenblätter absolut durcheinander (durch nachträgliches Einfügen und Löschen von Blättern). Die Tabellenblätter haben als Namen eine Laufende Nummer. Gibt es eine Möglichkeit die Tabellenblätter so zu organisieren, dass der Index mit dem Tabellenblattnamen (Nummer) identisch ist??

Danke für Infos

Mick
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Indizes von Tabellenblätter neu organisiseren ???
16.12.2003 14:34:14
AndreasS
Hallo,

In A1 steht der Index oder anpassen...


Sub Tabellenname()
For i = 1 To Sheets.Count
If Sheets(i).Range("A1").Value <> "" Then Sheets(i).Name = Sheets(i).Range("A1").Value
Next i
End Sub


mfg
AW: Indizes von Tabellenblätter neu organisiseren
17.12.2003 00:02:02
Reinhard
Hi Mick,

Sub tt()
Anz = ActiveWorkbook.Worksheets.Count
For a = 1 To Anz
For b = a To Anz
If Worksheets(b).Name < Worksheets(a).Name Then
Worksheets(b).Move before:=Worksheets(a)
End If
Next b
Next a
End Sub


vorher musst du natürlich dafür sorgen, dass die fortlaufende Nummer gleichlang ist,
sonst wird 1,10,2,20,3... sortiert anstatt 01,02,03,04...
geht mit
for x =1 to ActiveWorkbook.Worksheets.Count
worksheets(x).name=right("000" & worksheets(x).name,2)
next x

Gruß
Reinhard
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

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