Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
352to356
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
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige