Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Indizes von Tabellenblätter neu organisiseren ???

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

Indizes von Tabellenblätter neu organisiseren ???
16.12.2003 15: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 15: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 01: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
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.05.2026 13:47:03
Laufende Uhrzeit in einer Zelle
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum