Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
476to480
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
476to480
476to480
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Excel Tabellenblätter sortieren

Excel Tabellenblätter sortieren
02.09.2004 15:25:14
gerhard
Hallo,
ich habe keine Ahnung ob so etwas möglich ist:
Ich habe eine Datei Test1.xls in welcher ich die Sheets "grün", "gelb", "blau" habe. In Datei Test2.xls habe ich die selben Tabellenblätter in gleicher Reihenfolge. Wenn nun ein Mitarbeiter in der Test1.xls das Tabellenblatt "grün" an die zweite Stelle verschiebt, so soll über ein Makro oder ähnliches in der der Test2.xls das Tabellenblatt in gleicher weise verschoben werden. Die Tabellenblätter sollen also immer gleich angeordnet sein.
Ist so etwas möglich.
Gerhard

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel Tabellenblätter sortieren
Dieter
Hallo Gerhard
dein Wunsch ist so nicht realisierbar.
Mein Vorschlag:
lass beim Öffne der Arbeitsmappe die Blätter nach Alphabet sortieren, dann sind die Mappen zumindest beim Öffnen Identisch.
hier ein kleines Makro zu sortieren:

Sub RegisterSortieren()
Dim AnzahlRegister As Integer
Dim i As Integer
Dim x As Integer
Dim Zaehler As Integer
' Gesamtzahl der Tabellenblaetter ermitteln
AnzahlRegister = Sheets.count
For i = 1 To AnzahlRegister - 1
x = i
For Zaehler = i + 1 To AnzahlRegister
If UCase$(Sheets(Zaehler).name) < _
UCase$(Sheets(x).name) Then
x = Zaehler
End If
Next Zaehler
If x > i Then Sheets(x).Move Sheets(i)
Next i
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige